VB使用Excel条件在文本上格式化

使用VB 2010，我试图将一个Excel文件转换为VB，并与这条条件格式化线在TextOperator：= xlContains）

我已经得到了大部分其他人完成，即Excel.XlFormatConditionType。

Dim r As Excel.Range R = oSheet.Range("A" & CStr(FirstEmptyInColA) & ":A" & CStr(lastRow)).SpecialCells(Excel.XlCellType.xlCellTypeVisible) For A = 0 To UBound(AgentNames) BColour = BColour + 1 If BColour > 10 Then BColour = 3 With r .FormatConditions.Add(Type:=Excel.XlFormatConditionType.xlTextString, String:=AgentNames(A), TextOperator:=xlContains) .FormatConditions(r.FormatConditions.Count).SetFirstPriority() With .FormatConditions(1) .Interior.PatternColorIndex = oWorkbook.xlAutomatic .Interior.ColorIndex = BColour If BColour = 5 Or BColour = 7 Or BColour = 9 Then .Font.ColorIndex = 2 End If End With .FormatConditions(1).StopIfTrue = False End With Next A r = Nothing 

Answer 1

查看FormatCondition.TextOperator文档 ：

返回或设置XlContainsOperator枚举的常量之一，指定由条件格式设置规则执行的文本search。

这是你的代码将是：

 TextOperator:=Excel.XlContainsOperator.xlContains 

请注意， XlContainsOperator具有以下可用的操作符：

Answer 2

应该是Excel.XlContainsOperator.xlContains