[[20140711161121]] 『Vlookup関数を使った連続印刷』(hamu) ページの最後に飛ぶ

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

 

『Vlookup関数を使った連続印刷』(hamu)

シートAとBがありまして、
シートAははがきの宛名を印刷する画面です。
シートBはデータが縦に番号1〜100までデータが並んでいます。

さて、シートBのセルA1にナンバーを入れることにより、VLOOKUP関数を入れた
シートAの宛名が切り替わる仕組みになっております。

組みたいマクロは、
シートBのマクロのボタンを押すと何番まで印刷するかのボックスが表示され、
仮に10番までであれば、10と入力すると、シートBのA1のセルに1を入力、
シートAに移り印刷、シートBに戻りA1に2を入力し・・・
と10までループするマクロを組みたいと考えています。
何卒ご指導下さいますようお願い申し上げます。

< 使用 アプリ:エクセル97、使用 OS:WindowsXP >


 こんなことでしょうか。
 Sub Sample()
    Dim pn As Long, i As Long
    pn = InputBox("何番まで印刷するか")
    For i = 1 To pn
        Worksheets("SheetB").Range("A1").Value = i
        Worksheets("SheetA").PrintOut
    Next
 End Sub

 動作確認のときは PrintOut を PrintPreview にしておけば、紙が無駄にならないですみます。
(Mook) 2014/07/11(金) 18:39

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.