[[20171010115017]] 『印刷の振り分けマクロについて』(マロ) ページの最後に飛ぶ

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

 

『印刷の振り分けマクロについて』(マロ)

シートA・B・Cの3シートがあります。
シートAのA1セルに✔が入力されている場合は、B・Cシートの2枚を
印刷し、それ以外は、Bシートのみ印刷するような、マクロを記録した
いのですが、教えていただけますか?

< 使用 Excel:Excel2013、使用 OS:unknown >


すいません。
上記質問の追加変更です。
シートA・B・C・Dの4シートがあります。
シートAのA1セルのみに✔が入力されている場合は、A・B・Cシートの3枚を
シートAのA2セルのみに✔が入力されている場合は、A・B・Dシートの3枚を
シートAのA1・A2セルの両方に✔が入力されている場合は、A・B・C・Dシートの4枚を
印刷し、それ以外は、A・Bシートのみ印刷するような、マクロを記録した
いのですが、教えていただけますか?
よろしくお願いします。
(マロ) 2017/10/10(火) 12:02

 ベタなコードですが

 Sub 印刷()

     With Sheets("A")
         If .Range("A1").Value = "レ" And .Range("A2").Value = "レ" Then
            Sheets(Array("A", "B", "C", "D")).PrintOut
         Else
            If .Range("A1").Value = "レ" And .Range("A2").Value = "" Then
               Sheets(Array("A", "B", "C")).PrintOut
            Else
               If .Range("A1").Value = "" And .Range("A2").Value = "レ" Then
                  Sheets(Array("A", "B", "D")).PrintOut
               Else
                  Sheets(Array("A", "B")).PrintOut
               End If
            End If
         End If
     End With

 End Sub
(bi) 2017/10/10(火) 13:58

有難うございました。
研究してみます。
追加・訂正の仕方がわからずに、ご迷惑をおかけしました。
(マロ) 2017/10/10(火) 23:43

コメント返信:

[ 一覧(最新更新順) ]


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