안녕하세요~
현제 한글문서를 엑셀로 변경하고 있는데요~
시트명을 바꾸면 자동으로 지정한 셀에 시트명이 표시되게하는 방법을 인터넷에서 찾아보고 해보았습니다.
(예를 들어 시트 제목이 [사람이름]이면 지정한 셀 A5에 자동으로 [사람이름]이 입력되도록)
처음으로 액셀하면서 vba라는 것을 처음 접해보았습니다.....
그래서 일단은 찾아본데로 해봤는데 되었습니다...
그런데 문제는 저장을 하고 파일을 닫았다가 다시 열면 설정이 안되었어서 셀에 오류 메세지가 떠서 다시 설정해야하는 문제가 발생했습니다.
저장 시 메크로가 포함된 문서로 저장하니 문서 아이콘도 조금은 다른 엑셀 파일로 저장되더군요 그리고 다시 실행 했더니 위와 같은 #name? 이란 오류가 발생했습니다..
밑에는 다른 분의 블로그에있는 내용을 참고한 내용입니다. 블로그 내용은 전혀 문제가 없지만...제가 vba를 처음 접해봐서 저장? 설정?을 어떻게 해야 하는 지 몰라서 문의 드립니다....
어제 부터 이것저것 찾아보고 도저히 모르겠어서 문의 드립니다...도와주세요...ㅠ
Parent.Name: 현재 시트 명 구하기 예제
(엑셀에서 Alt+F11키를 눌러, 비베 에디터를 실행하고, 비베 에디터 메뉴의, "삽입 > 모듈"을 선택한 후, 다음 코드를 붙여 넣습니다.)
Function getSheetName(anyCell As Range)
Application.Volatile
getSheetName = anyCell.Parent.Name
End Function
엑셀의 아무 셀에서나
=getSheetName(A1)이렇게 하면, 그 셀에 현재 시트 이름이 자동으로 들어갑니다. 그런데 Application.Volatile 이 줄이 없으면, 시트명을 변경했을 때, 셀의 시트명이 갱신되지 않습니다.
