تحميل مجانى شيت اكسل المخازن ( وارد – منصرف – مرتجعات – اهلاك – تقارير)

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

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

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

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

كيف يتم ذلك ؟

يتم ذلك من خلال كود اكسيل vba بسيط جدا يعتمد فى عملة على لقة تكرارية تقوم بمطابقة قيمة الخلية التى قمنا بتحديدها مسبقا 

ومقارنة ذلك القيمة باسماء اوراق العمل الموجودة طرفنا فى ملف العمل

فاذا توافقت تلك القيمة مع اسم الشيت يقوم باظهار هذا الشيت واخفاء باقى اوراق العمل 

الكود

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

 

 

sub test

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