·
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 창.
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은 확장하거나 닫을 그룹이 포함 된 시트입니다. 필요한 경우 자신의 시트 이름으로 변경하십시오.