إجمالي مرات مشاهدة الصفحة

الأحد، 24 أبريل 2016

إخفاء وإظهار أعمدة بناءً على قيمة خلية Hide Show Columns Based On Specific Value

السلام عليكم ورحمة الله وبركاته

إليكم كود يقوم بإخفاء أعمدة وإظهار أعمدة أخرى بناءً على قيمة خلية محددة.


بفرض أن لديك ورقة عمل ولديك الأعمدة C:N بها شهور السنة من يناير إلى ديسمبر ، وأردت أن تخصص الخلية A1 لتكتب فيها رقم الشهر ، وعلى أساس هذا الرقم يتم إخفاء الأعمدة كلها ما قبل هذا الشهر وإظهار أعمدة الشهر الهدف وما يليه من شهور.
أي على سبيل المثال إذا قمت بكتابة رقم الشهر 6 في الخلية A1 يتم إخفاء الأعمدة C:G حيث هذه الأعمدة تحتوي على الشهور يناير وفبراير ومارس وإبريل ومايو ، وهي الشهور المطلوب إخفاء الأعمدة الخاصة بها ، وتظهر فقط الأعمدة بدايةً من شهر يونيو أي بدايةً من العمود H.

إليكم الكود المستخدم لتحقيق المطلوب

Sub HideShowColumns()
    If Not IsEmpty(Range("A1")) And IsNumeric(Range("A1")) And Range("A1") <> 1 And Range("A1") < 13 Then
        Dim iMon As Integer
        iMon = Range("A1").Value + 1

        Columns("C:N").Hidden = False
        Range(Cells(1, 3), Cells(1, iMon)).EntireColumn.Hidden = True
    Else
        MsgBox "Cell A1 Should Be Numeric And Not Emtpy" & Chr(10) & "You Should Type From 2 To 12 Only", 64
        Columns("C:N").Hidden = False
    End If
End Sub

إعداد / ياسر خليل أبو البراء

هناك 8 تعليقات:

  1. طريقة تفكيرك بدون هيكل عظمي يعني ملهاش حدود توقفها منتهي المرونة في التفكير انت رائع و مذهل !!!!!

    ردحذف
  2. بارك الله عمل متقن ورائع قام الكود بإخفاء كل الأشهر التي دل عليها رقم كودها في A1
    تقبل تحياتي العطرة أخي الحبيب أبو البراء.

    ردحذف
  3. أخي العزيز مجدي سالم بارك الله فيك ومشكور على كلماتك الرقيقة
    أخي الغالي محمد حسن أبو يوسف مشكور على مرورك العطر بالمدونة
    تقبلوا وافر تقديري واحترامي

    ردحذف
  4. شكرا لجهودكم
    لماذا لا تكون لا تكون المعادلات كامله وكانها مقصوصه مع العلم اني استخدم جهاز سامسونج وليس على الكمبيوتر

    ردحذف
  5. لا أدري ما المشكلة لديك ..ماذا تقصد بمقصوصة؟ الأكواد توضع بهذا الشكل لتظهر منضبطة ، وإذا كان فيه مشكلة مع النسخ قم بتحميل الملف أفضل

    ردحذف
  6. هل من الممكن اخي الفاضل ان تطبق علي الصفوف و شكرا علي هذا العمل الرائع

    ردحذف
  7. الأخت الكريمة سمر
    نعم يمكن تطويع الأكواد لتطبق على الصفوف ..

    ردحذف
  8. لم يتم إيجاد الملف المطلوب , عذراً للإزعاج.

    الأسباب المحتملة لهذا الخطأ يمكن أن يكون:

    انتهاء صلاحية الملف.
    تم حذف الملف من قبل صاحبه.
    تم حذف الملف من قبل الإدارة لأنه لا يتفق مع شروط الاستخدام.

    ردحذف