·
1 years ago
Collapse all works great. I just changed Worksheets("sheet1") to ActiveSheet for my needs
Excelでは、グループユーティリティを使用して、必要に応じてデータをグループ化できます。 しかし、シートに多数のグループがある場合、手動でクリックせずにすべてのグループをすばやく展開または閉じるにはどうすればよいでしょうか。 ここでは、Excelでこのジョブを簡単に解決するためのVBAコードを紹介します。
すべてのグループを一度に展開または閉じるのに役立つVBAコードを次に示します。
1。 押す Altキー+ F11 を有効にするためのキー Microsoft Visual Basic for Applications 窓。
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は、展開または閉じるグループが含まれているシートです。 必要に応じて、自分のシート名に変更してください。