Top10 オブジェクト (Excel)
条件付き書式設定ルールの上位 10 項目を表示します。 色を領域に割り当てることにより、セルの値を他のセルと相対的に確認することができます。
すべての条件付き書式オブジェクトは、Range コレクションの子である FormatConditions コレクション オブジェクトに含まれています。
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
- フォント
- Interior
- NumberFormat
- Parent
- Percent
- Priority
- PTCondition
- Rank
- ScopeType
- StopIfTrue
- TopBottom
- Type
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。