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

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

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

 Sub UnhideAllColumns()

Columns.EntireColumn.Hidden = False

End Sub

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

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

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

لنفترض أن لدينا ورقة Excel تحتوي على معلومات حول لاعبي كرة السلة المختلفين:

لنفترض الآن أننا حددنا العمودين A وB، ثم انقر بزر الماوس الأيمن ثم انقر فوق Hide :

سيتم إخفاء كلا العمودين:

لنفترض الآن أننا نريد استخدام VBA لعرض جميع الأعمدة الموجودة في هذه الورقة تلقائيًا.

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

 Sub UnhideAllColumns()

Columns.EntireColumn.Hidden = False

End Sub

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

لاحظ أن جميع الأعمدة من مجموعة البيانات الأصلية لدينا أصبحت مرئية مرة أخرى.

لاحظ أنه إذا كنت تريد عرض كافة الأعمدة لجميع الأوراق في مصنف Excel، فيمكنك إنشاء الماكرو التالي للقيام بذلك:

 Sub UnhideAllColumnsAllSheets()

Dim ws As Worksheet

    For Each ws In Worksheets
        ws.Columns.EntireColumn.Hidden = False
    Next ws

End Sub

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

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

مصادر إضافية

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

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