728x90
| 시트 숨기기(2번째 시트부터 끝까지) |
| Sub Show_All() Dim i As Integer For i = 2 To Sheets.Count Sheets(i).Visible = True Next Sheets(1).Select End Sub |
| 시트 보이기(2번째 시트부터 끝까지) |
| Sub Hidden_All() Dim i As Integer For i = 2 To Sheets.Count Sheets(i).Visible = False Next End Sub |
728x90
'■ Excel > ㅡExcel VBA Code' 카테고리의 다른 글
| 엑셀 VBA 페이지 나누기가 엉망이 될 때 (0) | 2020.05.13 |
|---|---|
| 엑셀 VBA 출력미리보기실행, 가운데정렬, 용지가로, 1개 페이지에 맞춤, 페이지 나누기 미리보기로 전환, 보기를 기본으로 전환 (0) | 2020.05.13 |
| 엑셀 VBA 특정한 범위에 숫자만 입력하도록 자동으로 작동하는 매크로 (0) | 2020.04.25 |
| 엑셀 VBA 같은 내용 병합하기 (0) | 2020.04.25 |
| 엑셀 VBA 각 시트의 내용 합치기 코드(매크로) (0) | 2020.04.24 |