エクセルで、
1行目 項目名
2行目以降 各データ
60行目 上記のデータの合計
61行目~70行目 メモ
としています。
2行目以降の何行かは入力済みですが、59行目までは空欄です。
ここを印刷せず、空のセルを詰めて、60行目~70行目のメモまでを印刷したいです。
例えば、3行目まで入力が行われていた場合、印刷結果として
1行目+2行目++3行目+60~70行目
となるようにしたいです。一発印刷ができればベストです。
入力されていないところを都度非表示にしたり、印刷する部分だけ選択するのもよいのですが、印刷する回数が多いので、手間がかからない方法を教えてほしいです。
VBAには疎いのですが、記載された内容をいただいて貼り付けたり、チェックすることは可能です。
また、マクロを使わなくてもできる方法があれば、そちらのほうが助かります。
No.2ベストアンサー
- 回答日時:
シートコピーして空白行を削除して印刷プレビューを表示してるだけでよろしければ以下でどうぞ。
Sub 空白行削除でプレビュー表示()
Dim i As Integer
ActiveSheet.Copy after:=ActiveSheet
With ActiveSheet
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For i = 70 To 2 Step -1
If WorksheetFunction.CountA(.Range("A" & i & ":AB" & i)) = 0 Then
.Rows(i).Delete
End If
Next i
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
.PrintPreview
End With
End Sub
No.3
- 回答日時:
こんばんは!
VBAになりますが一例です。
とりあえず空白行は非表示にして、印刷プレビューまでの操作としています。
尚、再表示の操作も必要になると思いますので、
コードを二つ載せておきます。
Alt+F11キー → メニュー → 挿入 → 標準モジュール → VBE画面に
↓のコードをコピー&ペースト → Excel画面に戻りマクロを実行してみてください。
(Alt+F8キー → 実行したいマクロを選択 → 実行です)
Sub 印刷プレビュー()
Dim i As Long
With ActiveSheet
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If WorksheetFunction.CountA(Rows(i)) = 0 Then
Rows(i).Hidden = True
End If
Next i
.PrintPreview
End With
End Sub
Sub 再表示()
ActiveSheet.Rows.Hidden = False
End Sub
こんなんではどうでしょうか?m(_ _)m
No.1
- 回答日時:
何列利用されてるのかわかりませんが仮に3列(A~C列)の印刷範囲としたら
A1:C59の範囲を選択した状態で、エクセルのメニューから「データ」>「フィルタ」を選択して頂き
設定されたフィルタの[▼]をクリックしてから「(空白セル)」のチェックボックスを外して
印刷というのは手間ですか。
であれば上記作業でフィルタを作成してから、
エクセルのメニューより「開発」>「マクロの記録」をクリックしてマクロの記録ウィンドウを出します。
「マクロ名」を分かりやすい名前を付けて(必要であればショートカットキーを設定可能)
「OK」をクリックします。
実際に【A1の[▼]をクリックして「(空白セル)」のチェックボックスを外す】作業を行ってから
「開発」>「記録終了」をクリックしてください。
エクセルのメニューから「表示」>「マクロ」とクリックして頂き、上記で付けられた名前のマクロを一覧から選択して
「実行」をクリックしてください。
「フィルタで空白セルを外す作業」をこのマクロでできるようになります。
作成したマクロの実行方法ですが、上記方法以外にも色々ありますのでご参考ください。
・ショートカットを設定している場合はショートカットキーの入力だけでマクロを実行することができますのでさらにお手軽です。
・セルに図形(オートシェイプ)を挿入して、シェイプを右クリックして「マクロの登録」を選び、作成したマクロを登録すると
シェイプをクリックすることでもマクロを実行することができるようになります。
・クイックアクセスツールバー(エクセルオプション>ユーザー設定から設定可能)の設定で、コマンドの種類を「マクロ」にすると作成したマクロが一覧に表示されますので、選択してから「追加」でタイトルバーにマクロ実行用のボタンが作成されます。
この回答への補足
列はABまで使ってます。
質問に書いた61~70行はメモをあちこち(A61:AB70)に書いているため、この方法だと入力をチェックするセルを準備すれば可能だと思います。(たとえば、A2に=COUNTA(B2:AB2)として、正の整数であることを条件とするとか。)
しかし、できればそういった小手先の手法は取りたくないです。セルの数も自分としては扱うのが面倒な量になってきているので増やしたくないもので…。
なので、できれば
「印刷プレビュー」ー「印刷」
でできるくらい簡単に印刷してほしいと思っています。
マクロであれば、マクロボタン一つで印刷の手前まではいくでしょうから…と勝手に思い込んでいます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルVBAで次の二つを行いたいのですが思うように動きません。どう修正したらよいのでしょうか? 2 2023/04/22 14:55
- その他(ソフトウェア) 写真の印刷レイアウトについて 13 2023/05/31 07:20
- その他(パソコン・スマホ・電化製品) Googleカレンダーで不要データを一括削除したい 1 2023/08/02 12:42
- Visual Basic(VBA) エクセル365のVBAで困っています。どう修正したらよいか添削をお願いします 2 2023/05/03 17:35
- Excel(エクセル) エクセルの散布図で新たに入力した値のデータラベルが空欄になる現象 1 2022/04/26 09:31
- 会計ソフト・業務用ソフト 一太郎で封筒の宛名印刷したいです。 1 2023/07/20 10:14
- Excel(エクセル) excelにおける転記マクロの書き方 2 2023/05/12 03:16
- Excel(エクセル) エクセルの印刷範囲をページ単位で可変にする方法 3 2022/05/23 13:04
- Visual Basic(VBA) VBAで不特定枚数印刷をしたいです。 4 2022/08/02 07:30
- Excel(エクセル) セルによって印刷するシートを変える方法 EXCEL-VBA 2 2022/08/01 20:48
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
エクセルの空白の行を印刷しない方法
Excel(エクセル)
-
数式による空白を無視して印刷するマクロ
Excel(エクセル)
-
エクセルで空白の部分を印刷範囲外にする方法
Excel(エクセル)
-
-
4
エクセルで空行を印刷しない方法
Excel(エクセル)
-
5
エクセルの空白セルをのぞいて印刷するには?
Excel(エクセル)
-
6
空白セル(関数入ってます)を印刷しない
Excel(エクセル)
-
7
VBA 複数セルが空白なら印刷させない
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
EXCELのVBAでRange("A1:C4")を...
-
一つのTeratermのマクロで複数...
-
Excel VBAからAccessマクロを実...
-
メッセージボックスのOKボタ...
-
非表示の列をすべて削除するマクロ
-
エクセルに張り付けた写真のフ...
-
エクセルで別のセルにあるふり...
-
ExcelのVBA。public変数の値が...
-
ExcelVBAでPDFを閉じるソース
-
VBA アドインについて お詳しい...
-
TERA TERMを隠す方法
-
マクロで空白セルを詰めて別シ...
-
EXCELマクロでのThisisWor...
-
サクラエディタ・マクロ → VSCo...
-
エクセルマクロ自動更新
-
[初心者です]VBAで指定列か...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
エクセルで別のセルにあるふり...
-
ExcelのVBA。public変数の値が...
-
エクセルに張り付けた写真のフ...
-
ExcelVBAでPDFを閉じるソース
-
EXCELのVBAでRange("A1:C4")を...
-
Excel VBAからAccessマクロを実...
-
TERA TERMを隠す方法
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
マクロ実行時、ユーザーフォー...
-
Excelのマクロについて教えてく...
-
ソース内の行末に\\
おすすめ情報