No.3ベストアンサー
- 回答日時:
こんばんは。
以下のようにするのが一般的です。
Sub test1()
Dim sh As Worksheet
For Each sh In Worksheets
'数値のみ '文字を含むなら、CountA です。
If WorksheetFunction.Count(sh.Cells) > 0 Then
''sh.PrintOut '印刷
End If
Next
End Sub
No.2
- 回答日時:
何を対象で判断するのかが、はっきりとはわかりませんが・・・
それぞれのシートでUsedRangeあるいは、SpecialCells()などを利用してデータの有無を判定すればよいのでは?
例えば
sheet.cells.SpecialCells(xlCellTypeConstants, 23)
で、データ(数値、文字など)の入力されているRangeが返されます。
sheet.cells.SpecialCells(xlCellTypeFormulas, 23)
で、同様に式の入っているRangeを得ることが可能です。
(「編集」-「ジャンプ」-「セル選択」とほとんど同機能)
(Rnage.Countで対象セルの個数を得ることも可能です)
ただし、この方法の場合、該当セルがない場合はメソッドがエラーになるようですので、これを利用して判断すればよいかも。
UsedRangeは使用したレンジの範囲(矩形に変換)を返します。
こちらは、対象がない場合でも最低A1セルの1ヶ所が返されるようなので、個数だけでは単純に判断できません。
また、式や値をデリートしているセルでも(実際は何も入力されていない)、完全にクリアーされていないとカウントの対象になるようですので、注意が必要です。
(念のため、ForEachなどで各セルの内容をチェックする必要があるかもしれません。)
どのような判定をしたいのか不明ですので、質問者さんの使用状況に応じて選択してご利用ください。
それぞれの、詳細についてはヘルプなどを参照してください。
No.1
- 回答日時:
>データ(数値)が入っているワークシート
これはどのようにして判定しますか?
特定の行などにデータが入っているとデータがあると判定するのか、
シートでセルが一つでも使われていたらデータがあると判定できるのか?
はたまた別か?
などなど。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロで複数シートを両面印刷するには? 2 2022/12/08 23:23
- Excel(エクセル) セルによって印刷するシートを変える方法 EXCEL-VBA 2 2022/08/01 20:48
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- Excel(エクセル) エクセルでキーリストからデータを取り出して1枚1枚印刷するには? 11 2022/06/27 09:52
- Visual Basic(VBA) DisplayAlertsブロパティで ”実行時エラー424オブジェクトが必要です” 5 2022/05/15 18:02
- Excel(エクセル) 【マクロ】プリントスクリーンした画像をエクセルに貼付して印刷したい 6 2022/11/30 20:11
- Excel(エクセル) エクセルの印刷マクロについて質問があります。 現在、下記のマクロで印刷しています。Sheet1のD6 5 2023/06/12 10:59
- Excel(エクセル) 【Excel】複数シートがあるエクセルデータで片面印刷と両面印刷設定がシートごとに入 1 2023/03/10 15:25
- Visual Basic(VBA) VBAで不特定枚数印刷をしたいです。 4 2022/08/02 07:30
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
特定のセルに数値が入っているシートのみ印刷する方法
Excel(エクセル)
-
EXCEL マクロ 条件の合ったシートだけ印刷したい
Excel(エクセル)
-
条件によって印刷するシートを変える方法 EXCEL-VBA
Excel(エクセル)
-
-
4
エクセル VBA 条件つきの印刷
Excel(エクセル)
-
5
Excel 入力のある行だけ印刷したい
Excel(エクセル)
-
6
エクセルで、特定のシートを印刷するVBA
Excel(エクセル)
-
7
エクセルで空白の部分を印刷範囲外にする方法
Excel(エクセル)
-
8
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
9
マクロで印刷→セルの値から部数変更するには
Excel(エクセル)
-
10
数式による空白を無視して印刷するマクロ
Excel(エクセル)
-
11
特定のセルが空白だったら、その行を非表示にしたい。。。
Visual Basic(VBA)
-
12
エクセルのマクロで印刷プレビューを閉じる方法
Excel(エクセル)
-
13
Excel VBA あるセルでENTERを押すと特定のセルへ移動したい
Excel(エクセル)
-
14
エクセルで、ヘッダーに特定セル内容を指定して印刷したい
Excel(エクセル)
-
15
エクセルで特定の列が0表示の場合、その行を非表示にしたい
Excel(エクセル)
-
16
セルの数字によって、印刷するシートを変えるマクロ
Excel(エクセル)
-
17
VBA Cのセルが空白でなかったら、Aのセルに順番に数値を入力
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Aというブックの1というシート...
-
Excelの「0」だけ非表示、小数...
-
日付が未入力の際はゼロか、空...
-
エクセルで条件に一致したセル...
-
エクセルで1月0日と表示される!!
-
(Excel)あるセルに文字を入力...
-
Rangeメソッドは失敗しました。...
-
エクセルで複写のように自動入...
-
excelでハイパーリンクになって...
-
Excelシートの保護時にデータの...
-
シートAで横に並んだ項目→シー...
-
=HYPERLINK(VLOOKUPに関して。
-
別シートのセルを絶対参照にする
-
エクセルで20万行あるシート...
-
労基法の週40時間を超える時...
-
複数シートの同じセル内容を1シ...
-
マクロ 新しいシートにデータ...
-
エクセル A8と同じシート名のG...
-
エクセルで、加筆修正したセル...
-
エクセルで複数のシートの同じ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの「0」だけ非表示、小数...
-
日付が未入力の際はゼロか、空...
-
エクセルで条件に一致したセル...
-
エクセルで1月0日と表示される!!
-
(Excel)あるセルに文字を入力...
-
別シートのセルを絶対参照にする
-
Rangeメソッドは失敗しました。...
-
Excelシートの保護時にデータの...
-
複数シートの同じセル内容を1シ...
-
エクセルで、加筆修正したセル...
-
シート参照で変数を使いたい(EX...
-
エクセルで複写のように自動入...
-
Excelで複数シートの選択セルを...
-
INDIRECTを使わず excelで複数...
-
ExcelでTODAY関数を更新させな...
-
式の説明をお願いします。
-
excelでハイパーリンクになって...
-
エクセルのルビがついたセルを...
-
Excelでスクロールすると文字が...
-
エクセル ハイパーリンクで画像...
おすすめ情報