إخفاء وإظهار أعمدة بناءً على قيمة خلية 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

تحميل الملف من هنا

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