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
最初は、こんな風にして、プレビューで調べてから、印刷実行という方法もあります。
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")
お探しの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も見ています
-
風水の観点で選ぶ観葉植物とは?置き場所や上げたい運気ごとの注意点を紹介!
観葉植物で運気をアップするコツを、風水デザイン1級建築士の福島昌彦さんに伺った。
-
条件によって印刷するシートを変える方法 EXCEL-VBA
Excel(エクセル)
-
特定のセルに数値が入っているシートのみ印刷する方法
Excel(エクセル)
-
EXCEL マクロ 条件の合ったシートだけ印刷したい
Excel(エクセル)
-
-
4
数式による空白を無視して印刷するマクロ
Excel(エクセル)
-
5
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
6
エクセルでデータがあるシートだけ印刷するマクロ
Excel(エクセル)
-
7
マクロで印刷→セルの値から部数変更するには
Excel(エクセル)
-
8
エクセルで、特定のシートを印刷するVBA
Excel(エクセル)
-
9
Excel 入力のある行だけ印刷したい
Excel(エクセル)
-
10
シート名一致すれば印刷、一致しなければメッセージbox
Visual Basic(VBA)
-
11
エクセルで空白の部分を印刷範囲外にする方法
Excel(エクセル)
-
12
特定のセルが空白だったら、その行を非表示にしたい。。。
Visual Basic(VBA)
-
13
A1セルに入力したら、入力時間をA2セルに自動挿入
Excel(エクセル)
-
14
エクセル:VBAで特定のシートを選択し印刷
Word(ワード)
-
15
Excel2003 マクロ 1ページのみ印刷する
Excel(エクセル)
-
16
エクセルの空白の行を印刷しない方法
Excel(エクセル)
-
17
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
18
セルの数字によって、印刷するシートを変えるマクロ
Excel(エクセル)
-
19
エクセルで「0(ゼロ)」を印刷しない方法
Excel(エクセル)
-
20
日付を入力したセルをファイル名にして保存するには
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルファイルを開く時、常...
-
マクロで印刷→セルの値から部数...
-
エクセル印刷時 一枚の書類に...
-
エクセルの一部のセルの背景色...
-
エクセルのマクロで複数シート...
-
1ヶ月分の日付を一度に出す方法...
-
Excel 特定のシートを印刷不可...
-
エクセルの行タイトルを特定の...
-
エクセルでシートの色がグレー...
-
エクセルでのヘッダーをページ...
-
エクセルで行番号、列アルファ...
-
エクセルで複数のシートを同じ...
-
【Excel】複数シートがあるエク...
-
エクセルで複数のシートの1枚目...
-
Excel 2シートを1枚に印刷した...
-
EXCELで複数のシートを同時に印...
-
特定のシートのみ印刷できない...
-
Excelでシートを複数シート選択...
-
エクセルのページ設定を他のペ...
-
Excel等、同一の大きさでページ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルファイルを開く時、常...
-
エクセルの一部のセルの背景色...
-
エクセル印刷時 一枚の書類に...
-
1ヶ月分の日付を一度に出す方法...
-
マクロで印刷→セルの値から部数...
-
エクセルの行タイトルを特定の...
-
エクセルのマクロで複数シート...
-
Excel 特定のシートを印刷不可...
-
エクセルで複数のシートの1枚目...
-
エクセルでのヘッダーをページ...
-
エクセルでシートの色がグレー...
-
エクセルで行番号、列アルファ...
-
条件によって印刷するシートを...
-
EXCELで複数のシートを同時に印...
-
エクセルのシート名を印刷した...
-
エクセルで複数のシートを同じ...
-
エクセルで、ヘッダーに他のシ...
-
EXCELで宛名だけ連続変更...
-
Excelであるシートだけ印刷でき...
-
エクセルの複数シートをNアップ...
おすすめ情報