[[20060203115826]]　『差し込み印刷』（さとみ）　ページの最後に飛ぶ

『差し込み印刷』（さとみ）
エクセルで、ワードのような差し込み印刷をする方法はありますでしょうか？
Excel2000
Windows2000

 マクロになりそうですが～
 上の新・単語検索で差し込み印刷などで検索されると色々事例もありますよ＾＾
 (かなれっと)

作ってみました
シート1の住所録をシート2の印刷シートへ差し込みます

 sheet1

  A          B        C            D          E           F
 氏名	  郵便番号  住所1	     住所2      住所3	   電話
 横浜太郎 240-0000  横浜市・・コーポ505  ○×事務所	 
 横浜次郎 240-0001  横浜市・・コーポ506  ○×事務所	 
 横浜三郎 240-0002  横浜市・・コーポ507  ○×事務所

 sheet2
   A
 1 氏名
 2郵便番号
 3住所1
 4住所2
 5住所3

 sheet1のタブを右クリック コードの表示 下記コードを貼り付け
 sheet1 へもどり ダブルクリックで実行

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

  Dim x As Long
  Dim i As Long
  Dim ws As Worksheet
  Set ws = Worksheets("Sheet2")

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

  With Worksheets("Sheet1")

     i = 2

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

        ws.Range("A1") = .Cells(i, 1).Value  '名前         
        ws.Range("A2") = .Cells(i, 2).Value  '郵便番号
        ws.Range("A3") = .Cells(i, 3).Value  '住所1
        ws.Range("A4") = .Cells(i, 4).Value  '住所2
        ws.Range("A5") = .Cells(i, 5).Value  '住所3

     i = i + 1

      ws.PrintOut

     Loop
  End With
End Sub

A1からA5は実際のレイアウトに合わせて変更して下さい
(kohe)

 私の職場では、ワードで帳票を作るのが苦手で、少しでも罫線が入るものとなるとエクセルを使うという人が少なからずいるようです。
 で、時々その帳票を使っての差込印刷を頼まれるのですが、データを受け取ってみて初めて「うわっ、差し込むったってエクセルで帳票
作ってんじゃん！？」という状態になることがあります。
 そこで、「エクセルde差込印刷」なるものを作ってみました。
 数ヶ月前から作り始めたのですが、仕事の空き時間に少しずつ手を付ける程度なので、未だ自分のイメージには到達していません。です
が、とりあえず使用できるレベルにはなったと思うので、試しにアップロードしてみます。
 まだReadMeやヘルプファイルのようなものは作っていないので、適当にいじってみて下さい。
 また、マクロを正常に動作させるために処理制限をかけている部分もありますし、作成環境で少し動作確認しただけなので、予期せぬエ
ラーが起こるかもしれませんが、その辺はご了承下さい。

 Yahoo!ブリーフケース
http://briefcase.yahoo.co.jp/bc/siroto_sh/vwp2?.tok=bctxesWBsu2Uu86N&.dir=/d516&.dnm=%a5%a8%a5%af%a5%bb%a5%ebde%ba%b9%b9%fe%b0%f5%ba%fe+ver1.0.xls&.src=bc
 （シロ）

仕事の片手間にやってたら、時間がかかってしまいました。でも、なんとかコピーやらしてみたら、うまくできました。ありがとうございました。

コメント返信：

[ 一覧(最新更新順) ]

[[20060203115826]] 『差し込み印刷』（さとみ） ページの最後に飛ぶ

[[20060203115826]]　『差し込み印刷』（さとみ）　ページの最後に飛ぶ