اكسل 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