AboveAverage オブジェクト (Excel)AboveAverage object (Excel)

標準規定以上の条件付き書式ルールを表します。Represents an above average visual of a conditional formatting rule. 指定範囲または選択範囲に色または塗りつぶしを適用して、他のセルからの相対位置でセルの値を表示するのに役立ちます。Applies a color or fill to a range or selection to help you see the value of a cell relative to other cells.


すべての条件付き書式オブジェクトは、 Range コレクションの子である**formatconditions** コレクションオブジェクト内に含まれています。All conditional formatting objects are contained within a FormatConditions collection object, which is a child of a Range collection.

FormatConditions コレクションの Add メソッドまたは AddAboveAverage メソッドを使用して標準規定以上の書式設定ルールを定義することができます。You can create an above average formatting rule by using either the Add or AddAboveAverage method of the FormatConditions collection.


次の例では、動的データ セットを作成し、条件付き書式設定ルールに基づき色を規定以上の値に適用します。The following example builds a dynamic data set and applies color to the above average values through conditional formatting rules.

Sub AboveAverageCF() 
' Building data for Melanie 
 Range("A1").Value = "Name" 
 Range("B1").Value = "Number" 
 Range("A2").Value = "Melanie-1" 
 Range("A2").AutoFill Destination:=Range("A2:A26"), Type:=xlFillDefault 
 Range("B2:B26").FormulaArray = "=INT(RAND()*101)" 
' Applying Conditional Formatting to items above the average. Should appear green fill and dark green font. 
 Selection.FormatConditions(1).AboveBelow = xlAboveAverage 
 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 an Above Average Conditional Format to Melanie's data. Press F9 to update values.", vbInformation 
End Sub



関連項目See also

サポートとフィードバックSupport and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.