投稿者: o2k

失敗例（対象セルの指定エラー）

o2k

以下のプロシージャーはエラーとなります。

Dim wb_1 As Workbook
Dim ws1_a As Worksheet
Dim c2 As Integer

Set wb_1 = Workbooks("Book1.xlsm")
Set ws1_a = wb_1.Worksheets("A")

wb_1.ws1_a.Range("a1") = "ワークシートＡのＡ１セルだよ"

内容を見てみると
ワークブック　wb_1 の中にある ワークシート ws_1a のＡ１セルに
文字列”ワークシートＡのＡ１セルだよ”を代入するマクロを作成しようとしているのですが、
エラーが出てしまって、思い通りになっていません。

この表示後デバッグを押すと　以下のように黄色背景色でエラー個所を提案してくれます。

エラーが発生すると、気が滅入りますが、あなた自身が頑張って解決を目指すしかありません。
ＶＢＡはプログラムの自動修復はしてくれませんから。


エラー修復の対象は、原則として　黄色背景箇所です。
ですので、その辺りを見直すことを考えていきましょう。

今回のエラーの理由は
wb_1.ws1_a.Range(“a1”)
です。エラーのない正解の記述は
ws1_a.Range(“a1”)
です。


というのも ws1_a という変数自身が

Workbook(“Book1”)のWorkSheets(“A”)
という意味を持っているために、
wb_1.ws1_a.Range(“a1”)　と記載すると
Workbook(“Book1”)のWorkbook(“Book1”)のWorkSheets(“A”)　という意味になってしまい
全体として意味不明となってしまっていたのです。


プログラムにミスは付き物です。
思い通り動くまで、頑張って修正してください。