VBA中一些顔色相關的對象，十分豐富，如果是設計一下美觀的工作表，那麼對于這些對象就不得不進行一翻認真了解了。

本文講一下，關于如何根據單元格數據，設置區分不同顔色的方法，很有用。

實際上這個示例應用于某些工作表當中的一些相關數據，因為要根據不同數據顯示不同的背景顔色，這樣就有利于對工作表數據的一個判斷。

一般數據背後表達的含義是一個十分抽象的内容，通過顔色來區分，這些抽象的數據就有一個更加明顯的意義。

下圖為本文示例将會用到的一些對象，以及其實際指代的含義。

我們用到的一個重要對象為ColorScale。

其代表色階條件格式規則。

也就是說根據一些規則來定義單元格顔色。

如何得到這個對象？

可以通過FormatConditions.AddColorScale方法來新建并返回一個ColorScale對象。

ColorScale對象的方法和屬性

通過代碼來具體學習一下：

Sub CreateColorScalObject() Dim R As Range, i As Integer Dim xColorScale As ColorScale Set R = ActiveSheet.Range("C3:F15") R.Clear '定義 設置顔色區域 并添加數據 With R For i = 1 To R.Columns.Count .Cells(1, i).Value = 50 .Cells(2, i).Value = 51 Next i ' .Item(2).Value = 61 .Item(1).Resize(2, 4).AutoFill Destination:=R End With R.Select '新建一個 ColorScale 對象 三色條件 Set xColorScale = Selection.FormatConditions.AddColorScale(ColorScaleType:=3) '設置顔色條件格式 xColorScale.ColorScaleCriteria(1).FormatColor.Color = RGB(255, 0, 0) '紅色 xColorScale.ColorScaleCriteria(2).FormatColor.Color = RGB(255, 20, 255) '粉色 xColorScale.ColorScaleCriteria(3).FormatColor.Color = RGB(255, 255, 0) '黃色 End Sub

上述代碼實現了根據單元格值三色過渡效果，修改ColorScaleType:=3值為2，就可以實現雙色格式，應用中可以進行一個調試。

顔色運用得當對于工作表整體的可讀性将是一個重大的提高，所以，最好把相關技巧進行熟練應用，那麼會得到一個不錯的體驗。

歡迎關注、收藏

---END---

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!