首頁/ 汽車/ 正文

VBA程式設計,如何讓資料顯示成圖象,教你製作,方法很簡單

Excel工作表中的資料,是對某些實際事物的表達,如果使用圖形化來展示,那麼就會有更加清晰的效果,本文將介紹一下,如何使用圖示集來對資料進行呈現效果。

VBA程式設計,如何讓資料顯示成圖象,教你製作,方法很簡單

上圖為統計一個成績的效果,分別可以區分不同分數段的結果,透過看圖形可以明白,當前分數在哪一個區間。

學習本文還是有一點難度的,首先要對區間有一個基本的概念,也就是說要對統計的資料進行一個分類,這個分類是有一定的規律性的,通常會資料的大小多少來區分,當然也有其它。

首先要認識一個物件:IconSet

它表示圖示集條件格式規則中使用的圖示集的集合,透過FormatConditions。AddIconSetCondition來返回。

這裡有一個重點就是,IconSet。ID,使用如下圖值返回不同值。

VBA程式設計,如何讓資料顯示成圖象,教你製作,方法很簡單

ID的XlIcon列舉分別代表了圖表樣式。

接下來使用到IconCriterion物件,此物件是真正地實現圖示規則細節的關鍵。

也就是對於資料比較大小分別進行規則設定。

透過IconCriteria(Index)物件來返回IconCriterion物件。

說到這裡就有點難理解了,其實就是一個集合中的某個了專案,IconCriteria是一個集合,集合有若干個IconCriterion物件。就是這個意思。

列舉如下圖所示:

VBA程式設計,如何讓資料顯示成圖象,教你製作,方法很簡單

VBA程式設計,如何讓資料顯示成圖象,教你製作,方法很簡單

程式碼

下面透過一些程式碼來進行演示一下。

Private Sub CommandButton1_Click()Dim R As RangeSet R = Range(“C5:C13”)Dim xiconset As IconSetConditionSet xiconset = R。FormatConditions。AddIconSetConditionxiconset。IconSet = ThisWorkbook。IconSets(16) ‘設定圖形樣式With xiconset。IconCriteria(2) 。Type = xlConditionValueNumber’設定 。Value = 60‘設定值 。Operator = 7’設定大於等於比較End WithWith xiconset。IconCriteria(3) 。Type = xlConditionValueNumber 。Value = 70 。Operator = 7End WithWith xiconset。IconCriteria(4) 。Type = xlConditionValueNumber 。Value = 80 。Operator = 7End WithWith xiconset。IconCriteria(5) 。Type = xlConditionValueNumber 。Value = 90 。Operator = 7End WithSet R = NothingEnd Sub

VBA程式設計,如何讓資料顯示成圖象,教你製作,方法很簡單

透過以上程式碼,可以簡單地設定一列分數,不同區間使用不同的圖形來進行表達,這樣就可以直觀地看到資料背後所表達的內容了,是不是很好?

歡迎關注、收藏

——-END——-

相關文章

頂部