No.2ベストアンサー
- 回答日時:
No1です。
No1の回答にもお断りしておきましたが、B13は数値と想定した最低限のコードです。
>B13のには=IF(I13,I13,"")このような数式が入っていて
I13の内容がわかりませんが、こちらは必ず数値なのでしょうか。
""は文字列なので、No1のコードでは、1よりも大きいと判定され、印刷が実行されます。
空白文字列だけを除けばよいのなら、条件文を
If sh.Range("B13").Value <> "" And sh.Range("B13").Value >= 1 Then
などとしておけば除外することができます。
I13の内容が文字列の可能性がある場合には、文字列を除外する条件式に代えれば宜しいです。
もっと複雑なら、それに対応した判定条件にしておく必要があります。
シートがどうなっているのかわかりませんが、なんとなくの雰囲気からすると、B13セルを参照するのではなく、I13セルを直接参照するように変えれば、No1のコードのままで動作するような気もしますが・・
No.1
- 回答日時:
こんにちは
ごく簡単に記述するなら、
Sub Sample()
For Each sh In Worksheets
If sh.Range("B13").Value >= 1 Then sh.PrintOut
Next sh
End Sub
といった感じでしょうか。
※ 全てのシートの「B13セルの値は数値である」ことを前提にしています。
>一括で印刷できるようにしたいのです。
上記のコードは、厳密には「一括」というわけではなく、「該当シートを順に」印刷するというものです。
結果的には、同様になると思いますが。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Excel(エクセル) エクセルのフッタやヘッダーについて 3 2023/02/04 09:45
- Excel(エクセル) エクセル バーコード作成で他のシートを参照するには? 2 2023/05/03 16:57
- Excel(エクセル) エクセルの条件付き書式 個人シートを参照して集計シートに色付けしたい 1 2023/06/22 00:39
- Visual Basic(VBA) ExcelのVBAを使い、複数シートの同一箇所を、同一条件にて一括でソルバーを回す方法について 1 2022/04/23 11:49
- Excel(エクセル) ユーザー定義について質問です。 2 2023/06/28 13:21
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Excel(エクセル) エクセルで条件付き書式を使わずにセルの文字の色を変える方法を教えて下さい 8 2023/07/28 01:15
- Excel(エクセル) excelで検索した商品の画像(ネットワーク上の)を表示させたい。 3 2023/06/28 00:32
- Excel(エクセル) Excelで特定の文字列を判定し計算する数式を教えて下さい。 1 2022/05/01 12:04
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
条件によって印刷するシートを変える方法 EXCEL-VBA
Excel(エクセル)
-
エクセルでデータがあるシートだけ印刷するマクロ
Excel(エクセル)
-
EXCEL マクロ 条件の合ったシートだけ印刷したい
Excel(エクセル)
-
-
4
エクセル VBA 条件つきの印刷
Excel(エクセル)
-
5
Excel 入力のある行だけ印刷したい
Excel(エクセル)
-
6
エクセルで、特定のシートを印刷するVBA
Excel(エクセル)
-
7
マクロで印刷→セルの値から部数変更するには
Excel(エクセル)
-
8
数式による空白を無視して印刷するマクロ
Excel(エクセル)
-
9
エクセルで空白の部分を印刷範囲外にする方法
Excel(エクセル)
-
10
セルの数字によって、印刷するシートを変えるマクロ
Excel(エクセル)
-
11
印刷範囲の可変
Excel(エクセル)
-
12
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
13
空白セル(関数入ってます)を印刷しない
Excel(エクセル)
-
14
Excelで、離れた複数の印刷範囲からなる4種の印刷パターンを、関数で切り替え可能にしたいです
Excel(エクセル)
-
15
エクセルのマクロで印刷プレビューを閉じる方法
Excel(エクセル)
-
16
Excel2003 マクロ 1ページのみ印刷する
Excel(エクセル)
-
17
シート名一致すれば印刷、一致しなければメッセージbox
Visual Basic(VBA)
-
18
特定の文字を含むシートだけマクロ処理をしたい
Visual Basic(VBA)
-
19
特定のセルが空白だったら、その行を非表示にしたい。。。
Visual Basic(VBA)
-
20
エクセルVBAで、条件に一致するセルへ移動
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アップ...
おすすめ情報
ありがとうございます!
そのままコピペして実行させていただいたのですが、
全てのシートが印刷されてしまうようです。。。
ちなみに多分関係ないとは思いますがセルB13のには=IF(I13,I13,"")このような数式が入っていて該当のセルにはそれぞれリストから参照された数値が入っています。
なるほど!理解致しました!
頭の悪い式を入れてたばっかりに。。。
印刷でしか基本表自体使わないのでI13をB13にそのまま反映させて対応させて頂きました!
しっかりと印刷ができましたありがとうございます!