excel如何運用VBA大局部設置圖標集條件格式

在Excel 2007/2010中設置圖標集條件格式時，通常是同時對區域中的全部單元格進行設置的。但有時也有例外，如下圖中C2:C1000區域中的各單元格的值為同行A列與B列的差值，需要在C列中設置圖標集：

??? ????

??? 要求如下圖：

???

??? 在這種情況下，由于C列單元格中的圖標集僅僅與其他列中的單元格值有關，而與本列中的其他單元格無關，因而無法直接對C2:C1000區域同時設置圖標集。如果手動對C列中的每個單元格逐一設置圖標集，在數據量較大的情況下幾乎無法實現。要實現這個目的，可以用下面的兩種方法：

??? 方法一：用VBA代碼

??? 1.按Alt+F11，打開VBA編輯器，在代碼窗口中粘貼下列代碼：

Sub IconSet()
Dim rCell As Range
Application.ScreenUpdating = False
Range("c2:c1000").FormatConditions.Delete
For Each rCell In Range("c2:c1000")
??? rCell.FormatConditions.AddIconSetCondition
??? With rCell.FormatConditions(1)
??????? .IconSet = ActiveWorkbook.IconSets(xl3Symbols2)
??????? With .IconCriteria(2)
????????? .Type = xlConditionValueNumber
????????? .Value = 0
????????? .Operator = 7
??????? End With
??????? With .IconCriteria(3)
????????? .Type = xlConditionValueFormula
????????? .Value = "=OFFSET($A$1,ROW()-1,0)*0.2"
????????? .Operator = 5
??????? End With
??? End With
Next
Application.ScreenUpdating = True
End Sub

??? 2.關閉VBA編輯器，按Alt+F8，打開“宏”對話框，選擇“IconSet”宏名執行代碼。

??? 上述代碼對C2:C1000區域中各單元格逐一設置圖標集，選擇C列中的某個單元格，如C8，在“開始”選項卡的“樣式”組中單擊“條件格式→管理規則”，在彈出的對話框中單擊“編輯規則”，可以看到上述代碼所設置的圖標集條件格式，如圖。

???

??? 由于在條件格式的圖標集、色階、數據條中無法使用相對引用，因而使用下面的公式：

??? =OFFSET($A$1,ROW()-1,0)*0.2

??? 該公式在圖標集條件格式中總可以引用同行A列單元格的值。

??? 方法二：用輔助列

??? 方法是在C列在左側插入一個輔助列，然后在輔助列中設置圖標集條件格式，設置后看上去類似直接在D列中設置的圖標集。

???

??? 1.在C列左側插入輔助列，先前的C列變為D列。選擇C2單元格，在其中輸入公式：

??? =D2/A2

??? 然后向下填充公式到C1000單元格。

??? 2.選擇C2:C1000區域，在“開始”選項卡的“樣式”組中單擊“條件格式→新建規則”，在彈出的對話框中，默認已選擇了“基于各自值設置所有單元格格式”。在下方的區域中，選擇“格式樣式”為“圖標集”，“圖標樣式”選擇“三個符號（無圓圈）”，類型都選擇為“數字”，分別設置為“0.2”和“0”。勾選“僅顯示圖標”，如下圖。

???

??? 3.單擊“確定”。Excel會在C列中設置圖標集，最后設置適當的列寬即可。