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

データ バーの条件付き書式設定ルールを表します。Represents a data bar conditional formating rule. 範囲にデータ バーを使用すると、他のセルと相対的にセルの値を確認できます。Applying a data bar to a range helps 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** メソッドまたは**AddDataBar** メソッドを使用して、データバーの**** 書式設定ルールを作成できます。You can create a data bar formatting rule by using either the Add or AddDataBar methods of the FormatConditions collection.

DataBarオブジェクトのminpointプロパティとmaxpointプロパティを使用して、データ範囲の最短の棒と最長のバーの値を設定します。You use the MinPoint and MaxPoint properties of the DataBar object to set the values of the shortest bar and longest bar of a range of data. これらのプロパティは**conditionvalue** オブジェクトを返します。これにより、しきい値の評価方法を指定できます。These properties return a ConditionValue object, with which you can specify how the thresholds are evaluated.

DataBarオブジェクトには、負の値が存在するときに表示される軸線を指定したり、データバーの色と書式を指定したりするためのプロパティも用意されています。The DataBar object also provides properties that enable you to specify an axis line that is displayed when negative values are present, and to specify the color and formatting of data bars.


次の使用例は、データの範囲を作成し、その範囲にデータバーを適用します。The following example creates a range of data, and then applies a data bar to the range. 範囲内の値が非常に低く、高い値があるため、中間値のデータバーの長さが同じであることがわかります。You will notice that because there is an extremely low and high value in the range, the middle values have data bars that are of similar length. 中間値を明確にするために、サンプル コードは ConditionValue オブジェクトを使用して、しきい値が百分位に評価される方法を変更します。To disambiguate the middle values, the sample code uses the ConditionValue object to change how the thresholds are evaluated to percentiles.

Sub CreateDataBarCF() 
 Dim cfDataBar As DataBar 
 ' Create a range of data with a couple of extreme values 
 With ActiveSheet 
 .Range("D1") = 1 
 .Range("D2") = 45 
 .Range("D3") = 50 
 .Range("D2:D3").AutoFill Destination:=Range("D2:D8") 
 .Range("D9") = 500 
 End With 
 ' Create a data bar with default behavior 
 Set cfDataBar = Selection.FormatConditions.AddDatabar 
 MsgBox "Because of the extreme values, middle data bars are very similar" 
 ' The MinPoint and MaxPoint properties return a ConditionValue object 
 ' which you can use to change threshold parameters 
 cfDataBar.MinPoint.Modify newtype:=xlConditionValuePercentile, _ 
 cfDataBar.MaxPoint.Modify newtype:=xlConditionValuePercentile, _ 
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.