質問: excelで選択した番号のものだけ印刷する sheet(1)に一覧表形式で伝票の内容を作成してします。 a列 b列 c列 伝票番号 科目 支払金額 sheet(2)にsheet(1)の内容を伝票形式で印刷する為の印刷形式を作成しました。range("a1")に入力された伝票番号に従って印刷します。vlookupで参照しています。 sheet(3)には、sheet(2)で印刷する為の伝票番号入力セルと、印刷内容確認の為の表示部分と印刷のボタンを作りました。 現状は伝票番号を1個入力し、印刷ボタンを押すと言う作業を繰り返しています。例えば任意の1個~10個まとめて入力し一括印刷する方法を教えて下さい。 要するに伝票1枚の印刷の時もあれば10枚の時もあるという事です。
回答: #1のmshr1962です。同じシートで確認したのでシート名を変更し忘れてました。すみません。 sub macro1() dim x as integer for x = 4 to 13 worksheets("sheet(1)").range("a1") = worksheets("sheet(3)").range("b" & x) 印刷のマクロ next end sub 追記、前のままでエラーはしませんが、xを変数宣言していなかったので記述を追加してます。