اذهب الي المحتوي
أوفيسنا

عبدالله الصاري

الخبراء
  • Posts

    602
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

368 Excellent

عن العضو عبدالله الصاري

  • تاريخ الميلاد 25 ينا, 1964

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    مفتش تقني
  • البلد
    ليبيا
  • الإهتمامات
    الاكسل+القراءة

اخر الزوار

3,435 زياره للملف الشخصي
  1. وعليكم السلام ورحمة الله وبركاته g1 = Range("H13").Value غير من g1 الى g2 تحياتي
  2. تفضل اخونا الفاضل New Microsoft Excel Worksheet (3).xlsx
  3. معادلة استاذنا الفاضل ابراهيم الجداد سليمة 100% شيت.xlsx
  4. وعليك السلام ورحمة الله وبركاته الخطوات افتج محرر الاكواد ثم الفورم ثم غير الخاصية كما بالصورة
  5. وعليكم السلام ورحمة الله وبركاته جرب هذه المحاولة تقارير.xlsm
  6. اخي الفاضل افادك الله كما افدتنا وجزاك الله كل خير الخطأ ليس لغوي بل برمجي فيجب ان تكون الكلمة متوافقة في القائمة المنسدلة في الخلية B2 مغ الكلمة الموجودة في الكود بمعنى مبسط اذا كانت كلمة أبريل في القائمة المسدلة بالفتحة فيجب ان تكون في الكود نفسها بالفتحة واذا كانت كلمةإبريل في القائمة المسدلة بالكسرةفيجب ان تكون في الكود نفسها بالكسرة واذا كانت كلمة ابريل بدون كسرة ولا فتحة فيجب ان تكون في الكود مثلها بمعنى التطابق التام في شكل اي كلمة بما في القائمة والكود حفظك الله ورعاك
  7. يمكنك تعطيل الماكرو من خيارات ومركز الثوتيق والدخول الى محرر الاكواد ومعرفة الرقم السري على كل حال جرب 1984
  8. اولاأيوجد خطأ بالكود قم بتعديل كلمة إبريل الى أبريل بالكود بملفك كالتالي Case Is = "إبريل": kh_ColumnHidden "FC:FV" الى Case Is = "أبريل": kh_ColumnHidden "FC:FV" ثانيا لضمان الحقوق وكما اشرت في مشاركتى بالاعلي ان الكود من المنتدى وهو للعلامة اخونا من اليمن (وقاها الله وحفظ اهلها من الفتن والحروب ) الاستاذ عبدالله باقشير ثالتا ساحاول ان اشرح الكود الكود يتكون من جزء رئيسي وهو يتم اخفاء كل الاعمدة من العمود Gالى الى اخر عمود XFD بمعني اخفاء كل الاعمدة بالصفحة عد1 الخمسة الاعمده الاولي والتي بها الاسم وايام الحضور الخ Sub kh_ColumnHidden(ColumnAddres As String) ' الغاء اهتزاز الشاشة Application.ScreenUpdating = False ' الصفخة المراد تطبيق الكود عليها Sheets("الحضور والغياب").Select ' اخفاء الاعمدة من العمود G الى اخر عمودXFD Columns("G:XFD").EntireColumn.Hidden = True Columns(ColumnAddres).EntireColumn.Hidden = False End Sub بعد اخفاء جميع الاعمدة عدا الخمسة الاولي سنقوم باظهار الاعمدة التي نحتاجها If Not Application.Intersect(Range("B2"), Range(Target.Address)) Is Nothing Then Select Case Target.Value Case Is = "سبتمبر": kh_ColumnHidden "G:AB" Case Is = "أكتوبر": kh_ColumnHidden "AC:AW" Case Is = "نوفمبر": kh_ColumnHidden "AX:BS" Case Is = "ديسمبر": kh_ColumnHidden "BT:CO" Case Is = "يناير": kh_ColumnHidden "CP:DK" Case Is = "فبراير": kh_ColumnHidden "DL:EE" Case Is = "مارس": kh_ColumnHidden "EF:FB" Case Is = "أبريل": kh_ColumnHidden "FC:FV" Case Is = "مايو": kh_ColumnHidden "FW:GS" السطر الاول B2 وهي الخلية التي يتم اختيار الشهر منها Select Case Target.Value يتم اختيار الحالة (الشهر) حسب القيمة اي قيمة B2 Case Is = "سبتمبر": kh_ColumnHidden "G:AB" في حالة B2 تساوي ستمبر قم باظهار الاعمدة من "G:AB" فلو ذهبت الى شيت الحضور والغياب لوجدت شهر سبتمبر يبدأ من العمو د G وينتهي عند العمود AB وهكذا لبقية الاشهر اتمنى اني قدمت ما يفيدك
  9. وعليكم السلام ورحمة الله بركاته من خلال التجربة كود استاذنا الفاضل بن عليه سريع جدا اما طول الكود فتم اختصاره بكود من المنتدى وكما يقال كل الطرق تؤدي الى روما . فكود السيد بن عليه والكود المختصر يؤديان نفس النتيجة تحياتي كشف حضور وغياب1.xlsm
  10. جزاك الله خيرا واضح انك بذلت فيه جهذا كبيرا وكذلك مفتوح المصدر وفقك الله واكيد سيفيد من لهم اهتمام بالجمغيات الخيرية تحياتي ومزيد من التقدم والابداع
  11. وعليكم السلام ورحمة الله وبركاته هذا الموضوع به طلبك ان شاء الله https://www.officena.net/ib/topic/66864-استدعاء-فورم-عن-طريق-رقم-سري/#comment-434812
×
×
  • اضف...

Important Information