ｖｂａで全てのシートを選択状態にしたい 印刷

質問

マクロの記録で、全てのシートを選択すると、
Sheets(Array("シート１", "シート２")).Select
というのが取得できるのですが、
このコードはシート名が増えたり、シート名が変更されると、使えなくなってしまいます。

全てのシートを選択状態にして、印刷をするｖｂａをしたいのですが、
シートが増えても使えるｖｂａコードはありますか？

回答No.4

Nouble · ベストアンサー

VBAのVBEには式の結果を目視できるウオッチ(見るの英単語)機能があります。
これでお示しいただいた
Sheets(Array("シート１", "シート２"))
がどの様になっているか
を、見られては如何でしょうか？

Array(アレー)

お礼

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

回答No.3

K Kazz（@JazzCorp）

シートのカウンタを使って、Selectを繰り返せばシート対応の処理をしながら印刷できる。
ただ、ワークシートとグラフシート（専用）は別物なので、それぞれの処理を分けたい場合は、少しヤッカイに、、、

Option Explicit
Sub WatchOver()
Dim kk As Long
'ド～ン、とまとめて選択
Sheets.Select

'チマチマ、と選択
'Sheets.count = Worksheets.count + Charts.Count
For kk = 1 To Sheets.Count
Sheets(kk).Select

'～～～

Next
End Sub

ExcelVBA でのシートを選択する方法をまとめてみました。
《WorkSheetsコレクション, Charts コレクション, Sheets コレクション》
http://www.nurs.or.jp/~ppoy/access/excel/xlA004.html

お礼

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

回答No.2

Nouble

確認できない環境に、今いるのでご容赦を、

ウオッチでアレーしている全体を見ると、
どうなってます？

それと同じものって作れそうですか？

お礼

「ウオッチでアレー」とはなんでしょうか？

回答No.1

keithin

＞全てのシートを選択状態にして、印刷

sub macro1()
activeworkbook.printout
end sub
でいいです。

お礼

それ専用のコードがあったのですね。
助かりました。