엑셀 VBA 모든 시트이름 알아내기

엑셀 VBA 모든 시트이름 파악 해 봅시다. 그런데 이것을 어디에 사용 할까? 언젠가 사용할 날이 옵니다.

엑셀 시트 열면 sheet1 sheet2 ...추가 됩니다. 엑셀 시트명 VBA 이용하여 출력 표시 하는 방법 이며 sheets.name 이용하여 알아 낼수 있습니다. 

엑셀 VBA 매크로 , 현재 모든 시트 이름 알려주는 매크로 만들어 봅시다.

엑셀 VBA 모든 시트이름 알아내기

 

액셀 VBA 코드 이용하다 보면 시트명이 헷갈려서 편의상 엑셀 시트이름을 a b c d 4개 시트 이름으로 바꾸어 놨습니다.

 

엑셀 VBA 모든 시트이름 알아내기

모듈에 코드 등록. 엑셀 시트 총4개 이므로 총 엑셀 시트 갯수 먼저 알아 내야 합니다.

 

지난 글 참고 하면 됩니다.

엑셀 VBA 워크시트 개수 파악

 

엑셀 VBA 워크시트 개수 파악

엑셀 VBA 워크시트 개수 파악 해 보자 엑셀에서 현재 열린 워크시트 개수를 엑셀 VBA 이용하여 간단하게 알아낼수 있습니다. 언제 사용 할지 알수 없으나 , 그런데 엑셀 열린 시트 수 알아서 어디

rdsong.com

 

 

엑셀 VBA 모든 시트이름 알아내기

 

 

시트 갯수 파악은 worksheets.count 이용 하면 됩니다.

 

엑셀 VBA 모든 시트이름 알아내기

 

 

엑셀 VAB 매크로 시트이름

 

 

엑셀 시트가 4개 이므로 반복 출력 해야 하므로 for ~ next 구문 이용 합니다. 다른 반복문 사용 해도 됩니다. 정답은 하나만 있는게 아닙니다. 내가 제일 사용하기 편한 방식 선택 하여 쓰는 것일 뿐!

Dim  변수 선언 했지만 , 없이 직접 잘 코딩 해도 되겠죠. 이것도 당신 편한 방식대로.

 

엑셀 시트명 시트이름 알수 있는 sheets(n).name 이용 하여 만들어 줍니다.

 

 


Sub sheetname()

Dim ws_count As Integer
Dim ws_name As String


ws_count = Worksheets.Count


For n = 1 To ws_count

ws_name = Sheets(n).Name
MsgBox n & "번 시트이름=" & ws_name

Next


End Sub


 

워크 시트 갯수 4이므로 마지막 엑셀 시트 이름 파악도 가능 합니다.

 

 

엑셀 VBA 모든 시트이름 표시

 

실행 결과 >>

 

총 엑셀 시트이름 4번 반복되어 화면에 표시 해 줍니다.

 

엑셀 VBA 모든 시트이름 알아내기
엑셀 VBA 모든 시트이름 알아내기
엑셀 VBA 모든 시트이름 알아내기
엑셀 VBA 모든 시트이름 알아내기
엑셀 VBA 마지막 시트이름 

 

엑셀 VBA 시트명 알아내는 방법 그다지 어렵지 않은데 근데 이거 언제 사용할지...! 엑셀 VBA 시트이름 알아내는 방법 마칩니다.

 

copyright ⓒ 블로그 본문글 재배포 금지. 글 링크 허용 합니다.