No.3ベストアンサー
- 回答日時:
それではこんなのではいかがですか?
--------------------------------------------------------------------------------
Sub Sample()
Dim 行 As Long
For 行 = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Trim(Cells(行, 1).Text) = "" Then
Cells(行, 1).ClearContents
Else
Exit For
End If
Next
ActiveSheet.PageSetup.PrintArea = _
Range(Cells(1, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 12)).Address
End Sub
--------------------------------------------------------------------------------
※ 知っているとは思いますが念の為です。お気を悪くしないように。
結果確認の時は、印刷してしまうと紙がもったいないので、印刷プレビューで確認してください。
ありがとうございました。無事動きました。ファイルが重いので若干処理が重いですが、シートをコピーする行程で、印刷範囲を自動化できるとかなり手間がはぶけます。
ありがとうございました。
No.2
- 回答日時:
こんばんは!
横からお邪魔します。
>別シートから値の貼り付けでコピーしているので、""が入っているのかもしれません・・・
それでは
Sub Sample1()
Dim cnt As Long
With ActiveSheet
cnt = 1
Do While .Cells(cnt, "A") <> ""
cnt = cnt + 1
Loop
.PageSetup.PrintArea = Range(.Cells(1, "A"), .Cells(cnt - 1, "AL")).Address
.PrintPreview
End With
End Sub
ではどうでしょうか?
※ 印刷プレビューでやめています。
※ 列範囲がA~ALとなるとおそらく横列は1ページに収まらないですね。m(_ _)m
ありがとうございました。
勉強になります。
色々試してみましたが、pagesetupの構文でエラーとなります。簡単なマクロならなんとかなるんですが、条件つけると、難しいです(^^;;
No.1
- 回答日時:
A列にデータが有る範囲ならば、以下で良いのでは?
--------------------------------------------------------------------------------
Sub Sample()
ActiveSheet.PageSetup.PrintArea = _
Range(Cells(1, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 12)).Address
End Sub
--------------------------------------------------------------------------------
ありがとうございました。
早速、試してみましたが、データが入力されていない範囲まで印刷されてしまいます。
印刷範囲を設定する前に、別シートから値の貼り付けでコピーしているので、""が入っているのかもしれません(・・;)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) セルによって印刷するシートを変える方法 EXCEL-VBA 2 2022/08/01 20:48
- Excel(エクセル) エクセルの散布図で新たに入力した値のデータラベルが空欄になる現象 1 2022/04/26 09:31
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- Excel(エクセル) エクセルのマクロについて質問があります。 sheet1に数字を入力してsheet2を印刷したいのです 2 2023/06/07 14:49
- Excel(エクセル) excelにおける転記マクロの書き方 2 2023/05/12 03:16
- Excel(エクセル) エクセルのマクロで複数シートを両面印刷するには? 2 2022/12/08 23:23
- Excel(エクセル) エクセルの印刷範囲をページ単位で可変にする方法 3 2022/05/23 13:04
- Excel(エクセル) 表内で、Enterキーで横→行の最後入力したら次の行の先頭に移動するマクロを作りたい 3 2022/05/01 21:19
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
- Excel(エクセル) 【マクロ】プリントスクリーンした画像をエクセルに貼付して印刷したい 6 2022/11/30 20:11
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
すべてのシートを選択してエク...
-
Excel VBA 答えが0になってし...
-
Excelのデータが重いのはなぜで...
-
エクセルで30日以内に同内容の...
-
合計が0の行を削除
-
ローマ字入力で「トゥ」を入力...
-
「未使用」と「不使用」ってど...
-
1点の辻の字に変換したいがエク...
-
Excelでエラー(#N/Aなど)値を...
-
ExcelでVBAを使用した際に、『...
-
モバイル通信ができない。
-
もしセルが"#N/A"なら~をする...
-
VLOOKUP関数についての質問です...
-
コマンドプロンプトが実行中か...
-
至急お願いします!! Wordで、...
-
excelで小数点0を表示させる方法
-
エクセルからアクセスにインポ...
-
VBAで「致命的なエラー」が出ま...
-
エクセルで0.0と表示したい
-
SUM関数の範囲に#N/Aが...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
すべてのシートを選択してエク...
-
Excelのデータが重いのはなぜで...
-
エクセルで時刻を自動入力する方法
-
Excel VBA 答えが0になってし...
-
エクセル。ブック内検索で重複...
-
エクセルの中の漢字を一度にカ...
-
EXCEL VBA 区切り位置のプログ...
-
合計が0の行を削除
-
エクセルで、「袋詰め問題」を...
-
名前順になる関数?
-
エクセル (1)行削除 (2)列追...
-
エクセルの入力規制。同じ列で...
-
スプレッドシートで、指定した...
-
excel関数orマクロ:データ入...
-
エクセルで漢字がうまく並び替...
-
エクセルのセルの表示形式(2...
-
エクセルで、まったく同じデー...
-
エクセルマクロについて データ...
-
エクセルの入力 エンターキーで...
-
エクセルで人名を50音順に表...
おすすめ情報