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/en-us/vba/excel-vba/articles/range-style-property-excel