ドコモユーザーなら、ドコモ光が断然おトク

データシートには連番・氏名・プラン(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件)

文章を読ませてもらって考えた、「私が作るなら・・・こうする」というイメージ



<データ1>シート・・・必要な個人データが打ち込んである。
1.Aさん・・・Aプラン
2.Bさん・・・Bプラン
3.Cさん・・・Cプラン
4.Dさん・・・Aプラン
5.Eさん・・・Bプラン

<データ2>シート・・・各プランの詳細が打ち込んである。

<印刷用>シート・・・VLOOKUP関数などで、ひな型に<データ1><データ2>のデータが飛んでくる。
データを表示するひな形が作られている
変数に応じて、表示が変わる。

上記のような形であれば、連番で指定する連続印刷マクロを設定するだけでOKだと思います。
    • good
    • 0
この回答へのお礼

助かりました

ありがとうございます。
そうですね。その方が良さそうです。
フォーム作り直してみます。ありがとうございました。

お礼日時:2019/01/13 22:18

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング

おすすめ情報