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

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

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

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



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



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

지난 글 참고 하면 됩니다.



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



엑셀 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 시트이름 알아내는 방법 마칩니다.

댓글