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

교집합 영역 선택

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