[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『データを文書に反映させ印刷したい』(こう)
シート1のA列・B列・C列にデータがあり、シート2に文書があるとします。
シート1の適用なところに印刷ボタンを設置し、シート1の任意の行(出力したい行)を選択後、その印刷ボタンを押すと、A列・B列・C列にある値がシート2の文書に反映(3か所のセルに反映)し、印刷が可能なようにしたいと思っています。
※できれば、複数行選択した場合、その行数分を一度に印刷。
この場合のマクロおよびセルの数式等を教えてください。
初心者のため、よろしくお願いいたします。言葉足らずの点がありましたらご指摘ください。よろしくお願いいたします。
< 使用 Excel:Excel2003、使用 OS:WindowsXP >
3か所のセルがどこなのかわからないので 仮に A列->F10、B列->F20、C列->F30 にしてあります。
Sub Sample() Dim r As Range
With Sheets("Sheet2") For Each r In Selection.EntireRow.Rows .Range("F10").Value = r.Range("A1").Value .Range("F20").Value = r.Range("B1").Value .Range("F30").Value = r.Range("C1").Value .PrintOut Next End With
End Sub
(β) 2016/05/31(火) 00:10
素早いご回答、感謝します。
明日、試してみたいと思います。
ありがとうございました。
(こう) 2016/05/31(火) 00:21
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.