Excel-vba：条件格式：单元格样式

Question

我正在尝试以这种格式使用.style函数，但是vba不想使用它。 我只是在错误地使用.style还是需要使用其他方法为单元格着色？

'Conditional Formatting
.FormatConditions.Delete
.FormatConditions.Add xlErrorsCondition, Formula1:= _
    "=IF(" & Cells(SelectedGroup, AreaSelected(2)).Offset(2, 1) & "=""Not Used"",TRUE, _ 
    FALSE)"
.FormatConditions(1).Style = "Bad"

.FormatConditions.Add xlErrorsCondition, Formula1:= _ 
    "=IF(" & Cells(SelectedGroup, AreaSelected(2)).Offset(2, 1) & "=""Used"",TRUE,FALSE)"
.FormatConditions(1).Style = "Good"

Answer 1

样式是Range对象的属性。 为了使用它，您需要结束With语句并将样式应用于Range本身。

https://msdn.microsoft.com/zh-CN/vba/excel-vba/articles/range-style-property-excel