엑셀 Excel VBA 메크로 셀 값으로 시트 이름 지정 변경 바꾸기
엑셀 문서 작업 시 시트를 여러 개 생성해서 작업할 때 시트 명을 변경해서 사용하기도 합니다.
몇 개 안 되는 시트라면 시트에서 마우스 오른쪽 버튼 클릭 후 이름 바꾸기 메뉴를 통해서
시트 명을 변경할 수 있는데요.
주기적으로 작업하고 시트가 많은 경우 수작업으로 하는데 쉽지는 않을 겁니다.
간단한 매크로 하나만 있으면 간단히 셀에 입력된 값으로 시트 명을 원하는 데로 변경할 수 있는데요
방법을 알아보겠습니다.
4개의 시트가 생성된 간단한 샘플을 준비했습니다.
"B2 "셀에 입력된 내용을 시트 명에 표시해보겠습니다.
우선 개발 도구를 활성화해야 하는데요.
상단 메뉴 중 [파일]-[옵션]을 선택합니다.
Excel 옵션 창이 열리면 좌측 범주 중 [리본 사용자 지정]을 클릭해주세요
우측 리본 사용자 지정 화면으로 이동하면 [개발 도구]에 체크 후 [확인] 버튼을 클릭해서 창을 닫아주세요
창이 닫히면 상단 엑셀 메뉴 중 [개발 도구]를 선택합니다. 서브 메뉴가 나오면
ActiveX 컨트롤에 ActiveX 버튼을 선택합니다.
맨 마지막에 시트 하나를 추가하고 드래그해서 버튼을 생성해줍니다.
버튼이 생성되면 버튼 이름을 변경하기 위해 버튼에서 마우스 오른쪽 버튼을 클릭합니다.
메뉴가 나오면 [명령 단추 개체]-[편집]을 선택합니다.
버튼이 편집할 수 있게 되는데요 버튼 명을 수정합니다.
"시트 명 변경"이라고 변경해보겠습니다.
시트 명을 변경했으면 "ESC" 키를 눌러 편집 모드를 나갑니다.
이제 버튼을 더블클릭합니다.
Microsoft Visual Basic for Application 프로그램이 열리는데요
아래 내용을 입력해주세요
"_현황" 부분은 필요 없는 경우 빼셔도 됩니다.
Private Sub CommandButton1_Click()
Dim sm As Worksheet
For Each sm In Sheets
sm.Name = sm.Range("B2") & "_현황"
Next sm
End Sub
엑셀 화면으로 다시 와서 상단 서브 메뉴 중 [디자인 모드]를 클릭해서
상태를 해제합니다. 버튼 색이 다른 버튼과 동일하게 선택되지 않은 상태여야 합니다.
이제 [시트 명 변경] 버튼을 클릭하시면 시트 명이 셀에 입력된 값으로 변경됩니다.
버튼이 있는 셀은 숨겼다가 필요할 때 다시 숨기면 해제해서 사용하면 되기 때문에
숨김 처리를 위해 버튼이 있는 시트에 마우스 오른쪽 버튼을 클릭합니다.
메뉴가 열리면 [숨기기]를 선택해주세요
하단 시트를 보시면 버튼이 있는 시트는 숨겨지고
다른 시트 명이 모두 변경된 것을 확인할 수 있습니다.
엑셀 Excel VBA 메크로 셀 값으로 시트 이름 지정 변경 바꾸기를 알아보았습니다.
