

データシートには連番・氏名・プラン(A~C)の記載があります。
現在、手作業でプランごとにデータをまとめてからマクロで一括印刷するようにしています。
できればマクロで条件に合う印刷シートを判断し、最後のデータまで連続印刷設定をしたいのですがうまくできません。どなたかお知恵をお借りできますでしょうか?よろしくお願いいたします。
Sub 連続印刷()
Dim i As Integer
Dim LastRow As Integer
Worksheets("プランA").Select
With Worksheets("データ")
LastRow = .Range("A1").End(xlDown).Row
For i = 2 To LastRow
Range("B3").Value = .Range("A" & i).Value
ActiveSheet.PrintPreview
Next
End With
End Sub
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
文章を読ませてもらって考えた、「私が作るなら・・・こうする」というイメージ
<データ1>シート・・・必要な個人データが打ち込んである。
1.Aさん・・・Aプラン
2.Bさん・・・Bプラン
3.Cさん・・・Cプラン
4.Dさん・・・Aプラン
5.Eさん・・・Bプラン
<データ2>シート・・・各プランの詳細が打ち込んである。
<印刷用>シート・・・VLOOKUP関数などで、ひな型に<データ1><データ2>のデータが飛んでくる。
データを表示するひな形が作られている
変数に応じて、表示が変わる。
上記のような形であれば、連番で指定する連続印刷マクロを設定するだけでOKだと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの文字数列関数と競馬...
-
エクセルでフィルターした値を...
-
表計算ソフトでの様式の呼称
-
エクセルシートの見出しの文字...
-
エクセルに写真が貼れない(フ...
-
【マクロ】実行時エラー '424':...
-
【画像あり】【関数】指定した...
-
Office2021のエクセルで米国株...
-
【関数】3つのセルの中で最新...
-
LibreOffice Clalc(またはエク...
-
Excelで4択問題を作成したい
-
【画像あり】オートフィルター...
-
空白のはずがSUBTOTAL関数でカ...
-
エクセルのVBAで集計をしたい
-
Excelに貼ったXのURLのリンク...
-
エクセルのライセンスが分かり...
-
【マクロ】excelファイルを開く...
-
エクセルの複雑なシフト表から...
-
エクセルのリストについて
-
【関数】=EXACT(a1,b1) a1とb1...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【マクロ】実行時エラー '424':...
-
エクセルのVBAで集計をしたい
-
Office2021のエクセルで米国株...
-
【画像あり】オートフィルター...
-
vba テキストボックスとリフト...
-
他のシートの検索
-
【マクロ】【相談】Excelブック...
-
【マクロ】【配列】3つのシー...
-
【マクロ】元データと同じお客...
-
【マクロ】数式を入力したい。...
-
【マクロ】左のブックと右のブ...
-
エクセルの関数について
-
エクセルのリストについて
-
【マクロ】変数に入れるコード...
-
エクセルシートの見出しの文字...
-
【マクロ】excelファイルを開く...
-
【関数】3つのセルの中で最新...
-
エクセルの複雑なシフト表から...
-
【マクロ】【画像あり】❶ブック...
-
LibreOffice Clalc(またはエク...
おすすめ情報