'リストを1行1枚の伝票形式で印刷するマクロ
Sub 個票発行()
Worksheets("個票").Activate
Dim 個票カウンタ As Integer
For 個票カウンタ = 1 To _
Application.WorksheetFunction.CountA(Worksheets("一覧表").Range("A1:A88"))
Range("B1") = 個票カウンタ
印刷
Next 個票カウンタ
End Sub
これだとA1からA88まですべて印刷してしまうのですが特定のセルに★印のある行のみ選択後印刷したければどういうマクロを組みいれればいいですか?お教えください。
No.1ベストアンサー
- 回答日時:
印刷したいデータには、シート"一覧表"のデータのとなりB列(B1からB88)に★印を入れることにした場合、下記でいけるはずです。
Sub 個票発行()
Worksheets("個票").Activate
Dim 個票カウンタ As Integer
For 個票カウンタ = 1 To _
Application.WorksheetFunction.CountA(Worksheets("一覧表").Range("A1:A88"))
Range("B1") = 個票カウンタ
If Worksheets("一覧表").Range("B" & 個票カウンタ) = "★" Then 印刷
Next 個票カウンタ
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの印刷マクロについて質問があります。 現在、下記のマクロで印刷しています。Sheet1のD6 5 2023/06/12 10:59
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- Visual Basic(VBA) エクセル365のVBAで困っています。どう修正したらよいか添削をお願いします 2 2023/05/03 17:35
- Excel(エクセル) エクセルVBAで次の二つを行いたいのですが思うように動きません。どう修正したらよいのでしょうか? 2 2023/04/22 14:55
- プリンタ・スキャナー 2台のプリンターでそれぞれ異なる様式の帳票を印刷したい。 2 2022/09/06 10:07
- Excel(エクセル) エクセルでキーリストからデータを取り出して1枚1枚印刷するには? 11 2022/06/27 09:52
- Visual Basic(VBA) Sheet3から2つの条件でオートフィルターで抽出した個数をSheet2へ入力するマクロで、一つ目の 4 2023/01/12 23:40
- その他(Microsoft Office) Excelのマクロについて教えてください。 1 2022/03/25 10:03
- Visual Basic(VBA) Sheet「状況」から、分類の年齢別カウント数をSheet「D表」へ転記する下記マクロを作っています 7 2022/12/14 17:57
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PDFファイルがカラー印刷できない
-
特定のファイルのみ印刷がされ...
-
【EXCEL】【VBA】空欄は飛ばし...
-
PDF印刷 一枚だけカラーにする方法
-
テプラー:KING JIM SR720 連...
-
PDFの印刷が途中で終わってしま...
-
PDFファイルを印刷すると黒くなる
-
Twitterの投稿を印刷コピーしたい
-
マクロ実行時 ウィンドウで実...
-
OutLookメールの一部分だけを印...
-
バックグラウンドとは?何度再...
-
エクセルを使って名簿を連続印...
-
印刷の行間が飛んで印刷される
-
大学のパソコンに印刷履歴は残...
-
PDFの印刷の仕方教えてください。
-
Webページ印刷時にヘッダー・フ...
-
右クリックができないページの...
-
Excelでナンバリング印刷をしたい
-
セルのフォント色と背景色
-
「アドレス帳」の印刷
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
特定のファイルのみ印刷がされ...
-
PDFファイルがカラー印刷できない
-
会社に提出する地図(自宅から...
-
パソコンが壊れて肝心なときに...
-
【EXCEL】【VBA】空欄は飛ばし...
-
PDFファイルを印刷すると黒くなる
-
テプラー:KING JIM SR720 連...
-
メールの画像が印刷できません。
-
エクセルを使って名簿を連続印...
-
手紙で字が汚い時の添え書きは?
-
Twitterの投稿を印刷コピーしたい
-
PDF印刷 一枚だけカラーにする方法
-
PDFの印刷が途中で終わってしま...
-
バックグラウンドとは?何度再...
-
印刷の行間が飛んで印刷される
-
PVC(ポリ塩化ビニール)の有害...
-
Wordで複数枚印刷しようと...
-
エクセルで複数ページを1枚に...
-
Windows 10 印刷出来ない
-
エクセルでコメント印刷すると...
おすすめ情報