[엑셀vba] 숨겨진 시트들 한꺼번에 숨기기 취소하기

숨겨진 엑셀 시트가 한 두개면 그냥 내가 숨기기 취소해서 보이면 간단하다.

 

하지만 그 수가 10개가 넘어간다면 일일히 숨기기 취소하기엔 힘들지 않을까?

 

그래서 한방에 숨겨져 있는 모든 시트를 세상에 드러나도록 해봤다.

 

---

1. 코드

 

Option Explicit

Sub 숨기기일괄취소()
    
    Application.ScreenUpdating = False
    
    Dim i As Integer
    
    For i = 1 To ActiveWorkbook.Sheets.Count
        If Sheets(i).Visible = False Then: Sheets(i).Visible = True
    Next i

End Sub

엑셀에서 Alt+ F11키를 눌러 VBA 편집기를 열고  프로젝트 창에서 모듈하나를 추가해주고 코드를 복붙하면 끄읕.

 

크게 어려운 부분은 없다.

 

Option Explicit '변수 선언 강제화

 

Application.ScreenUpdating '코드 실행결과가 바로바로 나타나지 않고 코드 종료 후 결과가 한번에 나타남

 

dim i as integer 'i 정수형 변수 선언

 

for i = 1 to ActiveWorkbook.Sheets.count '1부터 현재 통합문서의 시트 갯수까지 반복

    IF Sheets(i).Visible = False Then: Sheets(i).Visible = Ture  'i번째 시트가 안보이게 설정됬다면 보이도록 변경

Next i

 

---

2. 테스트

 

숨겨왔던 나의 시트들

시트 13개를 만들었고 Sheet1 빼고 모두 숨겨놓고 테스트를 진행해봤다.

 

아주 빠르게 잘되는군

---