السبت، 7 سبتمبر 2019

عرض جميع أوراق العمل المخفية باسرع طريقة وبنقرة واحدة اكسيل Unhide All Worksheets at One Go

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



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

مجموعة دروس قصيرة ولكن اكواد مفيدة جدا جدا

يمكن أن يؤدي استخدام وحدات ماكرو Excel الى تسريع العمل وتوفير الوقت والمجهود .

ونستعرض اليوم كود مهم جدا فى مجموعة الاكواد التى سنتناولها فى هذة السلسلة التعليمية

 الكود الاول 

1- عرض جميع أوراق العمل المخفية 

من خلال هذا الكود


Sub UnhideAllWoksheets()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Visible = xlSheetVisible
Next ws
End Sub
ناتى الى شرح الكود اعلاه 
استخدمنا فى  الكود البرمجى أعلاه حلقة التكرارية  VBA (For each) لتصفح كل أوراق العمل في المصنف. ثم يغير الخاصية الغير مرئية  لورقة العمل إلى مرئية.

اذا اعجبك الدرس لاتبخل علينا بمشاركتة عبر وسائل التواصل الاجتماعى 

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

إرسال تعليق

من نحن

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

التصنيفات

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

الاسم

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

رسالة *

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