Excel VBA 영역 컬렉션

이 예는 지역 컬렉션 ...에서 Excel VBA. 아래에는 경계선이 있습니다 ( "B2 : C3, C5 : E5"). 이 범위에는 두 가지 영역이 있습니다. 쉼표는 두 영역을 구분합니다.

워크 시트에 명령 단추를 놓고 다음 코드 줄을 추가하십시오.

1. 먼저 두 개의 Range 객체를 선언합니다. Range 객체를 rangeToUse 및 singleArea라고 부릅니다.

Dim rangeToUse As Range, singleArea As Range

2. Range 개체를 Range (Range : "B2 : C3, C5 : E5")와 함께 초기화합니다.

Set rangeToUse = Range("B2:C3,C5:E5")

3. rangeToUse 영역 수를 계산하려면 다음 코드 행을 추가하십시오.

MsgBox rangeToUse.Areas.Count

결과:

4. 인덱스 값을 사용하여 rangeToUse의 다른 영역을 참조 할 수 있습니다. 다음 코드 행은 첫 번째 영역의 셀 수를 계산합니다.

MsgBox rangeToUse.Areas(1).Count

결과:

5. rangeToUse의 각 영역을 반복하고 각 영역의 셀 수를 계산할 수도 있습니다. 아래의 매크로는 트릭을 수행합니다.

For Each singleArea In rangeToUse.Areas
MsgBox singleArea.Count
Next singleArea

결과:

영역 컬렉션의 실제 예는 예제 프로그램 인 범위 비교를 참조하십시오.