اكسل VBA : كيفية اخفاء واظهار جميع اوراق العمل بناء على مختوى الخلية How to Show And unhide Sheets based on cell values

اكسل VBA : كيفية اخفاء واظهار جميع اوراق العمل بناء على مختوى الخلية


اهلا بكم متابعى موقع عالم الاوفيس

درس جديد من دروس اكسل  VBA وهو عن كيفية اظهار او اخفاء اورق عمل محددة بناء على محتوى الخلية وبالتحديد الخلية A1 او اى خلية فى العمود الاول (A)

يتم كل ذلك من خلال ماكرو سهل جدا وكود من اكواد  مكتبة اكسل  VBA

Option Explicit

Sub hide_show_sheets()
    Dim ws As Worksheet, c As Range
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> ThisWorkbook.ActiveSheet.Name Then
            ws.Visible = xlSheetHidden
        End If
    Next ws
    On Error Resume Next
    For Each c In Range("A1", Cells(Rows.Count, "A").End(xlUp))
        Worksheets(c.Value).Visible = xlSheetVisible
    Next c
End Sub




Emad ghazi
كاتب المقالة
كاتب ومحرر اخبار اعمل في موقع عالم الاوفيس .

جديد قسم : اكسل متقدم

إرسال تعليق