Excel中條件格式的運用是一個很快捷的方法,在數據查詢或一些特殊數據顯示方面有很強大的作用。
既然是條件格式,那麼就會涉及到各類條件運算,如大小多少比較,等于比較。
前提是,要了解和掌握一個基本的格式對象FormatConditions
這是個對象集合,代表一個區域内所有條件格式的集合,集合中的項目FormatCondition對象是我們要重點學習的内容。
如下圖所示,了解一下如何新建一個FormatCondition對象。
方法是利用FormatConditions的Add方法來實現。
具體參數如下圖所示:
新建格式對象
Range.FormatConditions.Add(xlCellValue, xlEqual, xAddr)
上述代碼表示,在Range單元格建立一個條件格式,xlCellValue是以單元格值為指定條件。
xlEqual表示條件判斷為"等于","=$A$8"表示與條件格式關聯的單元格。
如下示例,設置了一個條件格式,當匹配紅色單元格内的值,如果相等就以某種顔色來進行顯示。示例中以黃色背景來進行匹配。
這個應用的好處就是,可以十分方便地提取出某些數據的不同,以區别顯示,利于查找不同。
實際應用中,還可以将不同分段的數據用不同的顔色格式進行顯示,使得一個平淡無奇的表格變得賞心悅目起來。
代碼:
'設置條件樣式
Private Sub SetStyles()
Dim xAddr As String
xAddr = "=$B$3"
Dim r As Range
Set r = Selection
r.FormatConditions.Delete'删除條件格式
With r.FormatConditions.Add(xlCellValue, xlEqual, xAddr)'新建條件格式
With .Font'設置條件格式字體
.Bold = True
.Italic = True
.ColorIndex = 3
.Underline = True
End With
With .Interior'設置條件格式背景顔色
.Color = RGB(255, 205, 25)
.Pattern = xlPatternLightHorizontal
.PatternColor = RGB(252, 252, 252)
.TintAndShade = 0
End With
With .Borders'設置條件格式邊框
.LineStyle = 1
End With
End With
Set r = Nothing
End Sub
FormatCondition對象,方法和屬性
方法 |
屬性 |
Delete |
Application |
Modify |
AppliesTo |
ModifyAppliesToRange |
Borders |
SetFirstPriority |
Creator |
SetLastPriority |
DateOperator |
Font | |
Formula1 | |
Formula2 | |
Interior | |
NumberFormat | |
Operator | |
Parent | |
Priority | |
PTCondition | |
ScopeType | |
StopIfTrue | |
Text | |
TextOperator | |
Type |
本節主要内容學習新建一個格式對象,以及了解一下格式對象FormatCondition的方法和屬性。
,