[[20160825231609]] 『連続印刷のマクロについて』(ちょび) ページの最後に飛ぶ

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

 

『連続印刷のマクロについて』(ちょび)

どなたか教えてください。
セル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 >


そのvlookupの式を教えていただけますか

(マナ) 2016/08/25(木) 23:42


早速ありがとうございます。
会社で作っているデータなので手元にないのですが、
CP9の数字を元に表示するようにしています。
郵便番号の一桁目は mid(vlookup(CP9,選択範囲,例,false),1,1) です。
(ちょび) 2016/08/25(木) 23:58

なんだか、違うような気がしますが

 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


マナさま
できました!
ありがとうございました(^O^)/
(ちょび) 2016/08/27(土) 09:20

コメント返信:

[ 一覧(最新更新順) ]


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