Excel) (数据条对象

代表数据条条件格式规则。 通过对范围应用数据条,有助于查看相对于其他单元格的单元格的值。

备注

所有条件格式对象都包含在 FormatConditions 集合对象中,该对象是 Range 集合的子级。 可以使用 FormatConditions 集合的 AddAddDatabar 方法创建数据条格式规则。

可以使用 Databar 对象的 MinPointMaxPoint 属性设置数据区域的最短条形和最长条形的值。 这些属性返回一个 ConditionValue 对象,您可以使用该对象指定如何计算阈值。

Databar 对象还提供了另外一些属性,使用这些属性可指定在存在负值时显示的轴线,以及指定数据条的颜色和格式设置。

示例

以下示例创建数据范围,然后对该区域应用数据条。 您会注意到,由于范围内有极低和极高的值,因此中间值的数据条长度相似。 为了明确显示中间值,示例代码使用 ConditionValue 对象将阈值的计算方式更改为百分点。

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 
 
 Range("D1:D9").Select 
 
 ' 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, _ 
 newvalue:=5 
 cfDatabar.MaxPoint.Modify newtype:=xlConditionValuePercentile, _ 
 newvalue:=75 
 
End Sub

方法

属性

另请参阅

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。