VBAのIs演算子を使ってオブジェクトの比較を行う方法をわかりやすく解説

Sub TestIsOperator()
    Dim obj1 As Object
    Dim obj2 As Object
    Dim obj3 As Object

    Set obj1 = New Collection
    Set obj2 = obj1 ' obj2 は obj1 と同じインスタンスを参照
    Set obj3 = New Collection ' obj3 は別のインスタンス

    Debug.Print (obj1 Is obj2) ' 結果: True （同じインスタンス）
    Debug.Print (obj1 Is obj3) ' 結果: False（異なるインスタンス）
End Sub

Sub CompareRange()
    Dim rng1 As Range
    Dim rng2 As Range
    Dim rng3 As Range

    Set rng1 = Range("A1")
    Set rng2 = rng1 ' 同じセルを参照
    Set rng3 = Range("A1") ' 同じセルだが新しいオブジェクト

    Debug.Print (rng1 Is rng2) ' 結果: True （同じ参照）
    Debug.Print (rng1 Is rng3) ' 結果: False（新しいRangeオブジェクト）
End Sub

Sub CompareWorkbooks()
    Dim wb1 As Workbook
    Dim wb2 As Workbook
    Dim wb3 As Workbook

    Set wb1 = ThisWorkbook
    Set wb2 = wb1 ' 同じワークブックを参照
    Set wb3 = Workbooks(ThisWorkbook.Name) ' 別のオブジェクト（同じファイル）

    Debug.Print (wb1 Is wb2) ' 結果: True （同じ参照）
    Debug.Print (wb1 Is wb3) ' 結果: False（異なるオブジェクト）
End Sub

Sub TestValueComparison()
    Dim num1 As Integer
    Dim num2 As Integer
    num1 = 10
    num2 = 10

    ' これはエラーになる（値の比較には Is は使えない）
    ' Debug.Print (num1 Is num2) 

    ' 正しくは = を使う
    Debug.Print (num1 = num2) ' 結果: True
End Sub