엑셀 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 ~ B12를 하나씩

 

        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

 

 

집합이 어떤 거든 간에(세는 것이 가능하든지 불가능하든지 간에)

 

직접 세는 것보다 굳이 셀 필요가 없다면 세지 않는게 편하겠지요...