엑셀 VBA , FOR EACH ~ IN ~ NEXT 구문

지난 셀 선택하기에서 잠깐 FOR EACH ~ IN ~ NEXT 구문이 나왔었습니다.
 
For Each 변수 In 집합
 
실행문
 
Next
 
해당 구문은 위와 같이 사용됩니다.
 
저 위 집합 정말 다양한 것들이 올 수 있습니다.
 
어제 사용한 구문을 한번 보겠습니다.
 

반응형

Sub Select_Cells_Range()
 
    Dim c As Range, r As Range
 
    For Each c In Range("B2:B11")  '[ B2~B11 범위의 셀을 하나씩 ]이라는 의미 / 변수 C는 B2, B3 ~ B11를 하나씩
 
        If c = "A0002" Or c = "A0004" Then
 
    Else
 
            If r Is Nothing Then
 
                Set r = c
 
            Else
 
                Set r = Union(r, c)
 
            End If
 
        End If
 
    Next
 
    If r Is Nothing = False Then r.Select
 
End Sub
 
 
집합이 어떤 거든 간에(세는 것이 가능하든지 불가능하든지 간에)
 
직접 세는 것보다 굳이 셀 필요가 없다면 세지 않는게 편하겠지요...

여기를 방문하시면 더 많은 엑셀 관련 자료를 확인할 수 있습니다.

엑셀 공부하기
VBA 공부하기