代表設定格式化條件規則的前十個看到的項目。 將色彩套用至範圍,有助於您檢視相對於其他儲存格時之儲存格的值。
註解
所有條件式格式設定物件都包含在 FormatConditions 集合物件內,該物件是 Range 集合的子系。
您可以使用 FormatConditions 集合的 Add 或 AddTop10 方法來建立前 10 個格式設定規則。
範例
下列範例會建立動態資料集,並透過設定格式化條件規則將色彩套用至前 10 個值。
Sub Top10CF()
' Building data
Range("A1").Value = "Name"
Range("B1").Value = "Number"
Range("A2").Value = "Agent1"
Range("A2").AutoFill Destination:=Range("A2:A26"), Type:=xlFillDefault
Range("B2:B26").FormulaArray = "=INT(RAND()*101)"
Range("B2:B26").Select
' Applying Conditional Formatting Top 10
Selection.FormatConditions.AddTop10
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1)
.TopBottom = xlTop10Top
.Rank = 10
.Percent = False
End With
' Applying color fill
With Selection.FormatConditions(1).Font
.Color = -16752384
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13561798
.TintAndShade = 0
End With
MsgBox "Added Top10 Conditional Format. Press F9 to update values.", vbInformation
End Sub
方法
屬性
- Application
- AppliesTo
- Borders
- CalcFor
- Creator
- Font
- Interior
- NumberFormat
- Parent
- Percent
- Priority
- PTCondition
- Rank
- ScopeType
- StopIfTrue
- TopBottom
- Type
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。