皆さん、こんにちは。今日は、Excel VBAを使っているときに遭遇しがちな「エラー91」についてお話しします。このエラーは、プログラムを実行中に「オブジェクト変数またはWithブロック変数が設定されていません」と表示されるものです。初めて見ると驚くかもしれませんが、原因と対処法を知っていれば怖くありません。では、一緒に見ていきましょう。
エラー91とは？
Excelのイメージ
まず、このエラーが何を意味するのかを簡単に説明します。プログラム内で、オブジェクトと呼ばれるものを操作しようとしたときに、適切に設定されていない場合にこのエラーが発生します。例えば、特定のシートやセル、ウィンドウなどを指すオブジェクト変数が正しく設定されていないときに起こります。
エラーの主な原因
では、具体的にどのような状況でこのエラーが発生するのでしょうか。主な原因をいくつか挙げてみます。
1. Setステートメントの不足
オブジェクト変数に値を代入するときには、必ずSetステートメントを使う必要があります。これを忘れると、エラー91が発生します。
例えば、以下のコードを見てください。
vba
Dim ws As Worksheet
ws = Worksheets("Sheet1")
このコードでは、Setが抜けているため、エラーが発生します。正しくは以下のように書きます。
vba
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")
2. オブジェクトの未初期化
オブジェクト変数がNothing、つまり何も設定されていない状態でそのプロパティやメソッドを呼び出そうとすると、エラー91が発生します。
例えば、以下のコードを見てください。
vba
Dim ws As Worksheet
Set ws = Nothing
MsgBox ws.Name
この場合、wsはNothingに設定されているため、ws.Nameを呼び出すとエラーになります。
3. Withブロック内でのオブジェクト未設定
Withステートメントを使うとき、その対象となるオブジェクトが正しく設定されていないと、エラー91が発生します。
例えば、以下のコードを見てください。
vba
Dim ws As Worksheet
With ws
.Name = "NewName"
End With
この場合、wsが設定されていないため、Withブロック内でエラーが発生します。正しくは、wsに適切なシートを設定してからWithブロックを使う必要があります。
エラーの対処法
では、これらのエラーを防ぐためにはどうすれば良いでしょうか。いくつかのポイントを紹介します。
- Setステートメントを忘れないオブジェクト変数に値を代入するときは、必ずSetを使いましょう。
- オブジェクトの初期化を確認するオブジェクト変数がNothingでないことを確認してから、そのプロパティやメソッドを使いましょう。
- Withブロックの前にオブジェクトを設定するWithステートメントを使う前に、対象のオブジェクトが正しく設定されていることを確認しましょう。
よくある質問や疑問
Q1. Setステートメントを使わないとどうなりますか？
オブジェクト変数に値を代入するときにSetを使わないと、エラー91が発生します。これは、オブジェクトではなく単なる値として扱われてしまうためです。
Q2. エラー91が発生したときのデバッグ方法は？
エラーが発生した行を確認し、その行で使用しているオブジェクト変数が正しく設定されているか、Setステートメントが抜けていないかをチェックしましょう。
まとめ
いかがでしたか？エラー91は、オブジェクト変数の設定ミスやSetステートメントの不足などが原因で発生します。これらのポイントを押さえておけば、エラーを未然に防ぐことができます。もし他にも疑問やお悩み事があれば、お気軽にLINEからお声掛けください。
コメント