[[20060310130950]]　『シート１に下記名簿があり・・・』　ページの最後に飛ぶ

『シート１に下記名簿があり・・・』

 番号　氏名　支給額　支給月
 １　　Ａ　　　○円　　　○月
 ２　　Ｂ　　　○円　　　○月
 ３　　Ｃ　　　○円　　　○月

シート２に文書がある。
その中の文面に、下記のようにデータを入れて印刷したい。

「Ａさんの○月分は○円です。」

vlookupを使った場合は検索値を入力し、データが切り替わったところで、印刷という具合になると思うのですが、そうではなく印刷をかけると全てのシート１のデータが印刷できるようにできないのでしょうか？
教えて下さい。

 刺し込み印刷，ってことでしょうか。であれば，
 WORDに出力することができます。　　　　　　　(...)

エクセルには差し込み印刷の機能はないのでしょうか？
一太郎で差し込み印刷を以前していたのでどうなのかと思いまして・・・

 'エクセルでの差込印刷はマクロになると思います   で作ってみました

 '印刷シートのシートタブを右クリック→コードの表示下記コードをコピーして貼り付け
'印刷シートにもどり ダブルクリックで実行
'文字を差し込む位置に合わせてコードのセル番地を変更して下さい

 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

  Dim x As Long, i As Long

  x = MsgBox("差込印刷を開始します", vbYesNo)
  If x = vbNo Then Exit Sub

  With Worksheets("Sheet1")

     i = 2

     Do Until .Cells(i, 1).Value = ""

   '差込セル番地↓に変更する
     Me.Range("B3").Value = .Cells(i, 2) & "さんの" & .Cells(i, 4) & "月分は" & .Cells(i, 3) & "円です。"

     i = i + 1

     Me.PrintPreview  '連続印刷時はPrintOutに変更

     Loop
  End With
 End Sub

 '(kohe)

コメント返信：