|
いつもお世話になっております。
Sheet(エネ)の範囲に値が入った場合、Sheet(メニュー)のC10〜J10に「印刷」と言う文字が入ります。
モジュールは、Sheet(エネ)のSheetモジュールに書いてます。
コンパクトにできますか?
宜しくお願いします
Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets("メニュー").Range("C10").Value = IIf(Range("C13").Value = "" And Range("C14").Value = "", "", "印 刷")
Worksheets("メニュー").Range("E10").Value = IIf(Range("C64").Value = "" And Range("C65").Value = "", "", "印 刷")
Worksheets("メニュー").Range("G10").Value = IIf(Range("C115").Value = "" And Range("C116").Value = "", "", "印 刷")
Worksheets("メニュー").Range("I10").Value = IIf(Range("C166").Value = "" And Range("C167").Value = "", "", "印 刷")
Worksheets("メニュー").Range("D10").Value = IIf(Range("C219").Value = "" And Range("C220").Value = "", "", "印 刷")
Worksheets("メニュー").Range("F10").Value = IIf(Range("C248").Value = "" And Range("C249").Value = "", "", "印 刷")
Worksheets("メニュー").Range("H10").Value = IIf(Range("C277").Value = "" And Range("C278").Value = "", "", "印 刷")
Worksheets("メニュー").Range("J10").Value = IIf(Range("C306").Value = "" And Range("C307").Value = "", "", "印 刷")
End Sub
|
|