엑셀 매크로 VBA] 워크시트 이름 셀 텍스트로 가져오기

2017.04.30 11:30



이전 블로그에서 정리한 셀 내용을 워크시트 이름으로 바꾸는 매크로와 반대로 워크시트의 이름을 셀 내용으로 가져오는 매크로에 대해 정리한다. 





여기서는 워크시트의 이름을 가져오는 사용자 모듈 함수를 만들어서 사용한다.


모듈을 추가하고 아래 코드를 추가한다. 



1
2
3
4
5
6
Function getSheetName(anyCell As Range)
 
  Application.Volatile
  getSheetName = anyCell.Parent.Name
 
End Function
cs





시트 이름을 넣고 싶은 셀에 사용자 정의함수 getsheetname()함수를 사용한다. 

(뒤에 인수로 주어지는 셀 주소는 어느 주소라도 상관없다)







매크로를 이용한 사용자 정의함수를 사용하지 않고 함수만 이용하려고 할 경우 아래 수식을 사용한다. 


=RIGHT(CELL("filename",A1),LEN(CELL("filename",A1))-FIND("]",CELL("filename",A1)))





< 파일 경로, 파일 이름, 시트이름을 반환하는 Cell 함수에 대한 참고 글 >


 - 엑셀] 셀에 파일 경로와 파일이름 표시하기






저작자 표시 비영리 변경 금지
신고

또루아빠 Excel/엑셀 VBA , , , , , , , , ,