엑셀 VBA #11 / 셀 범위 선택하기_6 [VBA]
1. 목적 : (비연속적)다중영역의 셀 주소 확인 가능
구조 : 기준개체.Areas
의미 : 다중영역의 전체를 한 묶음으로 지정???
(VBA#12 04:36)
For each in rng.SpecialCells(xlCellTypeBlanks).Areas
rng영역에서 값이 없는 빈셀의 다중영역 전체!!!!!!!
2. 사용
2.1. 선택된 셀이 하나인 경우
MsgBox Selection.Address
선택 셀의 주소가 절대주소로 보여짐
MsgBox Selection.Address(0,0)
선택 셀의 주소가 상대주소로 보여짐
2.2. 선택된 셀이 다중인 경우(ex, 4개 영역)
MsgBox Selection.Areas(1).Address(0,0)
MsgBox Selection.Areas(2).Address(0,0)
MsgBox Selection.Areas(3).Address(0,0)
MsgBox Selection.Areas(4).Address(0,0)
3. 심화활용
선택된 셀 영역의 갯수를 모르는 경우 : For Each ~ Next문 & 동적배열 사용
Dim a As Range
Dim adr()
Dim i As Long
For Each a In Selection.Areas
ReDim Preserve adr(i) 'adr은 영역의 각각의 주소를 담는 변수
adr(i) = a.Address(0, 0)
i = i + 1
Next
MsgBox "선택된 다중범위는 " & vbCr & Join(adr, vbCr)
https://www.youtube.com/watch?v=lVh9T7V21ZE&list=PLfxvqpVCYZ8e0qlyc_FU46neoWjO7yTWj&index=11
'엑셀로 풀어가는 세상' 카테고리의 다른 글
| 엑셀 VBA #15 / 셀 범위 선택하기_10 [VBA] - 빈 셀 채우기 (0) | 2023.12.13 |
|---|---|
| 엑셀 VBA #14 / 셀 범위 선택하기_9 [VBA] - Intersect 실무예제 (0) | 2023.12.13 |
| 엑셀 VBA #13 / 셀 범위 선택하기_8 [VBA] - Intersect (0) | 2023.12.13 |
| 엑셀 VBA #12 / 셀 범위 선택하기_7 [VBA] - SpecialCell & Areas활용(행 삭제) (0) | 2023.12.12 |
| 엑셀 VBA #09 / 셀 범위 선택하기_4 [VBA] - SpecialCells (0) | 2023.12.12 |
| 엑셀 VBA #08 / 셀 범위 선택하기_3 [VBA] - Union (0) | 2023.12.12 |
| 엑셀 VBA #07 / 셀 범위 선택하기_2 [VBA] -Resize & Offset (0) | 2023.12.12 |
| 엑셀 VBA #06 / 셀 범위 선택하기_1 [VBA] (1) | 2023.12.12 |
