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——-