- 締切済み
Excel2007/判断と書式変更を自動化したい
従来、人間の判断で、条件1セル(A1:2連結セル)を○にした時は、次に条件2セル(C1、C2、C3セル)を 参照しC1セルがAならば結果反映セル1・2(B2:3セル)ともに何もせず、C2セルがB、C3セルがCならば結 果反映セル1・2(B2:3セル)の書式を変更し、塗りつぶしの色を黒にし直しています。 この判断と書式変更を、条件1セルを入力したタイミングで自動化したいのですが、私の知識・技能で は歯が立ちません。 宜しくお願い致します。
- みんなの回答 (3)
- 専門家の回答
みんなの回答
- tom04
- ベストアンサー率49% (2537/5117)
こんばんは! VBAの方法の一例です。 画面左下にある操作したいSheet見出しで右クリック → コードの表示 → VBE画面が出ますので、 ↓のコードをコピー&ペーストしてみてください。 Private Sub Worksheet_Change(ByVal Target As Range) 'この行から Range("B2:B3").Interior.ColorIndex = xlNone If Range("A1") = "○" Then If Range("C1") <> "A" Then If Range("C2") = "B" And Range("C3") = "C" Then Range("B2:B3").Interior.ColorIndex = 1 End If End If End If End Sub 'この行まで 外していたらごめんなさいね。m(__)m
- kagakusuki
- ベストアンサー率51% (2610/5101)
確認したいのですが、 A1が○で、C1がA、C2がB、C3がC、である場合には、B1とB2は両方とも黒なのでしょうか、それとも両方とも塗りつぶし無しなのでしょうか? 又、A1が○で、C1がA以外、C2がBで、C3がC以外、である場合や、 A1が○で、C1がA以外、C2がB以外、C3がCである場合や、 A1が○で、C1がA以外、C2がCで、C3がB、である場合や、 A1が○で、C1がBで、C2がB以外、C3がC以外、である場合や、 A1が○で、C1がCで、C2がB以外、C3がC以外、である場合、 等々では、どのセルを塗りつぶせば良いのでしょうか? それによって、回答が変わって来ますので、補足欄等を使用して、追加情報をお知らせ願います。
- wisemac21
- ベストアンサー率39% (171/429)
B2:B3セルを選択して、条件付き書式を設定する 数式で =($A$1="○")*NOT($C$1="A")*($C$2="B")*($C$3="C")