추가기능

우리 센터 관할만 뽑아주는 매크로를 추가기능으로 만들어보았다.

메뉴탭 초기화 하는 거에서 애먹었는데

의외로 간단하게 해결했네.

Sub Auto_Open()
 
    Auto_Close
    
    On Error Resume Next
    
    With Application.CommandBars("Tools").Controls
    
        With .Add(Type:=msoControlButton)
            .FaceId = 59
            .Caption = "소방서별 자료 취합"
            .OnAction = "Macro"
        End With
    
    End With
    
    On Error GoTo 0
    
End Sub
 
Sub Auto_Close()
 
    Application.CommandBars("Tools").Reset
    
End Sub
 
 

남산센터 관할 추출.xlam