Excel VBA 質問スレ Part73

[533 デフォルトの名無しさん (ﾜｯﾁｮｲ 895f-/pkb) 2021/10/26(火) 23:37:03.27 ID:HhcOopAn0]

D列のセルに文字を入力するとJ列のセルが塗りつぶされる処理をしたいのだがどうしたら良いものか

Sub Macro1()

If InStr(Range("D1").Value, "") > 0 Then
Range("D1").Offset(0,6).Interior.ColorIndex = 16
Else
Range("D1").Offset(0, 6).ClearFormats

End If
End Sub