-
StackOverflow 文档
-
excel-vba 教程
-
使用 VBA 进行条件格式化
-
FormatConditions.Add
句法:
FormatConditions.Add(Type, Operator, Formula1, Formula2)
参数:
名称 |
必需/可选 |
数据类型 |
Type |
必需 |
XlFormatConditionType |
Operator |
可选的 |
变种 |
Formula1 |
可选的 |
变种 |
Formula2 |
可选的 |
变种 |
名称 |
描述 |
xlAboveAverageCondition |
高于平均水平 |
xlBlanksCondition |
空白状况 |
xlCellValue |
单元格值 |
xlColorScale |
色标 |
xlDatabar |
数据条 |
xlErrorsCondition |
错误情况 |
xlExpression |
表达 |
XlIconSet |
图标集 |
xlNoBlanksCondition |
没有空白条件 |
xlNoErrorsCondition |
没有错误的情况 |
xlTextString |
文字字符串 |
xlTimePeriod |
时间段 |
xlTop10 |
十大值 |
xlUniqueValues |
独特的值 |
按单元格值格式化:
With Range("A1").FormatConditions.Add(xlCellValue, xlGreater, "=100")
With .Font
.Bold = True
.ColorIndex = 3
End With
End With
运算符:
名称 |
xlBetween |
xlEqual |
xlGreater |
xlGreaterEqual |
xlLess |
xlLessEqual |
xlNotBetween |
xlNotEqual |
如果 Type 为 xlExpression,则忽略 Operator 参数。
按文本格式包含:
With Range("a1:a10").FormatConditions.Add(xlTextString, TextOperator:=xlContains, String:="egg")
With .Font
.Bold = True
.ColorIndex = 3
End With
End With
运算符:
名称 |
描述 |
xlBeginsWith |
以指定值开始。 |
xlContains |
包含指定的值。 |
xlDoesNotContain |
不包含指定的值。 |
xlEndsWith |
结束指定的值 |
按时间段格式化
With Range("a1:a10").FormatConditions.Add(xlTimePeriod, DateOperator:=xlToday)
With .Font
.Bold = True
.ColorIndex = 3
End With
End With
运算符:
名称 |
xlYesterday |
xlTomorrow |
xlLast7Days |
xlLastWeek |
xlThisWeek |
xlNextWeek |
xlLastMonth |
xlThisMonth |
xlNextMonth |