RANGE.FormatConditions.Delete '既に設定されている条件付き書式を削除 With RANGE.FormatConditions.Add(Type:=xlTextString, String:="hoge", TextOperator:=2) .Font.Color = RGB(255, 255, 255) '文字色 .Interior.Color = RGB(255, 0, 0) '背景色 End With