[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『印刷の振り分けマクロについて』(マロ)
シートA・B・Cの3シートがあります。
シートAのA1セルに✔が入力されている場合は、B・Cシートの2枚を
印刷し、それ以外は、Bシートのみ印刷するような、マクロを記録した
いのですが、教えていただけますか?
< 使用 Excel:Excel2013、使用 OS:unknown >
ベタなコードですが
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
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.