[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『差込印刷について』(もーり)
シート1にフォームをつくりA5セルにシート2のA5、B5セルにシート2のC5を入れてプリントして2まいめにはシート2のB6・C6とする差込み印刷をしたいのですが、MyPRINT.XLSのページが参照できないのでどなたか教えていただけませんでしょうか?
< 使用 Excel:Excel2010、使用 OS:Windows7 >
質問が意味不明で申し訳ありません。
シート1 シート2
A B C A B C 1 2 3 4 5(ああ) (いい) ああ いい 6 うう ええ 7 おお かか 8 きき くく
のようなシートがありシート1のA5・B5にシート2のA列とB列を順番に入れ込んで
プリントしたいのですがご教授願えませんでしょうか。
(もーり) 2014/10/16(木) 17:25
Sub test() Dim wkSheet As Worksheet Dim i As Long
Set wkSheet = Sheets("Sheet2")
With wkSheet For i = 5 To .Cells(.Rows.Count, "A").End(xlUp).Row Range("A5") = .Cells(i, "A").Value Range("B5") = .Cells(i, "B").Value PrintOut DoEvents Next i End With End Sub (???) 2014/10/16(木) 17:36
ありがとうございました。できました。
これからも宜しくお願いいたします。
(もーり) 2014/10/16(木) 17:54
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.