前军教程网

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