excel vba条件格式

我想用预定义的条件格式在Excel中生成某些vells。 如果input数字1,则应显示3个未打开符号的绿色图标。 这是我的代码到目前为止:

Sub AddIconCondFormat(cell1 As range, cell2 As range) range(cell1, cell2).Select With Selection .FormatConditions.Delete '.FormatConditions.Add Type:=xlCellValue, Operator:XlEqual, Formula1: End With End Sub 

我不知道.FormatConditions的所有必要的参数。 有人知道他们是否在某个地方上市?

使用macroslogging后,我得到了这个代码的作品:

 Sub AddIconCondFormat(cell1 As range, cell2 As range) range(cell1, cell2).Select With Selection .FormatConditions.Delete .FormatConditions.AddIconSetCondition .FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1) .ReverseOrder = False .ShowIconOnly = False .IconSet = ActiveWorkbook.IconSets(xl3Symbols2) End With With Selection.FormatConditions(1).IconCriteria(2) .Type = xlConditionValuePercent .Value = 33 .Operator = 7 End With With Selection.FormatConditions(1).IconCriteria(3) .Type = xlConditionValuePercent .Value = 67 .Operator = 7 End With End With End Sub