エクセルの学校：全文検索：Hyper Estraier：差し込み印刷

Results of 1 - 1 of about 296 for 差し込み印刷 (0.002 sec.)

[[20200720222149]]: #score: 8241; @digest: 74b1886794a5221237d855dfbcf31e48; @id: 84547; @mdate: 2020-07-21T00:54:14Z; @size: 2038; @type: text/plain; #keywords: cb400 (13718), 車” (7748), のg5 (3598), （cb (3532), 続印 (2908), モコ (2901), デモ (2713), 刷方 (2195), oneinstancemain (1968), ナ) (1755), 考察 (1654), 無知 (1434), し込 (1286), イク (1245), printpreview (987), 印刷 (946), 隠居 (933), 当方 (872), ベス (844), 差し (828), に差 (776), のc1 (763), 、sh (703), 行え (623), 居じ (598), じー (576), 知で (571), 連続 (553), マナ (476), （隠 (464), 、ワ (464), 2020 (454); 『マクロを使っての連続印刷』（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 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/202007/20200720222149.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ