[[20200720222149]]　『マクロを使っての連続印刷』（CB400）　ページの最後に飛ぶ

『マクロを使っての連続印刷』（CB400）

 ご質問させてください。
 仕事で大量の印刷を行う必要があるのですが、印刷方法が少し複雑で手間どっています。
 内容につきましては、Sheet1のG5に入力した内容が、Sheet2のA列に一致した場合は、
 Sheet2のB列を、Sheet1のC13に差し込んで印刷するといった感じになります。
 具体的には、

 （Sheet2）
　　　A　　　　　　　B
 1　車　　　　　　1111
 2　車　　　　　　2222
 3　バイク　　　　3333
 4　車　　　　　　4444
 5　バイク　　　　5555
 6　車　　　　　　6666
 7　車　　　　　　7777
 ～～～～
 約1,000行あります。

 Sheet1のG5が”車”と入力した場合に、Sheet2のA列が車のB列を、Sheet1のC13に
 差し込んで、自動で連続印刷が行えたらベストです。
 当方、マクロについては無知でありますが、なんとかご教示いただき助けていただきたいと
 思っております。

 ぜひ、よろしくお願いいたします。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

＞当方、マクロについては無知であります

であれば、ワードの差し込み印刷を使うことも検討してはどうでしょうか。

（マナ） 2020/07/20(月) 22:41

(マナ)さん

 確かに、ワードで差し込みをすれば出来ますが、
 なんとか、エクセルで行えれば助かります。
 ご教示いただけないでしょうか？
（CB400） 2020/07/20(月) 23:12

 おはよ～ございます。。。＾＾
新規ブックに ワークシート、Sheet1 、Sheet2　を作成後、お試しを、
印刷情報も自作自演のデモコードですが、ご考察の足しにでも。。。
ならなければ。。。ポイしといてくださいね。＾＾；
Option Explicit
Sub OneInstanceMain()
    Dim i             As Long
    With Worksheets("Sheet1")
        .UsedRange.Clear
        For i = 1 To 3
            .Cells(i, 1) = i
        Next
        For i = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
            With Worksheets("Sheet2")
                .Cells(5, 3) = Worksheets("Sheet1").Cells(i, 1)
                .PrintPreview
            End With
        Next
    End With
End Sub
（隠居じーさん） 2020/07/21(火) 08:11

 （隠居じーさん）

 回答ありがとうございます。
 参考にし、頑張って作成してみます。
 感謝です。
（CB400） 2020/07/21(火) 09:54

コメント返信：

[ 一覧(最新更新順) ]

[[20200720222149]] 『マクロを使っての連続印刷』（CB400） ページの最後に飛ぶ

[[20200720222149]]　『マクロを使っての連続印刷』（CB400）　ページの最後に飛ぶ