[[20060112144335]]　『全件印刷マクロで、ある場所の金額が￥０だったら』（マクロ初心者王）　ページの最後に飛ぶ

『全件印刷マクロで、ある場所の金額が￥０だったら印刷しない設定』（マクロ初心者王）

請求書の発行で1～100人分の請求書を印刷マクロで全員分印刷せよ！と作りましたが、請求書が必要ない人の場合（名前のみで金額が￥０の人）のみ印刷しないというマクロはどのようにすればいいでしょうか？
マクロ内容は以下のとおりです。ここで参照したい場所がB3~B93の部分でここに表示されている金額が\0の場合です。
わかりづらい説明で申し訳ありませんがよろしくお願いいたします。

 'リストを1行1枚の伝票形式で印刷するマクロ
 Sub 請求書()
      Worksheets("請求書").Activat
      For 伝票カウンタ = 1 To _
         Application.WorksheetFunction.Count(Worksheets("入力フォーム").Range("A3:A96"))
         Range("C2") = 伝票カウンタ
 　　　　一件印刷
       Next 伝票カウンタ
 End Sub

 sub 一件印刷 ' 一件印刷 Macro
 ' マクロ記録日 : 2005/12/31  ユーザー名 :  マクロ初心者王
 '
 '
    Range("A4:H4").Select
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.SmallScroll Down:=30
    Range("A4:W65").Select
    ActiveSheet.PageSetup.PrintArea = "$A$4:$AB$73"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

 こんな感じでしょうか。
Sub 請求書改()
Dim 伝票カウンタ As Long
    Worksheets("請求書").Activate
    For Each 伝票金額 In Worksheets("入力フォーム").Range("A3:A96")
        伝票カウンタ = 伝票カウンタ + 1
        If 伝票金額 <> 0 Then
            Range("C2") = 伝票カウンタ
            一件印刷
        End If
    Next 伝票金額
End Sub

 （川野鮎太郎）

コメント返信：

[ 一覧(最新更新順) ]

[[20060112144335]] 『全件印刷マクロで、ある場所の金額が￥０だったら』（マクロ初心者王） ページの最後に飛ぶ

[[20060112144335]]　『全件印刷マクロで、ある場所の金額が￥０だったら』（マクロ初心者王）　ページの最後に飛ぶ