كيفية إظهار كافة الأوراق باستخدام vba (مع مثال)

يمكنك استخدام الخاصية Visible في VBA لعرض ورقة في مصنف Excel.

لعرض كافة الأوراق في المصنف، يمكنك استخدام بناء الجملة التالي:

 Sub UnhideAllSheets()

Dim ws As Worksheet

    For Each ws In Worksheets
        ws.Visible = True
    Next ws

End Sub

باستخدام حلقة بسيطة لكل حلقة وتحديد Visible = True ، نطلب من Excel عرض جميع الأوراق في المصنف.

يوضح المثال التالي كيفية استخدام بناء الجملة هذا عمليًا.

مثال: كيفية عرض كافة الأوراق باستخدام VBA

لنفترض أن لدينا مصنف Excel يحتوي على أربع أوراق:

لنفترض الآن أننا نقرنا بزر الماوس الأيمن فوق Sheet4 ثم انقر فوق Hide :

لنفترض أننا كررنا هذه العملية مع Sheet2 بحيث تكون الأوراق المرئية الوحيدة الآن هي Sheet1 و Sheet3 .

لنفترض أننا نريد استخدام VBA لعرض كافة الأوراق في المصنف.

يمكننا إنشاء الماكرو التالي للقيام بذلك:

 Sub UnhideAllSheets()

Dim ws As Worksheet

    For Each ws In Worksheets
        ws.Visible = True
    Next ws

End Sub

بمجرد تنفيذ هذا الماكرو، سيتم عرض كافة الأوراق الموجودة في المصنف:

ملاحظة : يمكنك العثور على الوثائق الكاملة للخاصية المرئية في VBA هنا .

مصادر إضافية

تشرح البرامج التعليمية التالية كيفية تنفيذ المهام الشائعة الأخرى في VBA:

VBA: كيفية العثور على آخر سطر مستخدم
VBA: كيفية العثور على آخر عمود تم استخدامه
فبا: كيفية تجميد الأجزاء