2009/01/21

エクセルで差し込み印刷

会社の緊急連絡網を修正していて、配布先も同時に印刷しておきたいな~と思ってしまったからググってみました。

やっぱし、VBAを使用する必要があるみたい。

ここを参考にサクット作成してみた。。。。

  1. 印刷用シートと配布先一覧のシートを作成
  2. vlookup関数を使用して印刷用シートに配布先一覧が表示されるように設定。この時、番号を入力するセルも必要になる。
    こんな感じかな
    =VLOOKUP($J$52,配布先一覧!$A$1:$C$35,2,FALSE)
  3. VBAのコードを作成
    こんな感じ

    Sub 配布先印刷()

    ii = Range("J52").Value

    Do While Range("J52").Value <= Range("k52").Value Range("A1:I48").PrintOut
    Range("J52").Value = Range("j52").Value + 1
    Loop Range("J52").Value = ii

    End Sub


プログラマじゃないから、変数の設定とかこれでいいのかかなり微妙だけど、イメージどおりに動いているかいいかな。。。。。
かなり弱気。。。。。。。。


EmoticonEmoticon

注: コメントを投稿できるのは、このブログのメンバーだけです。