VBA编程，如何让数据显示成图象，教你制作，方法很简单

Excel工作表中的数据，是对某些实际事物的表达，如果使用图形化来展示，那么就会有更加清晰的效果，本文将介绍一下，如何使用图标集来对数据进行呈现效果。

上图为统计一个成绩的效果，分别可以区分不同分数段的结果，通过看图形可以明白，当前分数在哪一个区间。

学习本文还是有一点难度的，首先要对区间有一个基本的概念，也就是说要对统计的数据进行一个分类，这个分类是有一定的规律性的，通常会数据的大小多少来区分，当然也有其它。

首先要认识一个对象：IconSet

它表示图标集条件格式规则中使用的图标集的集合，通过FormatConditions.AddIconSetCondition来返回。

这里有一个重点就是，IconSet.ID,使用如下图值返回不同值。

ID的XlIcon枚举分别代表了图表样式。

接下来使用到IconCriterion对象，此对象是真正地实现图标规则细节的关键。

也就是对于数据比较大小分别进行规则设置。

通过IconCriteria(Index)对象来返回IconCriterion对象。

说到这里就有点难理解了，其实就是一个集合中的某个了项目，IconCriteria是一个集合，集合有若干个IconCriterion对象。就是这个意思。

枚举如下图所示：

代码

下面通过一些代码来进行演示一下。

Private Sub CommandButton1_Click()
Dim R As Range
Set R = Range("C5:C13")
Dim xiconset As IconSetCondition
Set xiconset = R.FormatConditions.AddIconSetCondition
xiconset.IconSet = ThisWorkbook.IconSets(16) '设置图形样式
With xiconset.IconCriteria(2)
    .Type = xlConditionValueNumber'设置
    .Value = 60'设置值
    .Operator = 7'设置大于等于比较
End With
With xiconset.IconCriteria(3)
    .Type = xlConditionValueNumber
    .Value = 70
    .Operator = 7
End With
With xiconset.IconCriteria(4)
    .Type = xlConditionValueNumber
    .Value = 80
    .Operator = 7
End With
With xiconset.IconCriteria(5)
    .Type = xlConditionValueNumber
    .Value = 90
    .Operator = 7
End With
Set R = Nothing
End Sub

通过以上代码，可以简单地设置一列分数，不同区间使用不同的图形来进行表达，这样就可以直观地看到数据背后所表达的内容了，是不是很好？

欢迎关注、收藏

---END---