จะขยายหรือปิดแถวและคอลัมน์ที่ถูกจัดกลุ่มทั้งหมดใน Excel ได้อย่างไร

ใน Excel คุณสามารถใช้ยูทิลิตีกลุ่มเพื่อจัดกลุ่มข้อมูลตามต้องการได้ แต่หากมีกลุ่มจำนวนมากในชีต คุณจะขยายหรือปิดกลุ่มทั้งหมดได้อย่างรวดเร็วโดยไม่ต้องคลิกด้วยตนเองได้อย่างไร ในที่นี้ ฉันจะแนะนำโค้ด VBA เพื่อแก้ปัญหานี้ใน Excel ได้อย่างง่ายดาย

ขยายหรือปิดแถวและคอลัมน์ที่ถูกจัดกลุ่มทั้งหมดใน Excel

ขยายหรือปิดแถวและคอลัมน์ที่ถูกจัดกลุ่มทั้งหมดใน Excel

ต่อไปนี้เป็นโค้ด VBA บางส่วนที่สามารถช่วยคุณขยายหรือปิดกลุ่มทั้งหมดในครั้งเดียวได้

1 กด Alt + F11 คีย์เพื่อเปิดใช้งานไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 คลิก สิ่งที่ใส่เข้าไป > โมดูลคัดลอกและวางโค้ดด้านล่างนี้ลงในโมดูลใหม่

VBA: ขยายกลุ่มทั้งหมด

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 คีย์กลุ่มใน Sheet1 ได้รับการขยาย

หากคุณต้องการปิดกลุ่มทั้งหมดคุณสามารถใช้รหัสด้านล่าง:

Sub CollapseAll()
    Worksheets("sheet1").Outline.ShowLevels 1, 1
End Sub

หมายเหตุ ในโค้ดด้านบน Sheet1 คือชีตที่มีกลุ่มที่คุณต้องการขยายหรือปิด ให้แทนที่ด้วยชื่อชีตของคุณเองหากจำเป็น