[엑셀양식] 시트명 가져오기 매크로

안녕하세요 엑셀런트입니다.
 
매크로를 통해 시트명을 자동으로 불러올 수 있는 엑셀 양식을 공유합니다.
 

시트명 불러오기 매크로 (출처: 엑셀런트)

 
해당파일에 시트를 옮기거나, 파일의 매크로 모듈을 원하시는 파일에 복사한 후, 사용해보세요.
[주의사항] 매크로 시트가 다른시트들보다 앞에 있어야 정상작동합니다.
 

시트이름불러오기_매크로.xlsm

0.02MB

 
▽ 구문

Sub sheetnameload() Dim sheetname Dim Sheetstart As Integer Dim nosheet As Integer Set sheetname = Sheets("시트명") nosheet = Worksheets.Count     With sheetname         .Range("C5:C1000").ClearContents         For Sheetstart = 1 To nosheet             .Cells(Sheetstart + 4, 3) = Sheets(Sheetstart).Name         Next Sheetstart     End With End Sub

 
 
 

<안내>
사용, 배포 등의 제한이 없습니다. 자유롭게 사용해주세요.
관련하여 보완이 필요한 부분이 있으면 댓글을 통해 말씀해주세요.
조언, 문의, 추가자료 언제든 환영합니다.
 
감사합니다.