質問NO：325404 の続きのような感じですが・・。 エクセルマクロ教えて下さい～！

質問

私も、同じ悩みで苦戦していたので、回答のマクロを作成して、応用させていただきました。
本当に助かりました！ありがとうございます。

ですが、マクロを走らせるブックのシート数が、それぞれ異なります。
その場合、”あるシートすべてを選ぶ”　場合はどんなプログラムを組み込めばいいのでしょうか？

教えて下さ～い！

回答No.3

nishi6 · ベストアンサー

マクロ記録を行ったのであれば、
　シート単位に選ぼうが、
　シートタブを右クリックし、全てのシートを選択しようが、記録されるマクロは、

Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select　・・・・・（Ａ）

のようなものではないでしょうか。（シートが３つの場合）これでは、汎用のマクロにはならないでしょう。

（Ａ）の部分を汎用に書き換える例として、
WorksheetsコレクションオブジェクトのSelectメソッドを利用してみます。

（Ａ）の行を削除して下の7行に書き換えてみて下さい。そのBookの全ワークシートを選択するはずです。

ここから
↓
Dim ws As Worksheet 'ワークシート
Dim FLG As Boolean '追加選択するためのフラグ
FLG = True
For Each ws In Worksheets
　　ws.Select FLG
　　FLG = False
Next
↑
ここまで

Arrayの中身を作る方法もありますが、こちらが簡単だと思います。ご参考に。

回答No.2

imogasi

下記のようなのもあります。
Bookの中の全てのＳｈｅｅｔに何かを行う時使えませんか。
ただBookの中の全てのＳｈｅｅｔに、同じかプログラム化
出来る事ってあまり考えつかないですが。
Sub test04()
Workbooks(1).Activate
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Sheets
' MsgBox sh.Name
Workbooks(1).Sheets(sh.Name).Range("b1") = "s"
Next
End Sub

お礼

ありがとうございました。

ただ、ちょっとご説明いただいた内容が私にはむずかしくて・・。
マクロは奥が深いですね。
もっと勉強してみます！

回答No.1

BlueRay

>”あるシートすべてを選ぶ”
とは、存在するシート全てと言うことですか？

それなら、質問NO：325404にある通りの３番で出来ないですか？？？
(3)シートを作業グループとする。（シート見出しを右クリックし、全てのシートを選択する。をクリック）

以上です。違ってたりしたら、補足してください。ではでは。

お礼

ありがとうございました。
説明不足ですみません。
一応、伺いたかったことはそれぞれの異なるシート数のブックに　マクロを走らせたかったんです。

結果は、
Sheets().Copy
Sheets().Select　でやってみたらいけました。

早速のご回答ありがとうございました！