الأحد، 8 سبتمبر 2019

عالم الاوفيس :إخفاء كل أوراق العمل باستثناء الورقة النشطة Excel VBA:Hide All Worksheets Except the Active Sheet

إخفاء كل أوراق العمل باستثناء الورقة النشطة

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

ومازلنا نتواصل فى شرح سلسلة جديدة من شروحات اكسل vba 

مجموعة دروس قصيرة ولكن اكواد مفيدة جدا جدا
كما شرحنا فى الكود الاول عن عرض جميع أوراق العمل المخفية باسرع طريقة وبنقرة واحدة نستكمل اليوم الشرح كود اخر مفيد جدا

كما ذكرنا سابقا انة بالفعل  استخدام وحدات ماكرو 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 
ونلتقى ان شاء الله فى الدرس القادم 

ليست هناك تعليقات:

إرسال تعليق

من نحن

authorمرحبا، أسمي عماد غازى وهذه مدونتي أسعى دائما لأقدم لكم أفضل المواضيع الخاصة بالاوفيس
المزيد عني →

التصنيفات

نموذج الاتصال

الاسم

بريد إلكتروني *

رسالة *

إجمالي مرات مشاهدة الصفحة