إخفاء كل أوراق العمل باستثناء الورقة النشطة
اهلا بكم من جديد متابعى موقع عالم الاوفيس
مجموعة دروس قصيرة ولكن اكواد مفيدة جدا جدا
كما شرحنا فى الكود الاول عن عرض جميع أوراق العمل المخفية باسرع طريقة وبنقرة واحدة نستكمل اليوم الشرح كود اخر مفيد جدا
كما ذكرنا سابقا انة بالفعل استخدام وحدات ماكرو Excel الى تسريع العمل وتوفير الوقت والمجهود .
ونستعرض اليوم كود مهم جدا فى مجموعة الاكواد التى سنتناولها فى هذة السلسلة التعليمية
الكود الثانى
إخفاء كل أوراق العمل باستثناء الورقة النشطةإذا كنت تعمل على تقرير أو لوحة معلومات وتريد إخفاء كل ورقة العمل باستثناء الورقة التي تحتوي على تقرير / لوحة معلومات ، يمكنك استخدام هذا الكود.
ub HideAllExceptActiveSheet()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> ActiveSheet.Name Then ws.Visible = xlSheetHidden
Next ws
End Sub
وفى هذا الكود نقوم بعمل حلقة تكرارية للمرور على كل اوراق العمل الموجودة فى ملف العمل لاخفاء جميع اوراق العمل ماعدا ورقة العمل النشطة
وبذلك نكون قد انتهينا اليوم من شرح هذا الكود ضمن مكتبة اكواد Excel VBA
ونلتقى ان شاء الله فى الدرس القادم