엑셀 시트이름 셀에 입력하는 방법

현재 시트명을 셀에 출력하는 방법

 

엑셀에서 Alt+F11키를 눌러 비베에디터를 실행하고 비베에디터 메뉴의 "삽입 > 모듈"을 선택

다음의 코드를 입력합니다.

 

Function getSheetName(anyCell As Range)

    Application.Volatile

    getSheetName = anyCell.Parent.Name

End Function

 

엑셀의 아무 셀에서나

=getSheetName(A1)

 

을 넣으면 이름이 자동으로 들어감

 

참고로 Application.Volatile 가 없으면 시트명 변경시 셀의 시트명이 자동으로 갱신되지 않음

 

xlsx 파일에서는 매크로가 실행되지 않으므로 반드시 xls 파일로 저장하거나 메크로가 가능한 xlsm 에서만 사용이 가능하다.

 

출처 : mwultong Blog