投稿/コメントを表示します。

エクセルマクロ・VBA発展編１
発展１講座第４章 - Select Case 条件の範囲選択

小川慶一さんの投稿

(投稿ID: 3931)

メモの投稿確認していたら、以下のものを見つけました。

>オブジェクトの比較をIF文で行ってみましたが、IF文でもエラーが出ました。Select、IFいずれもオブジェクト不可という解釈でよろしいでしょうか？

質問のようなのでこの場を借りて回答します。
If 文の場合は、Is演算子を使います。例えば、以下の要領。
Sub hoge()
    Dim w As Worksheet
    Set w = Worksheets("Sheet1")
    
    If w Is ActiveWorkbook Then
        Debug.Print "変数wが参照しているのはActiveWorkbookです"
    Else
        Debug.Print "変数wが参照しているのはActiveWorkbookではありません"
    End If

    If w Is Worksheets("Sheet1") Then
        Debug.Print "変数wが参照しているのはSheet1です"
    Else
        Debug.Print "変数wが参照しているのはSheet1ではありません"
    End If
End Sub

2018/06/01 18:40