كيفية إظهار كافة الصفوف باستخدام vba (مع مثال)
يمكنك استخدام الخاصية Hidden في VBA لعرض صف في ورقة معينة.
لعرض كافة الصفوف في ورقة معينة، يمكنك استخدام بناء الجملة التالي:
Sub UnhideAllRows()
Rows.EntireRow.Hidden = False
End Sub
باستخدام الخاصية Hidden وتحديد القيمة False ، نطلب من Excel عرض جميع الصفوف في الورقة الحالية.
يوضح المثال التالي كيفية استخدام بناء الجملة هذا عمليًا.
مثال: كيفية عرض كافة الصفوف باستخدام VBA
لنفترض أن لدينا ورقة Excel تحتوي على معلومات حول لاعبي كرة السلة المختلفين:
لنفترض الآن أننا نقرنا بزر الماوس الأيمن على الصف 3 ثم انقرنا على “إخفاء” :
لنفترض أننا كررنا هذه العملية للصفين 7 و8 بحيث يصبح لدينا الآن عدة صفوف مخفية في الورقة:
لنفترض الآن أننا نريد استخدام VBA لعرض كافة الصفوف في هذه الورقة.
يمكننا إنشاء الماكرو التالي للقيام بذلك:
Sub UnhideAllRows()
Rows.EntireRow.Hidden = False
End Sub
بمجرد تنفيذ هذا الماكرو، سيتم عرض كافة الأسطر:
لاحظ أن جميع الصفوف من مجموعة البيانات الأصلية لدينا أصبحت مرئية مرة أخرى.
لاحظ أنه إذا كنت تريد عرض كافة الصفوف من كافة الأوراق في مصنف Excel، فيمكنك إنشاء الماكرو التالي للقيام بذلك:
Sub UnhideAllRowsAllSheets()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Rows.EntireRow.Hidden = False
Next ws
End Sub
باستخدام حلقة بسيطة لكل حلقة ، يمكننا تكرار كل ورقة في المصنف الخاص بنا وعرض جميع الصفوف في كل ورقة.
ملاحظة : يمكنك العثور على الوثائق الكاملة للخاصية المخفية في VBA هنا .
مصادر إضافية
تشرح البرامج التعليمية التالية كيفية تنفيذ المهام الشائعة الأخرى في VBA:
VBA: كيفية العثور على آخر سطر مستخدم
فبا: كيفية عرض كافة الأوراق
فبا: كيفية تجميد الأجزاء