한 번에 여러 시트를 숨기고 숨김 해제해야하는 상황을 고려하십시오. 누군가가 수동으로 숨기기 및 숨기기를 해제하는 경우 많은 시간이 걸립니다.

이 기사에서는 VBA 코드를 사용하여 여러 탭을 동적으로 숨기거나 숨김 해제하는 방법을 배웁니다.

Q) : 한 번에 여러 탭을 숨기거나 숨김 해제하는 매크로를 원합니다.

다음은 두 개의 동적 목록 즉, 탭 숨기기 및 탭 숨기기 해제가있는 sheet1의 스냅 샷입니다.

img1

  • 아이디어는 숨기기 또는 숨기기 해제 버튼을 클릭하면 나열된 시트가 숨기기 또는 숨김 해제되어야한다는 것입니다. 아래 단계를 따라야합니다.

결과를 얻으려면 VB 편집기를 시작해야합니다. 개발자 탭을 클릭합니다. * 코드 그룹에서 Visual Basic을 선택합니다.

img2

  • 삽입을 클릭 한 다음 모듈

img3

그러면 새 모듈이 생성됩니다.

모듈 하위 HideTabs () Dim TabNo As DoubleDim LastTab As Double LastTab = Range ( “Hide_TabsDNR”). Count On Error Resume Next For TabNo = 2 To LastTab Sheets (Range ( “Hide_TabsDNR”) (TabNo)) .Visible = False Next TabNo On Error GoTo 0 Sheets (1) .Select End Sub

===

Sub UnHideTabs ()

Dim TabNo As Double

Dim LastTab As Double

LastTab = Range ( “Hide_TabsDNR”). Count

오류시 다음 다시 시작

TabNo = 2 To LastTab

Sheets (Range ( “UnHide_TabsDNR”) (TabNo)). Visible = True

다음 탭 아니요

On Error GoTo 0

Sheets (1).

선택

End Sub

img4

  • 우리는 모두 매크로를 실행하도록 설정되었습니다. Hide 버튼을 클릭하면 나열된 모든 시트가 숨겨집니다. 스냅 샷 아래 참조

img5

  • 같은 방식으로 Unhide 버튼을 클릭하면 D 열에 언급 된 모든 숨겨진 시트가 숨김 해제됩니다.

이런 식으로 한 번에 여러 탭을 동적으로 숨기거나 숨김 해제 할 수 있습니다.