Range("A1").FormatConditions.Delete '条件付き書式をリセット With Range("A1").FormatConditions.Add(Type:=xlTextString, String:="hoge", TextOperator:=2) .Font.Color = RGB(255, 255, 255) '文字色 .Interior.Color = RGB(255, 0, 0) '背景色 End With