‘//创建Excel实例
Dim AppExcel As Excel.Application = New Excel.Application
’//创建Excel单元格区域实例
Dim theRang As Excel.Range = AppExcel.Range(AppExcel.Cells(10, 10), AppExcel.Cells(10, 10))
‘//创建第一个条件格式
Dim fm1 As Excel.FormatCondition = theRang.FormatConditions.Add(Excel.XlFormatConditionType.xlCellValue, Excel.XlFormatConditionOperator.xlEqual, Formula1:="Pass")
’//创建第二个条件格式
Dim fm2 As Excel.FormatCondition = theRang.FormatConditions.Add(Excel.XlFormatConditionType.xlCellValue, Excel.XlFormatConditionOperator.xlEqual, Formula1:="Fail")
‘//输出格式
fm1.Interior.ColorIndex = 4 ’//如果单元格的值为“Pass”,则用绿色填充此格背景
fm2.Interior.ColorIndex = 3 ‘//如果单元格的值为“Fail”,则用红色填充此格背景