-->

عرض جميع أوراق العمل المخفية باسرع طريقة وبنقرة واحدة اكسيل 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) لتصفح كل أوراق العمل في المصنف. ثم يغير الخاصية الغير مرئية  لورقة العمل إلى مرئية.

اذا اعجبك الدرس لاتبخل علينا بمشاركتة عبر وسائل التواصل الاجتماعى 
Emad ghazi
كاتب المقالة
كاتب ومحرر اخبار اعمل في موقع عالم الاوفيس .

جديد قسم : اكسل متقدم

إرسال تعليق