كيفية توسيع أو إغلاق جميع صفوف وأعمدة المجموعة في إكسيل؟
في Excel ، يمكنك استخدام الأداة المساعدة Group لتجميع البيانات حسب حاجتك. ولكن إذا كان هناك العديد من المجموعات في الجدول ، فكيف يمكنك توسيع أو إغلاق كل المجموعات بسرعة دون النقر يدويًا؟ هنا ، أقدم رموز VBA لحل هذه المهمة بسهولة في Excel.
قم بتوسيع أو إغلاق جميع صفوف وأعمدة المجموعات في Excel
قم بتوسيع أو إغلاق جميع صفوف وأعمدة المجموعات في Excel
فيما يلي بعض أكواد VBA التي يمكن أن تساعدك على توسيع أو إغلاق كافة المجموعات مرة واحدة.
1. صحافة ALT + F11 مفاتيح لتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، انسخ والصق كود النفخ في الوحدة الجديدة。
فبا: قم بتوسيع كل المجموعات
Sub ExpandAll()
'UpdatebyExtendoffice20181031
Dim I As Integer
Dim J As Integer
On Error Resume Next
For I = 1 To 100
Worksheets("Sheet1").Outline.ShowLevels rowLevels:=I
If Err.Number <> 0 Then
Err.Clear
Exit For
End If
Next I
For J = 1 To 100
Worksheets("Sheet1").Outline.ShowLevels columnLevels:=J
If Err.Number <> 0 Then
Err.Clear
Exit For
End If
Next J
End Sub
3. صحافة F5 المفتاح ، تم توسيع المجموعات الموجودة في الورقة 1.
إذا كنت تريد إغلاق جميع المجموعات ، يمكنك استخدام الكود أدناه:
Sub CollapseAll()
Worksheets("sheet1").Outline.ShowLevels 1, 1
End Sub
ملحوظة: في الرموز أعلاه ، الورقة 1 هي الورقة التي تحتوي على مجموعات سيتم توسيعها أو إغلاقها. يرجى تغييره إلى اسم الورقة الخاصة بك إذا كنت بحاجة.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!