Monday, November 20, 2006
Excel/엑셀] 현재 시트 이름, 셀에 입력 방법, 시트명 구하는 함수; Current Sheet Name 매크로
엑셀 문서인 xls 파일 안에는 여러 개의 시트(Sheet)들이 포함되어 있습니다.
엑셀 화면 아래쪽에 기본적으로 Sheet1, Sheet2, Sheet3 등의 이름으로 존재하는데, 이것을 클릭하면 이름을 바꿀 수도 있습니다.
현재 시트명을 반환하는 함수를 만들려면 다음과 같은 VBA매크로를 작성하면 됩니다.
(엑셀에서 Alt+F11키를 눌러, 비베 에디터를 실행하고, 비베 에디터 메뉴의, "삽입 > 모듈"을 선택한 후, 다음 코드를 붙여 넣습니다.)
엑셀의 아무 셀에서나
=getSheetName(A1)
이렇게 하면, 그 셀에 현재 시트 이름이 자동으로 들어갑니다. 그런데 Application.Volatile 이 줄이 없으면, 시트명을 변경했을 때, 셀의 시트명이 갱신되지 않습니다.
다음의 서브루틴은 함수가 아니고, "현재 활성화된 시트명"을 메시지 박스로 출력하는 간단한 예제입니다.
엑셀 화면 아래쪽에 기본적으로 Sheet1, Sheet2, Sheet3 등의 이름으로 존재하는데, 이것을 클릭하면 이름을 바꿀 수도 있습니다.
현재 시트명을 반환하는 함수를 만들려면 다음과 같은 VBA매크로를 작성하면 됩니다.
Parent.Name: 현재 시트 명 구하기 예제
(엑셀에서 Alt+F11키를 눌러, 비베 에디터를 실행하고, 비베 에디터 메뉴의, "삽입 > 모듈"을 선택한 후, 다음 코드를 붙여 넣습니다.)
Function getSheetName(anyCell As Range)
Application.Volatile
getSheetName = anyCell.Parent.Name
End Function
Application.Volatile
getSheetName = anyCell.Parent.Name
End Function
엑셀의 아무 셀에서나
=getSheetName(A1)
이렇게 하면, 그 셀에 현재 시트 이름이 자동으로 들어갑니다. 그런데 Application.Volatile 이 줄이 없으면, 시트명을 변경했을 때, 셀의 시트명이 갱신되지 않습니다.
다음의 서브루틴은 함수가 아니고, "현재 활성화된 시트명"을 메시지 박스로 출력하는 간단한 예제입니다.
Sub viewSheetName()
MsgBox ActiveSheet.Name
End Sub
MsgBox ActiveSheet.Name
End Sub
tag: office
엑셀 Excel | 워드 Word | VBA 매크로 | 오피스
<< Home