VBA 数据条 Databar使用 Databar对象属性和方法

最新推荐文章于 2024-06-27 14:20:59 发布

它们却没见过蝴蝶

最新推荐文章于 2024-06-27 14:20:59 发布

阅读量307

点赞数 1

文章标签：学习方法

本文链接：https://blog.csdn.net/radiobaby/article/details/133789740

版权

用VBA给数据添加数据条

正常情况下，在excel中，可以通过菜单：开始→条件格式→数据条的操作来完成。
截图如下：
在这里插入图片描述

当然，也可以通过VBA代码来实现。
可以使用 FormatConditions 集合的 Add 或 AddDatabar 方法创建数据条格式规则。使用 Databar 对象的 MinPoint 和 MaxPoint 属性设置数据范围的最短条形图和最长条形图的值。这些属性返回 ConditionValue 对象，可以使用该对象指定阈值的计算方式。 Databar 对象还提供了另外一些属性，使用这些属性可指定在存在负值时显示的轴线，以及指定数据条的颜色和格式设置。
以下对单元格E2：E154进行数据条操作为例，进行简单的代码编写。

Private Sub DataBar_Click()
Dim cfDataBar As DataBar
Range("E2:E154").Select
Set cfDataBar = Selection.FormatConditions.AddDatabar
cfDataBar.MinPoint.Modify newtype:=xlConditionValuePercentile, newvalue:=5
cfDataBar.MaxPoint.Modify newtype:=xlConditionValuePercentile, newvalue:=75
End Sub

实现效果如下：
在这里插入图片描述
帮助参见：
[https://learn.microsoft.com/zh-cn/office/vba/api/excel.databar#properties]