隣のセルで書式を変える VBA

質問

通常の書式でのやり方ではわかりませんでした。マクロでなければできませんでしょうか？

A列に値が入っていて、B列に値が入っていない場合にセル色とフォントを変更したいのです。
例えば、以下の感じです。

・A６には値が入っていて、B６には入っていない場合にB６がセル色が赤でフォントが白
・A7には値が入っていないくて、B７には入っていない場合は変化なし

※同じシートには他に、private sub でダブルクリックすると変化させるマクロが入っています。

回答No.2

High_Score

いちいち動作させる必要はありますが、出来ますよ。
データは２行目から入っているものとします。

Sub ColorChange()

Dim i As Long
'色指定の初期化
Range("B:B").Interior.ColorIndex = 0
Range("B:B").Font.ColorIndex = 1

For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If (Cells(i, "A") <> "" And Cells(i, "B") = "") Then
Cells(i, "B").Interior.ColorIndex = 3 '赤で塗りつぶし
Cells(i, "B").Font.ColorIndex = 2 '文字を白に
End If
Next i

End Sub

お礼

ありがとうございます

回答No.1

FEX2053

条件付き書式で出来る筈ですが？

条件付き書式で「数式が」を指定し、=AND(A6<>"",B6="")で
B6の書式を変える・・・などの方法で何とかなるかと。

お礼

ありがとうございます