練習問題と模擬問題で対策する、無料のExcel VBAエキスパート試験対策サイト

オブジェクト変数にオブジェクトの参照情報が代入されていない状態を表します。

オブジェクトの参照情報とは、PCのメモリ内で、そのオブジェクトがどこに格納されているかを示す情報であり、住所のようなものです。

オブジェクトの参照情報が代入されていない状態とは、オブジェクトの住所が格納されていないため、そのオブジェクトを参照できない状態ということになります。

使い終わったオブジェクト変数にNothingを代入することで、オブジェクトへの参照を明示的に解除できます。

また、Findメソッドで検索値のセルが見つからなかった場合の戻り値は、Nothingです。

【オブジェクト変数を破棄】
Set 変数名 = Nothing

【オブジェクト変数に格納されている値がNothingか判定】
If 変数名 Is Nothing Then
    処理
End If

【オブジェクト変数の破棄】
Sub Macro1()
    'オブジェクト変数の宣言
    Dim wb As Workbook

    ' アクティブブックをオブジェクト変数に代入
    Set wb = ActiveWorkbook

    ' アクティブブックの名前を表示
    MsgBox wb.Name
    
    'オブジェクト変数を破棄
    Set wb = Nothing
End Sub

オブジェクト変数wbには、アクティブブックが格納されています。

使い終わったオブジェクト変数wbにNothingを代入し、オブジェクトへの参照を明示的に破棄しています。

【Findメソッドの戻り値をIfステートメントで判定】
Sub Macro2()
    Dim cell As Range

    'Findメソッドで「メロン」を検索
    Set cell = Range("A1:A4").Find(What:="メロン", Lookat:=xlWhole)
    
    '検索値が見つからない場合はNothingが格納される
    If cell Is Nothing Then
        MsgBox "メロンはありません"
    End If
End Sub

Findメソッドで、アクティブシートのセル範囲A1:A4で「メロン」を検索します。

検索値が見つからない場合は、オブジェクト変数cellにNothingが格納されます。

Ifステートメントで、オブジェクト変数cellの値がNothingかを判定します。

<変数cellの値がNothingの場合>
「メロンはありません」のメッセージボックスが表示されます。

マクロを実行すると、アクティブシートのセルが以下の場合、「メロンはありません」のメッセージボックスが表示されます。