【VBA】実行時エラー 91「オブジェクト変数または With ブロック変数が設定されていません。」の対処法

VBA

2021.04.232021.12.05

この記事は約2分で読めます。

記事内に広告が含まれています。

今回はExcel VBAを実行した際に発生した「実行時エラー 91「オブジェクト変数または With ブロック変数が設定されていません。」の対象方について解説していきます。

created by Rinker

マイナビ出版

オブジェクトとは

オブジェクトは「物」のことを指します。

VBAで「ブック」、「シート」、「セル」に対して操作する時にどのオブジェクトを指定するのか指定するための書き方です。

オブジェクトの対象

例えばSheet1のRange(“A1”)に”テスト”と設定したい時、Sheet2を表示した状態で下記コードを実行するとSheet2のRange(“A1″)に”テスト”と設定されてしまいます。

Sub Sample()

Range("A1") = "テスト"

End Sub

Sub Sample()

Range("A1") = "テスト"

End Sub

別のシートに設定されないようにするためにどのシートに対して操作をするのかオブジェクトを指定します。

Sub Sample2()

Dim Ws1 As Worksheet
Set Ws1 = Worksheets("Sheet1")

Ws1.Range("A1") = "テスト"

End Sub

Sub Sample2()

Dim Ws1 As Worksheet

Set Ws1 = Worksheets("Sheet1")

Ws1.Range("A1") = "テスト"

End Sub

うめ

オブジェクトを指定しなくても問題ありませんが、どのオブジェクトを操作するのか指定するのをオススメします。

オブジェクトについて理解した上でエラーを解説していきます。
エラーの原因は2つです。

エラーの原因

先ほどのコードから「Set」を取り除くと実行時エラー91が発生します。

Sub Sample2()

Dim Ws1 As Worksheet
Ws1 = Worksheets("Sheet1")

Ws1.Range("A1") = "テスト"

End Sub

Sub Sample2()

Dim Ws1 As Worksheet

Ws1 = Worksheets("Sheet1")

Ws1.Range("A1") = "テスト"

End Sub

オブジェクトを代入する時はSetが必要です。

Setを付け忘れている場合は、Setを付けるだけでエラーが解消されるのでオブジェクト変数まわりを確認しましょう。

オブジェクトを代入する時は「Set」が必須！

シートを指定する場合、存在しないものを指定することはできません。

Sub Sample2()

Dim Ws1 As Worksheet
Ws1 = Nothing

Ws1.Range("A1") = "テスト"

End Sub

Sub Sample2()

Dim Ws1 As Worksheet

Ws1 = Nothing

Ws1.Range("A1") = "テスト"

End Sub

実行時エラー 91「オブジェクト変数または With ブロック変数が設定されていません。」の対処法について解説を行いました。

個人的にはSetの付け忘れが多いのかな…と思っています。

オブジェクト変数を指定する場合は気を付けるようにしましょう！