【EXCEL-VBA】アクティブでないシートへのセルの移動について

Question

お世話になります。
セルの選択について教えて下さい。

"Sheet1"がアクティブの時は以下のMacro1で動作します。
ところが、"Sheet1"がアクティブでなく、
他のワークシートを開いている時に
Macro1を実行するとエラーで動作しません。

作業中のワークブックの中にあるシートですし、
シート名も記載しているのに
何が原因でエラーになるのでしょうか？


記録マクロを利用したところ、
Macro2のようになり、
このコードなら、"Sheet1"以外の
ワークシートを開いている場合でも
エラーが出ないでマクロを実行できます。

すごく基本的なことなのですが、わからなくて不思議に思っています。

すいませんが詳しい方、説明の上手な方、直接、コードで説明できる方、
お手数ですが教えて下さい。よろしくお願いします

--------------------
Sub Macro1()

Worksheets("Sheet1").Range("A1").Select

End Sub

--------------------
Sub Macro2()

Sheets("Sheet1").Select
Range("A10").Select
    
End Sub

d-q-t-p · Accepted Answer

> ところが、"Sheet1"がアクティブでなく
シートがアクティブでないからセルを選択できない。
ただそれだけのことですね。

Application.Goto Worksheets("Sheet1").[A1]

WindFaller · Answer

こんにちは。

>頂いたコードですが
>標準モジュールに貼り付けて実行してみたのですが、
>エラーで止まりました。

そうでしたか、その前提を言っていませんでしたから、しょうがなかったと思います。
「個人用マクロブック(PERSONAL.XLSB)」を対象にしていたのですが、「個人用マクロブック」がなければ、エラーが発生します。
その対象となるブックは、開いているブックで、今アクティブでない標準のブックなら、何でも良かったです。

ただ、アドインは、今、ためしてみましたが、ActiveSheet を持たないようです。

>VBAエキスパート
向学心がおありになるようですね。
広く浅くやっていて、その中で自分はこれだと思うものがあれば、深めればよいかと思います。

エキスパート試験は、お金が惜しくて受験はしませんでしたが、VBAエキスパートの本やアプリで勉強したことはあります。

ご紹介（私は、時々、忘れたころに、VBAテスト2 をやることにしています。)
作者、日経BP21 の芳坂氏
http://hp.vector.co.jp/authors/VA016119/excel/excel.html

挑戦！ Excel VBA テスト 　(90点でした。引っ掛け問題があります。)
http://hp.vector.co.jp/authors/VA016119/excel/test1.html

Excel VBA テスト 2 (ベータ版)
http://hp.vector.co.jp/authors/VA016119/excel/test2.html
内容は古いし、正誤問題ではあっても、全部「誤」を選べばよいのですが、その理由が問題です。最初、一個たりとも理解できませんでした。

ただ、自分の上達に合わせて、芳坂氏の考え方が見えてくるのです。それに従う必要性はないものの、納得すれば、ある程度同じような書き方になることは間違いないのです。

私も、こうしたベテランの人たちから、「教えて！goo」で教わった書き方を含めて、今の私のVBAの考え方につながっています。もちろん、テスト２は、正解などありません。解説もありませんから、この解答を教えてくれる人も少ないだろうと思います。

例：
'選択セル範囲内の可視セルを取得します。
Sub Test1()
　　 Dim r As Range
　　 Set r = Selection.SpecialCells(xlVisible)
　　　If Not (r Is Nothing) Then MsgBox r.Address
End Sub

VBAエキスパートのスタンダードの項目をみると、何やら、だいぶ違うスタンスにあるような気がしますが、大村あつしさんが、新しくExcel のために、API の本を出版しましたね。さて、どうなるのか、書籍の内容も見ていませんから、よく分かりません。

VBAは、急に変わる可能性があります。一般的には、VBAは古臭くて嫌われているようにも聞いていますが、他に柔軟な対応でできるかというと、私自身怪しいです。

そこで、私が今、Excel関連で、気になるサイトを紹介します。
いずれ、何かの参考になると思います。

リボン
http://www.rondebruin.nl/

アドイン
https://excel-dna.net/

日本語：
https://www.ka-net.org/blog/?cat=4

なお、BAは不要ですから、ご遠慮無く。

WindFaller · Answer

こんにちは。

>すごく基本的なことなのですが、わからなくて不思議に思っています。

私は、VBAを知ってから、もう十年以上経ちますが、今でも、そういうことが変だなって思う時があります。

Active というメソッドと、ActiveCell やらActiveSheet というものとは、根本的に違うものなのでしょうね。これに、Select というメソッドが加わると、またまたややこしくなりそうです。

Select メソッドにも、Worksheet.Select(オプション)というものがあります。Active は一つ選びますが、Select は、複数を選べます。

Workbook には、アクティブにしなくても、ActiveSheet いうものは存在するってご存知ですか？

また、当然、それぞれに、ActiveCell は存在するというわけです。多次元宇宙のようです。

以下のマクロは、結構驚きます。いままでの認識がガラッと変わるからです。
'//個人用マクロブック

Sub TestActive1()
Dim wb As Workbook
Dim sh As Worksheet
Dim rng As Range
'任意の常駐している、アクティブでないブック
Set wb = Workbooks("PERSONAL.XLSB")
Set sh = wb.ActiveSheet

MsgBox "1. アクティブシート" & vbCrLf & _
　　　　sh.Name & " : " & sh.Parent.Name
Set rng = wb.Windows(1).ActiveCell　　'*

MsgBox "2. アクティブセル、シート名、ブック名" & vbCrLf & _
　rng.Address & " : " & rng.Parent.Name & " : " & rng.Parent.Parent.Name
End Sub
'//

*ActiveSheet から取れればよいのですが、これも不思議ですが、ActiveSheet とActiveCell は、直接のつながりを持たないようです。おそらく、ActiveCell は、Worksheet　という個別のものに存在するからで、Sheet とは必ずしも一致しないからだと思います。Sheet には、Dialogsheet, ChartSheet, MacroSheet, Worksheet の4種類ありますが、それを統合してしまうと、ActiveCell があるものとないものが出てきてしまいます。

Worksheets("Sheet1").Range("A1")
これに、Workbookから書くと「コンテナ」といわれますね。たんに、Select できないだけで、そこの値自体は取れます。なぜ直接できないのかは、Select 自身の機能とも言えるし、仕様ということしか言えないように思います。

VBAでは、さほど、その場所に飛ぶということを必要としないので、あまりクローズアップされません。
Application.Goto というのは、たぶん、Application という中でオブジェクトを包合して、マップのようなものがあるから、飛べるのだと思います。

また、[A1] っていう書き方は、何かご存知なのでしょうか。
これって、Evaluate メソッドの省略なのですね。ところが、Evaluate ととしては、変数が使えますが、このカギカッコ内は、どうも変数が使えなさそうで、少なくとも私は知りません。便利な部分もあるのですが、必ずしもそうでないこともあります。

何年たっても知らないことも残っているものです。

x-1919 · Answer

セルを選択する場合は、対象セルがあるシートがアクティブになっていなければなりません。
アクティブじゃないシートのセルをいきなり選択しようとすると今回のエラーが出ます。

#1 さんのコードを丁寧に 2回の処理（アクティブにして、選択する）に分けると以下のコードになります。
Worksheets("Sheet1").Activate
Worksheets("Sheet1").Range("A1").Select

【EXCEL-VBA】アクティブでないシートへのセルの移動について

こんにちは。

こんにちは。

セルを選択する場合は、対象セルがあるシートがアクティブになっていなければなりません。

> ところが、"Sheet1"がアクティブでなく

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング