엑셀 vba 교집합, 합집합 선택

with seok 2020. 4. 20. 09:18

교집합 영역 선택

Option Explicit

Sub 교집합선택()

    Dim rng1 As Range
    Dim rng2 As Range
    Set rng1 = Range("a1:d10")
    Set rng2 = Range("c3:f8")
    Intersect(rng1, rng2).Select

End Sub

합집합 영역 선택

Option Explicit
Sub 합집합선택()

    Dim rng1 As Range
    Dim rng2 As Range
    Set rng1 = Range("a1:d10")
    Set rng2 = Range("c3:f8")
    Union(rng1, rng2).Select

End Sub

교집합 부분이 없을 때

Option Explicit

Sub 교집합없음()

    Dim rng3 As Range
    Dim rng4 As Range
    Set rng3 = Range("a1:c3")
    Set rng4 = Range("b5:d7")

    'Intersect(rng3, rng4).Select
        '에러가 발생함

    If Not Intersect(rng3, rng4) Is Nothing Then
            '부정의 부정(즉, 교집합이 있음)
        MsgBox "교집합 부분이 있습니다."
    Else
        MsgBox "교집합 부분이 없습니다."
    End If

End Sub

728x90

저작자표시 비영리 변경금지 (새창열림)