Wednesday, January 10, 2007
Excel/엑셀] 시트에서 사용된 셀 범위 구하기, 데이터 있는 셀들 주소; get Used Range Example
사용된 셀들의 범위를 구하여 메시지 박스에 출력하는 예제입니다.
데이터가 입력되어 있는 여러 셀들 중에서,
가장 첫번째 즉, "가장 좌측 상단의 셀"과,
마지막 셀 즉, "가장 우측 하단의 셀"의 범위를 구합니니다.
비베 에디터에서 F5 키를 누르거나, 엑셀에서 Alt+F8 키를 누르면 VBA 매크로가 실행됩니다.
위의 매크로를 실행하면 다음과 같은 식의 메시지 박스가 나옵니다:
---------------------------
Microsoft Excel
---------------------------
$B$8:$G$22
---------------------------
확인
---------------------------
가장 첫번째 셀이 B8 이고, 가장 마지막 셀이 G22 인 경우임.
이런 식의 메시지 박스가 나옵니다:
---------------------------
Microsoft Excel
---------------------------
$B$8:$G$22
R8C2:R22C7
---------------------------
확인
---------------------------
역시 가장 첫번째 셀이 B8 이고, 가장 마지막 셀이 G22 인 경우임.
데이터가 입력되어 있는 여러 셀들 중에서,
가장 첫번째 즉, "가장 좌측 상단의 셀"과,
마지막 셀 즉, "가장 우측 하단의 셀"의 범위를 구합니니다.
VBA매크로: 데이터 입력되어 있는 셀 영역 구하기 예제
(엑셀에서 Alt+F11키를 눌러, 비베 에디터를 실행하고, 비베 에디터 메뉴의, "삽입 > 모듈"을 선택한 후, 다음 코드를 붙여 넣습니다.)비베 에디터에서 F5 키를 누르거나, 엑셀에서 Alt+F8 키를 누르면 VBA 매크로가 실행됩니다.
Sub getUsedRange()
MsgBox ActiveSheet.UsedRange.Address()
End Sub
MsgBox ActiveSheet.UsedRange.Address()
End Sub
위의 매크로를 실행하면 다음과 같은 식의 메시지 박스가 나옵니다:
---------------------------
Microsoft Excel
---------------------------
$B$8:$G$22
---------------------------
확인
---------------------------
가장 첫번째 셀이 B8 이고, 가장 마지막 셀이 G22 인 경우임.
R1C1 형식의 주소도 같이 출력하는 버전
Sub getUsedRange()
MsgBox ActiveSheet.UsedRange.Address() & _
Chr(13) & Chr(13) & _
ActiveSheet.UsedRange.Address(ReferenceStyle:=xlR1C1)
End Sub
MsgBox ActiveSheet.UsedRange.Address() & _
Chr(13) & Chr(13) & _
ActiveSheet.UsedRange.Address(ReferenceStyle:=xlR1C1)
End Sub
이런 식의 메시지 박스가 나옵니다:
---------------------------
Microsoft Excel
---------------------------
$B$8:$G$22
R8C2:R22C7
---------------------------
확인
---------------------------
역시 가장 첫번째 셀이 B8 이고, 가장 마지막 셀이 G22 인 경우임.
tag: office
엑셀 Excel | 워드 Word | VBA 매크로 | 오피스
와 이 예제 써서 알수없는 이유로 10메가가 넘어버린 엑셀파일 용량을 300kb대로 줄일수 있었습니다! 정말 유용한 정보 감사드립니다..!!
반갑습니다 ^_^
<< Home