[[20160530234541]] 『データを文書に反映させ印刷したい』(こう) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『データを文書に反映させ印刷したい』(こう)

シート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.