No.2
- 回答日時:
「可能でしょうか」ってどれだけやってみたのか。
ーー
まずどういうVBAコードの、要素技術がいるのか考えましたか。
(組み合わせる前の、小さい単位での、したいことができるコード)
2,3しかないよ。
ーー
(1)セルA1が空白でない
これぐらいIf文を使って書けるでしょう。
(2)印刷する
マクロの記録で判る
シート指定.Range("A1:H30").PrintOut
のようなコード
(3)繰り返しになることはわかるね。
繰り返しは
For Next
For Each Next
をまず考える。
「すべて」はおのずから限度はあるわけだが、この際は読み込んだブックの全てのシート
ーー
(3)は
Sub test02()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
MsgBox sh.Name
Next
End Sub
で、全シート名
がでることを確認して納得のこと。これにMsgBox sh.Name
のところが、選別、処理(=印刷)を入れる箇所になるのは分かるだろう。
(2)の「シートの指定」の部分に、Sh がそのまま使えるよ。
セルA1も、シート名 「Sh.」 で限定してね。Sh1.Range("A1")
No.3ベストアンサー
- 回答日時:
こんばんは。
Sub Test1()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
If sh.Range("A1").Value <> "" Then
sh.PrintOut 'Preview:=True
End If
Next sh
End Sub
単に、こんな風にすればよいのですが、VBAを動かす前に、印刷範囲だけは確認したほうがよいかもしれません。
--それなら、VBAの意味がないではないか、と思うかもしれませんがね。(^^; もちろん、それはそれなりに方法はあるのですが。--
印刷というのは、一旦、印刷が始まると、とまらないわけですから、それで、こんなことを言っています。
sh.PrintOut Preview:=True
最初は、こんな風にして、プレビューで調べてから、印刷実行という方法もあります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルVBAで複数のシート印刷設定 1 2022/09/07 12:03
- Visual Basic(VBA) エクセル365のVBAで困っています。どう修正したらよいか添削をお願いします 2 2023/05/03 17:35
- Visual Basic(VBA) VBAで不特定枚数印刷をしたいです。 4 2022/08/02 07:30
- Excel(エクセル) エクセルで条件付き書式を使わずにセルの文字の色を変える方法を教えて下さい 8 2023/07/28 01:15
- Excel(エクセル) セルによって印刷するシートを変える方法 EXCEL-VBA 2 2022/08/01 20:48
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Excel(エクセル) エクセルのマクロで複数シートを両面印刷するには? 2 2022/12/08 23:23
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- Excel(エクセル) マクロでPDFを印刷する方法 3 2023/02/15 09:40
- Excel(エクセル) エクセルの印刷範囲をページ単位で可変にする方法 3 2022/05/23 13:04
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
条件によって印刷するシートを変える方法 EXCEL-VBA
Excel(エクセル)
-
EXCEL マクロ 条件の合ったシートだけ印刷したい
Excel(エクセル)
-
特定のセルに数値が入っているシートのみ印刷する方法
Excel(エクセル)
-
-
4
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
5
エクセルでデータがあるシートだけ印刷するマクロ
Excel(エクセル)
-
6
マクロで印刷→セルの値から部数変更するには
Excel(エクセル)
-
7
数式による空白を無視して印刷するマクロ
Excel(エクセル)
-
8
エクセルで、特定のシートを印刷するVBA
Excel(エクセル)
-
9
シート名一致すれば印刷、一致しなければメッセージbox
Visual Basic(VBA)
-
10
Excel 入力のある行だけ印刷したい
Excel(エクセル)
-
11
特定のセルが空白だったら、その行を非表示にしたい。。。
Visual Basic(VBA)
-
12
A1セルに入力したら、入力時間をA2セルに自動挿入
Excel(エクセル)
-
13
エクセル:VBAで特定のシートを選択し印刷
Word(ワード)
-
14
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
15
Excel2003 マクロ 1ページのみ印刷する
Excel(エクセル)
-
16
セルの数字によって、印刷するシートを変えるマクロ
Excel(エクセル)
-
17
エクセルで空白の部分を印刷範囲外にする方法
Excel(エクセル)
-
18
エクセルで「0(ゼロ)」を印刷しない方法
Excel(エクセル)
-
19
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
20
VBAで空白のセルを飛ばして差込印刷をするコード
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルファイルを開く時、常...
-
エクセル印刷時 一枚の書類に...
-
マクロで印刷→セルの値から部数...
-
エクセルの一部のセルの背景色...
-
1ヶ月分の日付を一度に出す方法...
-
EXCELで宛名だけ連続変更...
-
エクセルで行番号、列アルファ...
-
エクセルのマクロで複数シート...
-
エクセルのシート名を印刷した...
-
エクセルで横置きのシートにペ...
-
エクセルでシートの色がグレー...
-
エクセルVBAで日報自動印刷
-
Wordで差込印刷。テーブル...
-
条件によって印刷するシートを...
-
Excel 2シートを1枚に印刷した...
-
EXCELで、A3からA4に縮小印刷し...
-
エクセル 改ざん防止のため ...
-
エクセルで、ヘッダーに他のシ...
-
エクセルの複数シートをNアップ...
-
エクセルの行タイトルを特定の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルファイルを開く時、常...
-
エクセルの一部のセルの背景色...
-
エクセル印刷時 一枚の書類に...
-
1ヶ月分の日付を一度に出す方法...
-
マクロで印刷→セルの値から部数...
-
エクセルの行タイトルを特定の...
-
エクセルのマクロで複数シート...
-
Excel 特定のシートを印刷不可...
-
エクセルで複数のシートの1枚目...
-
エクセルでのヘッダーをページ...
-
エクセルでシートの色がグレー...
-
エクセルで行番号、列アルファ...
-
条件によって印刷するシートを...
-
EXCELで複数のシートを同時に印...
-
エクセルのシート名を印刷した...
-
エクセルで複数のシートを同じ...
-
エクセルで、ヘッダーに他のシ...
-
EXCELで宛名だけ連続変更...
-
Excelであるシートだけ印刷でき...
-
エクセルの複数シートをNアップ...
おすすめ情報