-
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 |