엑셀 매크로 시트명,Row, Column 알아내기

엑셀 시트의 시트명, Row, Column 을 알아내어 향후 시트변경, Row, Column

데이터를 활용하기 위한 Test 모듈 매크로(VBA) 프로그램을 만들어 봅니다.

시트명이 사원명부이고 row 갯수는 12, Column 갯수는 8 개인 엑셀화일이 있습니다.

[개발도구]-[VBA] 들어가서 [삽입]-[모듈] 모듈이 추가됩니다.

ㅡ Module1에 프로그램을 합니다.

Sub 모듈_Test_1()
'******************************************************
'** 시트의 이름을 메시지 박스로 표시해 보자
'*****************************************************
'변수를 선언하는것이다.
Dim shnm As String
'시트명을 알아내는 명령어는 ActiveSheet.Name
shnm = ActiveSheet.Name
MsgBox "시트명은 ▶ " & shnm  '더하기 처럼 쓰이는 문자열은 " & " 을 사용한다.
End Sub

ㅡ Module2에 프로그램을 합니다. -  시트명, Row, Column 수량을 가져온다. 

Sub 모듈_Test_2()
'**********************************************************
'** 시트의 이름을 메시지 박스로 표시해 보자
'** 시트명을 알아내고 시트의 row 수 column 수 를 표시한다.
'**********************************************************
'변수를 선언하는것이다.
Dim shnm As String
Dim n1R, n1C

'시트명을 알아내는 명령어는 ActiveSheet.Name
shnm = ActiveSheet.Name
'MsgBox "시트명은 ▶ " & shnm  '더하기 처럼 쓰이는 문자열은 " & " 을 사용한다.

n1R = Worksheets(shnm).Range("A1").CurrentRegion.Rows.Count
n1C = Worksheets(shnm).Range("A1").CurrentRegion.Columns.Count

MsgBox "시트명은 ▶ " & shnm & " , Row 수 : " & n1R & " , Columns 수 : " & n1C & " 입니다"

End Sub

 프로그램이 완성 되었으면 이제 실행을 해보면 됩니다.

실행하는 방법은 중간에 ▶  버튼을 누르면 실행 화면이 나옵니다.

함수 모듈_Test_1, 모듈_Test_2 하나를 선택하여 [실행]을 하면 됩니다.

모듈_Test_1을 실행한 결과는 다음과 같습니다. 

모듈_Test_2을 실행한 결과는 다음과 같습니다.

이렇게 하면 시트명, 데이터의 갯 수를 알 수 있으며, 알아낸 정보를 활용하여 데이터를 비교하거나

해당 데이터를 찾을 수도 있으며, 해당 시트로 화면을 바꿀 수 도 있습니다.

 

위의 프로그램을 토대로 업무에 활용할 수 있도록 기능을 구현 해보겠습니다.

 

매크로_모듈_프로그램_예제.xlsm

0.03MB