エラーになる理由とならない理由は？

質問

同じアプリケーション内にBook1.xlsとBook2.xlsを開き、
Book1.xlsのSheet1に
アクティブエックスのコマンドボタンを設置して、
Private Sub CommandButton1_Click()
Range("a1").Select
End Sub
としました。

このコードは問題なく実行できますが、
Book1.xlsのコマンドボタンから、
「Book2.xlsのSheet1を選択する」というコードをしたい時に、

Private Sub CommandButton1_Click()
Windows("Book2.xls").Activate
Range("a1").Select
End Sub

をすると、
「実行時エラー1004　アプリケーション定義またはオブジェクト定義のエラーです。」

になります。

しかしなぜかRangeの前にSheets("Sheet1")を入れて

Private Sub CommandButton1_Click()
Windows("Book2.xls").Activate
Sheets("Sheet1").Range("a1").Select
End Sub

にすると、問題なく実行できます。

Book1.xlsにもBook2.xlsにも「Sheet1」と言う名のシートはあります。

なぜ、Sheets("Sheet1").を入れるとエラーにならないのか教えてください。

回答No.1

keithin · ベストアンサー

＞アクティブエックスのコマンドボタンを設置して

このとき、マクロは「シートモジュール」に記載されます。
シートモジュールとは、ＶＢＥ画面でプロジェクトエクスプローラからブックのプロジェクトを展開した時に、「Sheet1」などをＷクリックして開いた「シート自身に取り付いているマクロモジュール」のことです。

ちなみに一方、一般のマクロは「標準モジュール」に記載します。
標準モジュールは、ブックに対してＶＢＥ画面で挿入メニューから標準モジュールを挿入したモジュールです。ブックに格納されていて、個別のシートと直接結びつきがありません。

以上の２種類のモジュールシートがある（ちなみにもう一つ、クラスモジュールというのもありますが今は関係ない）事を理解したうえで、ご質問についてです。

標準モジュールで
range("A1")
をただ呼び出すと、それは「アクティブシートの」Ａ１セルが暗黙で宣言されます。

一方シートモジュールで
range("A1")
をただ呼ぶと、それは「シートモジュールが取り付いているシートの」Ａ１セルが暗黙で宣言されます。

従って標準モジュールで
sub macro1()
range("A1") = 123
end sub
と記入すれば、このマクロはいつでもアクティブシートのＡ１セルをタッチします

でもご相談のようにシートモジュールに記載された
private sub CommandButton1_Click()
worksheets("Sheet2").select
range("A1") = 234
end sub
はアクティブシートとは無関係に、常に「自分シートのＡ１セル」を参照します。

シートモジュールから他のシートのセルを触るには、常に明示的に
ワークシートオブジェクト.range("A1")
あるいは今回ご相談のように
目的のブックオブジェクト.目的のシートオブジェクト.range("セル番地")
のように、イチイチ指定してやる必要があるということです。

お礼

コマンドボタンからマクロを実行すると、シートモジュールから起動することになり、
表示されてないだけで常に「コマンドボタンが設置してあるシートの」となってしまうのですね。
ありがとうございました。大変参考になりました。