Excel 탭 표시 줄에서 워크 시트 그룹 확장 또는 최소화

모든 탭이 즉시 표시되지 않도록 Excel 2010에서 워크 시트를 그룹화하는 방법이 있습니까? 기본적으로 필요에 따라 확장 및 최소화 할 수 있습니다.

꽤 많은 수의 탭이있는 몇 가지 Excel 통합 문서가 있습니다. 그리고 특정 워크 시트를 찾기 위해 스크롤하는 것은 일종의 고통입니다.

microsoft-excel-2010 vba

— 힘 흐름
소스

여기, 나는 무언가를 채찍질하고, 원하는대로 수정하십시오. 훨씬 짧을 수 있지만 아이디어를 얻습니다.

콤보 상자를 삽입하고 (마스터 시트에 내 이름은 "control"임) 목록을 지정한 다음이 매크로를 Visual Basic에 배치하십시오. 원하는대로 그룹화하십시오. 한 장의 시트가 항상 표시되도록하고 케이스를 모두 남겨 두십시오.

Sub DropDown1_Change()

With ActiveSheet.Shapes(Application.Caller)
        Select Case .ControlFormat.ListIndex

        Case 1
            Sheets("Control").Visible = xlSheetVisible
            Sheet2.Visible = xlSheetVisible
            Sheet3.Visible = xlSheetVisible
            Sheet4.Visible = xlSheetHidden
            Sheet5.Visible = xlSheetHidden
            Sheet6.Visible = xlSheetHidden
            Sheet7.Visible = xlSheetHidden
            Sheet8.Visible = xlSheetHidden
            Sheet9.Visible = xlSheetHidden
            Sheet10.Visible = xlSheetHidden
            Sheet11.Visible = xlSheetHidden

        Case 2
            Sheets("Control").Visible = xlSheetVisible
            Sheet2.Visible = xlSheetHidden
            Sheet3.Visible = xlSheetHidden
            Sheet4.Visible = xlSheetVisible
            Sheet5.Visible = xlSheetVisible
            Sheet6.Visible = xlSheetHidden
            Sheet7.Visible = xlSheetHidden
            Sheet8.Visible = xlSheetHidden
            Sheet9.Visible = xlSheetHidden
            Sheet10.Visible = xlSheetHidden
            Sheet11.Visible = xlSheetHidden

        Case 3
            Sheets("Control").Visible = xlSheetVisible
            Sheet2.Visible = xlSheetHidden
            Sheet3.Visible = xlSheetHidden
            Sheet4.Visible = xlSheetHidden
            Sheet5.Visible = xlSheetHidden
            Sheet6.Visible = xlSheetVisible
            Sheet7.Visible = xlSheetVisible
            Sheet8.Visible = xlSheetHidden
            Sheet9.Visible = xlSheetHidden
            Sheet10.Visible = xlSheetHidden
            Sheet11.Visible = xlSheetHidden

        Case 4
            Sheets("Control").Visible = xlSheetVisible
            Sheet2.Visible = xlSheetHidden
            Sheet3.Visible = xlSheetHidden
            Sheet4.Visible = xlSheetHidden
            Sheet5.Visible = xlSheetHidden
            Sheet6.Visible = xlSheetHidden
            Sheet7.Visible = xlSheetHidden
            Sheet8.Visible = xlSheetVisible
            Sheet9.Visible = xlSheetVisible
            Sheet10.Visible = xlSheetHidden
            Sheet11.Visible = xlSheetHidden

        Case 5
            Sheets("Control").Visible = xlSheetVisible
            Sheet2.Visible = xlSheetHidden
            Sheet3.Visible = xlSheetHidden
            Sheet4.Visible = xlSheetHidden
            Sheet5.Visible = xlSheetHidden
            Sheet6.Visible = xlSheetHidden
            Sheet7.Visible = xlSheetHidden
            Sheet8.Visible = xlSheetHidden
            Sheet9.Visible = xlSheetHidden
            Sheet10.Visible = xlSheetVisible
            Sheet11.Visible = xlSheetVisible

        Case 6
        For Each ws In Worksheets
        ws.Visible = xlSheetVisible

        Next
        End Select

    End With
End Sub

— 레이스 타파 리아
소스

이전에 매크로를 사용한 적이 없다고 생각하면 어떻게 구현해야합니까? 온라인에서 찾은 몇 가지 가이드를 따르려고했지만 실제로 작동하는 것으로 끝나지 않았습니다.

— Force Flow

오류가 발생합니까?

— Raystafarian

아니요,하지만 콤보 상자를 채우려 고 할 때 약간 선외로 갔다고 생각합니다. pastebin.com/8vSZBrnz 콤보 상자의 이름은 DropDown2로 표시되지만 변경하거나 채울 방법을 찾지 못하는 것 같습니다. 코드가 작동하지 않습니다).

— Force Flow

사용중인 변수를 선언 한 것처럼 보이지 않습니다. 또한 VBA에서는 CALL다른 매크로 가 필요 합니다.

— Raystafarian

어떤 기능으로? 저는 VB에 대한 경험이 거의 없습니다. 저는 주로 PHP 전문가입니다. 따라서 초기화 기능에서 콤보 상자를 채우려면 무엇이 수정되어야합니까? : 나는 일부 수정했다 pastebin.com/qaq4LEse

— 포스 흐름을