[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『連続印刷のマクロについて』(ちょび)
どなたか教えてください。
セルCP9に自の値を、CQ9に至の値を入力して、指定した間を連続印刷したくて、
下記のコードで連続印刷ができると教えてもらったのですが、実行するとCP9のデータしか印刷できません。データはvlookupで飛ぶようにしています。
コードが間違っているのでしょうか?
Sub 連続印刷()
Dim a, b As Integer
a = Range("CP9")
b = Range("CQ9")
ret = MsgBox("自〜至の範囲を印刷しますか?", vbYesNo + vbQuestion, ("連続印刷"))
If ret = vbYes Then For n = a To b Sheets("封筒").PrintOut Next Else MsgBox "印刷を中止します。開始番号を「自」に、終了番号を「至」に設定してください。" End If End Sub
< 使用 Excel:Excel2010、使用 OS:Windows7 >
(マナ) 2016/08/25(木) 23:42
Option Explicit
Sub 連続印刷() Dim a As Integer, b As Integer Dim ret As Integer Dim n As Integer
a = Range("CP9").Value b = Range("CQ9").Value
ret = MsgBox("自〜至の範囲を印刷しますか?", vbYesNo + vbQuestion, ("連続印刷")) If ret = vbYes Then For n = a To b Range("CP9").Value = n Sheets("封筒").PrintOut Next Else MsgBox "印刷を中止します。開始番号を「自」に、終了番号を「至」に設定してください。" End If
End Sub
(マナ) 2016/08/26(金) 00:09
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.