여러 시트를 쉽게 이동하기

100개의 시트가 있을 때 이를 쉽게 이동할 수 있는 트리형 매크로

추가기능을 활용하여 어느 시트에 있든 매크로를 쉽게 실행할 수 있다.

아래 코드는 노드를 추가하는 내용

Private Sub CreateNodes()
 
    Dim i As Integer
    Dim j As Integer
    Dim c As Integer
    
    For i = 1 To 100 Step 10
    
        TreeView1.Nodes.Add Key:=Sheets(i).Name, Text:=Sheets(i).Name & " ~ " & Sheets(i + 9).Name
        
        For j = 1 To 10
            TreeView1.Nodes.Add Sheets(i).Name, relationship:=tvwChild, Text:=Sheets(j + c).Name
        Next j
        
    c = c + 10
    
    Next i
 
End Sub

통합 문서1.xlsm