Sut i ehangu neu gau pob rhes a cholofn wedi'u grwpio yn Excel?

Yn Excel, gallwch ddefnyddio'r cyfleustodau Grŵp i grwpio data yn ôl yr angen. Ond os oes llawer o grwpiau yn y daflen, sut allwch chi ehangu neu gau pob grŵp yn gyflym heb glicio â llaw? Yma, byddaf yn cyflwyno codau VBA i ddatrys y swydd hon yn hawdd yn Excel.

Ehangu neu gau pob rhes a cholofn wedi'u grwpio yn Excel

Ehangu neu gau pob rhes a cholofn wedi'u grwpio yn Excel

Dyma rai codau VBA a all eich helpu i ehangu neu gau pob grŵp ar unwaith.

1. Gwasgwch Alt + F11 allweddi i alluogi'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, copïwch a gludwch y cod isod i'r Modiwl newydd.

VBA: Ehangu pob grŵp

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. Gwasgwch F5 yn allweddol, mae'r grwpiau yn Nhaflen 1 wedi'u hehangu.

Os ydych chi am gau pob grŵp, gallwch ddefnyddio isod y cod:

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

Nodyn: yn y codau uchod, Taflen 1 yw'r daflen sy'n cynnwys y grwpiau rydych chi am eu hehangu neu eu cau. Rhowch enw eich dalen eich hun yn ei le os oes angen.