26、Excel VBA 颜色处理全攻略

Excel VBA 颜色处理全攻略

1. 颜色处理基础

在早期的 Excel 版本（2007 之前）中，一个工作簿只能存储 56 种颜色，即便可以修改这些颜色，也无法突破 56 种颜色的限制。但自 Excel 2007 起，工作簿中的颜色数量实际上几乎没有限制了，可达 16777216 种。

在 VBA 里，你可以通过十进制颜色值来指定颜色，这个值介于 0 到 16777215 之间。例如，下面的 VBA 语句将活动单元格的背景颜色设置为深栗色：

ActiveCell.Interior.Color = 5911168

此外，VBA 为一些常见颜色定义了常量。比如， vbRed 的值为 255（纯红色的十进制值）， vbGreen 的值为 65280。不过，几乎 1700 万种颜色难以记忆，而且预定义常量也很有限。更好的方法是使用 RGB 颜色系统，通过指定红、绿、蓝三个分量来确定颜色。

1.1 RGB 颜色系统

RGB 颜色系统将红、绿、蓝三种颜色的不同强度组合在一起。每种颜色的值范围是 0 到 255，因此可能的颜色总数为 256 x 256 x 256 = 16777216 种。
- 当三个颜色分量都为 0 时，颜色为纯黑色。
- 当三个分量都为 255 时，颜色为纯白色。
- 当三个分量都为 128（中间值）时，颜色为中灰色。
- 其余 16777213 种可能的组合代表其他颜色。

在 VBA 中使用 RGB 系统指定颜色，可使用 RGB 函数。该函数接受三个参数，分别代表颜色的红、蓝、绿分量，并返回一个介于 0 到 16777216 之间的十进制颜色值。例如：

ActiveCell.Interior.Color = RGB(128, 50, 90)

以下是一些常见颜色的 RGB 值和十进制颜色代码：
| 颜色名称 | 红色分量 | 绿色分量 | 蓝色分量 | 颜色值 |
| ---- | ---- | ---- | ---- | ---- |
| 黑色 | 0 | 0 | 0 | 0 |
| 白色 | 255 | 255 | 255 | 16777215 |
| 红色 | 255 | 0 | 0 | 255 |
| 绿色 | 0 | 255 | 0 | 65280 |
| 蓝色 | 0 | 0 | 255 | 16711680 |
| 黄色 | 255 | 255 | 0 | 65535 |
| 粉色 | 255 | 0 | 255 | 16711935 |
| 绿松石色 | 0 | 255 | 255 | 16776960 |
| 棕色 | 153 | 51 | 0 | 13209 |
| 靛蓝色 | 51 | 51 | 153 | 10040115 |
| 80% 灰色 | 51 | 51 | 51 | 3355443 |

1.2 颜色转换

1.2.1 RGB 转十进制颜色

如果你知道颜色的红、绿、蓝分量值，使用 VBA 的 RGB 函数就能轻松将其转换为十进制颜色。假设三个变量 r 、 g 和 b 分别代表 0 到 255 之间的颜色分量值，可使用以下语句计算等效的十进制颜色值：

DecimalColor = RGB(r, g, b)

若要在工作表公式中进行此转换，可创建一个简单的 VBA 包装函数：

Function RGB2DECIMAL(R, G, B) As Long
    ' 从 RGB 转换为十进制颜色
    RGB2DECIMAL = RGB(R, G, B)
End Function

例如，假设三个颜色值位于 A1:C1 单元格，可使用公式 =RGB2DECIMAL(A1,B1,C1) 进行转换。

1.2.2 十进制颜色转 RGB

将十进制颜色转换为其红、绿、蓝分量稍微复杂一些。以下函数返回一个包含三个元素的数组：

Function DECIMAL2RGB(ColorVal) As Variant
    ' 将颜色值转换为 RGB 三元组
    ' 返回一个包含 3 个元素的变体数组
    DECIMAL2RGB = Array(ColorVal \ 256 ^ 0 And 255, _
      ColorVal \ 256 ^ 1 And 255, ColorVal \ 256 ^ 2 _
      And 255)
End Function

在工作表公式中使用 DECIMAL2RGB 函数时，公式必须作为三单元格数组公式输入。例如，假设单元格 A1 包含十进制颜色值，要将该颜色值转换为其 RGB 分量，可按以下步骤操作：
1. 选择一个三单元格的水平范围。
2. 输入公式 {=DECIMAL2RGB(A1)} （不要输入大括号，按 Ctrl + Shift + Enter 使其成为数组公式）。
3. 如果三单元格范围是垂直的，需要转置数组，使用公式 {=TRANSPOSE(DECIMAL2RGB(A1))} 。

1.3 十进制颜色值的排列

你可能会好奇 16777216 个十进制颜色值是如何排列的。颜色 0 是黑色，颜色 16777216 是白色，那么中间的颜色呢？可以将十进制颜色值看作是由嵌套的 For - Next 循环生成的，如下代码所示：

Sub GenerateColorValues()
    Dim Red As Long, Blue As Long, Green As Long
    Dim AllColors(0 To 16777215) As Long
    Dim ColorNum As Long
    ColorNum = 0
    For Blue = 0 To 255
       For Green = 0 To 255
          For Red = 0 To 255
             AllColors(ColorNum) = RGB(Red, Blue, Green)
             ColorNum = ColorNum + 1
          Next Red
       Next Green
    Next Blue
End Sub

此过程运行后， AllColors 数组中的值与 Excel 使用的十进制颜色值完全对应。

2. 灰度处理

2.1 理解灰度

在创建要打印的工作表和图表时，要考虑到并非每个人都有彩色打印机。即使图表用彩色打印机打印，也可能会被复印、传真或被色盲人士查看（约 8% 的男性受色盲影响）。当内容在非彩色设备上打印时，颜色会转换为灰度。有时转换后的颜色显示效果不错，但有时可能会出现问题，例如图表中的柱子在颜色转换后可能难以区分。

每个灰度颜色的红、绿、蓝分量相等。纯黑色是 RGB(0, 0, 0)，纯白色是 RGB(255, 255, 255)，中性灰色是 RGB(128, 128, 128)。使用此颜色系统可产生 256 种灰度。

要在单元格区域中创建 256 色灰度，可执行以下过程：

Sub GenerateGrayScale()
    Dim r As Long
    For r = 0 To 255
        Cells(r + 1, 1).Interior.Color = RGB(r, r, r)
    Next r
End Sub

执行该过程后，A1:A256 单元格区域的背景颜色从黑色渐变到白色。缩小工作表视图可查看整个范围。

2.2 颜色转换为灰度

将颜色转换为灰度的一种方法是简单地对颜色的红、绿、蓝分量求平均值，并将该值用于灰度等效颜色的红、绿、蓝分量。但这种方法没有考虑到不同颜色的亮度感知不同，例如绿色看起来比红色亮，红色比蓝色亮。

感知实验得出了将 RGB 颜色值转换为灰度值的“配方”：
- 红色分量的 28.7%。
- 绿色分量的 58.9%。
- 蓝色分量的 11.4%。

例如，对于颜色值 16751001（对应 RGB(153, 153, 255) 的紫色调），应用上述因素后：
- 红色：28.7% × 153 = 44
- 绿色：58.9% × 153 = 90
- 蓝色：11.4% × 255 = 29
这些值的总和为 163，因此颜色值 16751001 对应的灰度 RGB 值为 RGB(163, 163, 163)。

以下是一个 VBA 函数，可完成此计算：

Function Grayscale(color) As Long
    Dim r As Long, g As Long, b As Long
    r = (color \ 256 ^ 0 And 255) * 0.287
    g = (color \ 256 ^ 1 And 255) * 0.589
    b = (color \ 256 ^ 2 And 255) * 0.114
    Grayscale = RGB(r + g + b, r + g + b, r + g + b)
End Function

2.3 以灰度查看图表

遗憾的是，Excel 的打印预览功能不进行灰度转换。例如，如果你使用黑白激光打印机，预览打印作业时显示的是颜色，而不是打印机实际产生的灰度。

页面设置对话框的“工作表”选项卡（通过点击“页面布局”➪“页面设置”组中的对话框启动器显示）有一个“黑白”选项。勾选此选项后，图表将以真正的黑白模式打印，这与灰度不同，颜色会转换为黑白图案（没有灰色）。请注意，此设置仅适用于图表和其他图形对象，打印“黑白”模式时，单元格颜色会被忽略。

以下是一种查看嵌入式图表转换为灰度后的外观的方法：
1. 选择图表。
2. 按 Ctrl + C 将图表复制到剪贴板。
3. 点击一个单元格，选择“开始”➪“剪贴板”➪“粘贴”➪“图片（U）”。
4. 选择粘贴的图片，选择“图片工具”➪“格式”➪“调整”➪“颜色”，然后从下拉库的“重新着色”部分选择“灰度”颜色模式。

这些步骤可通过以下宏自动化：

Sub ShowChartAsGrayScale()
    ' 将活动图表复制为灰度图片
    ' 仅适用于嵌入式图表
    If ActiveChart Is Nothing Then
        MsgBox "Select a chart."
        Exit Sub
    End If
    ActiveChart.Parent.CopyPicture
    ActiveChart.Parent.TopLeftCell.Select
    ActiveSheet.Pictures.Paste 
    ActiveSheet.Pictures(ActiveSheet.Pictures.Count). _
      ShapeRange.PictureFormat.ColorType = _
      msoPictureGrayscale
End Sub

2.4 颜色实验

有一个包含三个垂直滚动条的工作簿，可用于指定颜色的红、绿、蓝分量值（范围 0 到 255）。移动滚动条会改变工作表的多个区域：
- 滚动条上方的单元格（第 5 行和第 6 行）以十六进制（00 - FF）和十进制（0 - 255）显示颜色分量。十六进制 RGB 颜色值常用于 HTML 文档中指定颜色。
- 每个滚动条旁边的范围会根据滚动条的位置改变强度（即颜色分量的值）。
- 滚动条下方的一个范围显示由指定的 RGB 值确定的组合颜色。
- 一个单元格显示十进制颜色值。
- 另一个范围显示颜色转换为灰度后的大致外观。
- 第 26 行的单元格显示相应的 HSL 颜色值（HSL 是某些软件中使用的另一种颜色模型）。

3. 文档主题颜色处理

3.1 文档主题概述

Excel 2007 引入了文档主题这一重要新功能，只需点击一下鼠标，就能改变整个文档的外观。文档主题由颜色、字体和效果（用于图形对象）三个组件组成。使用主题的理由是它们可以帮助用户创建更美观、更一致的文档。主题应用于整个工作簿，而不仅仅是活动工作表。

Microsoft Office 2010 附带约 40 种文档主题，你还可以下载或创建其他主题。功能区包含多个样式库（如“图表样式”库），这些库中的样式会根据应用于文档的主题而变化。如果应用不同的主题，文档会反映新主题的颜色、字体和效果。

用户还可以混合搭配主题元素，例如使用一个主题的颜色、另一个主题的字体和再一个主题的效果。此外，还可以创建新的颜色集或字体集，并保存这些自定义主题，然后应用到其他工作簿。

3.2 理解文档主题颜色

当用户为单元格或对象应用颜色时，颜色是从类似图 1 - 5 所示的功能区控件中选择的。该控件显示 60 种主题颜色（10 列 6 行）和 10 种额外的标准颜色。点击“更多颜色”选项会显示“颜色”对话框，你可以在其中指定 16777216 种可用颜色中的任何一种。

60 种主题颜色通过弹出工具提示标识。例如，第六列第二行的颜色被称为“强调文字颜色 2，淡色 80%”。每列颜色的第一行包含“纯色”，每个纯色下方有六种“淡色和深色”变体。

录制宏时，更改单元格范围的填充颜色和文本颜色会生成类似以下的代码：

Sub ChangeColors()
    With Selection.Interior
         '(强调文字颜色 2，深色 25%)
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = -0.249977111117893
    End With
    With Selection.Font
         '(浅色文字 2，淡色 80%)
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.799981688894314
    End With
End Sub

可以看到，每种颜色由 ThemeColor 属性和 TintAndShade 属性指定。 ThemeColor 属性使用内置常量赋值，对应 10 x 6 主题颜色表的列号。例如， xlThemeColorAccent2 的值为 6。

TintAndShade 属性的值范围是 - 1 到 + 1。值为 - 1 时颜色为黑色，值为 + 1 时颜色为白色，值为 0 时为纯色。当 TintAndShade 值为负时，颜色逐渐变深直至纯黑色；当值为正时，颜色逐渐变浅直至纯白色。该值对应颜色选择控件中显示的颜色名称。如果颜色变体表示为“深色”， TintAndShade 属性值为负；如果表示为“浅色”，属性值为正。

3.3 显示所有主题颜色

以下宏可在单元格区域中显示所有 60 种主题颜色变体：

Sub ShowThemeColors()
  Dim r As Long, c As Long
  For r = 1 To 6
    For c = 1 To 10
        With Cells(r, c).Interior
        .ThemeColor = c
        Select Case c
            Case 1 '文本/背景 1
            Select Case r
                Case 1: .TintAndShade = 0
                Case 2: .TintAndShade = -0.05
                Case 3: .TintAndShade = -0.15
                Case 4: .TintAndShade = -0.25
                Case 5: .TintAndShade = -0.35
                Case 6: .TintAndShade = -0.5
            End Select
        Case 2 '文本/背景 2
            Select Case r
                Case 1: .TintAndShade = 0
                Case 2: .TintAndShade = 0.5
                Case 3: .TintAndShade = 0.35
                Case 4: .TintAndShade = 0.25
                Case 5: .TintAndShade = 0.15
                Case 6: .TintAndShade = 0.05
            End Select
        Case 3 '文本/背景 3
            Select Case r
                Case 1: .TintAndShade = 0
                Case 2: .TintAndShade = -0.1
                Case 3: .TintAndShade = -0.25
                Case 4: .TintAndShade = -0.5
                Case 5: .TintAndShade = -0.75
                Case 6: .TintAndShade = -0.9
            End Select
        Case Else  '文本/背景 4，和强调文字颜色 1 - 6
            Select Case r
                Case 1: .TintAndShade = 0
                Case 2: .TintAndShade = 0.8
                Case 3: .TintAndShade = 0.6
                Case 4: .TintAndShade = 0.4
                Case 5: .TintAndShade = -0.25
                Case 6: .TintAndShade = -0.5
            End Select
        End Select
       Cells(r, c) = .TintAndShade
        End With
    Next c
  Next r
End Sub

执行该过程后，结果如图 1 - 7 所示（彩色显示更明显）。如果切换到不同的文档主题，颜色会更新以反映新主题的颜色。

需要注意的是，通过设置 Interior 对象的 Color 属性来更改范围的填充颜色，这种方式指定的颜色不是主题颜色。也就是说，如果用户切换到新的文档主题，该范围的颜色不会改变。要使单元格颜色与主题一致，必须使用 ThemeColor 和（可选） TintAndShade 属性。

通过以上内容，你可以全面掌握 Excel VBA 中颜色处理的各种方法，包括 RGB 颜色系统的使用、颜色转换、灰度处理以及文档主题颜色的应用，从而在 Excel 中实现更加丰富和专业的颜色设置。

3.4 主题颜色与非主题颜色设置对比

在 Excel VBA 中，设置颜色有两种常见方式，一种是直接使用 Color 属性，另一种是使用 ThemeColor 和 TintAndShade 属性。下面通过具体代码示例来对比这两种方式：

' 直接使用 Color 属性设置颜色，此颜色不是主题颜色
Range("A1:F24").Interior.Color = 5913728
Range("A1:F24").Interior.Color = RGB(128, 60, 90)

' 使用 ThemeColor 和 TintAndShade 属性设置颜色，与主题相关
With Range("B1:G24").Interior
    .ThemeColor = xlThemeColorAccent2
    .TintAndShade = -0.25
End With

从上述代码可以看出，使用 Color 属性设置颜色时，即使切换文档主题，该范围的颜色也不会改变。而使用 ThemeColor 和 TintAndShade 属性设置颜色，当切换主题时，颜色会根据新主题进行调整，以保持与主题的一致性。

3.5 利用主题颜色提升文档一致性

为了让文档在不同主题下都能保持良好的视觉效果和一致性，我们可以遵循以下步骤：

1. 确定主题需求 ：明确文档的用途和风格，选择合适的主题。例如，正式商务文档可以选择简洁、专业的主题；而创意设计文档可以选择色彩丰富、独特的主题。
2. 使用主题颜色设置元素 ：在设置单元格、图表、图形等元素的颜色时，优先使用主题颜色。可以通过录制宏来获取主题颜色的设置代码，然后根据需要进行调整。
3. 创建自定义主题 ：如果现有的主题不能满足需求，可以创建自定义主题。可以混合搭配不同主题的颜色、字体和效果，然后保存为新的主题，方便后续使用。
4. 测试不同主题效果 ：在完成文档制作后，切换不同的主题，检查文档的颜色、字体和效果是否协调一致。如果发现问题，及时调整主题颜色的设置。

4. 颜色处理的实际应用案例

4.1 动态颜色显示的销售报表

假设我们有一个销售报表，需要根据不同的销售金额范围显示不同的颜色，以直观地展示销售情况。以下是实现该功能的 VBA 代码：

Sub ColorSalesReport()
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row

    For i = 2 To lastRow
        Dim salesAmount As Double
        salesAmount = Cells(i, 2).Value

        If salesAmount > 10000 Then
            Cells(i, 2).Interior.Color = RGB(0, 255, 0) ' 绿色表示高销售额
        ElseIf salesAmount > 5000 Then
            Cells(i, 2).Interior.Color = RGB(255, 255, 0) ' 黄色表示中等销售额
        Else
            Cells(i, 2).Interior.Color = RGB(255, 0, 0) ' 红色表示低销售额
        End If
    Next i
End Sub

上述代码通过遍历销售金额列，根据不同的金额范围为单元格设置不同的颜色。这样，在查看销售报表时，可以快速了解每个销售记录的销售情况。

4.2 主题颜色应用的年度预算表

在年度预算表中，我们希望使用主题颜色来区分不同的预算项目，以保持文档的一致性和专业性。以下是实现该功能的代码：

Sub ApplyThemeColorsToBudget()
    ' 设置收入项目颜色
    Range("A2:A10").Interior.ThemeColor = xlThemeColorAccent1
    Range("A2:A10").Interior.TintAndShade = 0

    ' 设置支出项目颜色
    Range("B2:B15").Interior.ThemeColor = xlThemeColorAccent2
    Range("B2:B15").Interior.TintAndShade = -0.25

    ' 设置总计项目颜色
    Range("C2:C2").Interior.ThemeColor = xlThemeColorAccent3
    Range("C2:C2").Interior.TintAndShade = 0.5
End Sub

通过上述代码，我们为年度预算表中的不同项目应用了主题颜色，使文档在不同主题下都能保持良好的视觉效果。

5. 总结与建议

5.1 总结

本文全面介绍了 Excel VBA 中颜色处理的相关知识，包括 RGB 颜色系统、颜色转换、灰度处理和文档主题颜色的应用。通过学习这些知识，你可以在 Excel 中实现更加丰富和专业的颜色设置，提升文档的视觉效果和一致性。

5.2 建议

• 合理使用颜色 ：在使用颜色时，要考虑到颜色的可读性和视觉效果。避免使用过于鲜艳或对比度低的颜色组合，以免影响用户的阅读体验。
• 结合主题使用颜色 ：尽量使用文档主题颜色来设置元素的颜色，这样可以确保文档在不同主题下都能保持一致的风格。
• 测试颜色效果 ：在完成颜色设置后，要进行充分的测试，特别是在不同的显示设备和打印环境下，检查颜色是否符合预期。
• 不断学习和实践 ：Excel VBA 颜色处理的功能非常强大，不断学习和实践可以帮助你掌握更多的技巧和方法，从而实现更加复杂和精美的颜色设置。

6. 流程图总结

graph LR
    A[颜色处理基础] --> B[RGB颜色系统]
    A --> C[颜色转换]
    A --> D[十进制颜色值排列]
    B --> E[RGB转十进制颜色]
    B --> F[十进制颜色转RGB]
    G[灰度处理] --> H[理解灰度]
    G --> I[颜色转换为灰度]
    G --> J[以灰度查看图表]
    G --> K[颜色实验]
    L[文档主题颜色处理] --> M[文档主题概述]
    L --> N[理解文档主题颜色]
    L --> O[显示所有主题颜色]
    L --> P[主题颜色与非主题颜色设置对比]
    L --> Q[利用主题颜色提升文档一致性]
    R[实际应用案例] --> S[动态颜色显示的销售报表]
    R --> T[主题颜色应用的年度预算表]

通过以上的流程图，我们可以清晰地看到 Excel VBA 颜色处理的各个知识点之间的关系，以及它们在实际应用中的体现。希望本文能够帮助你更好地掌握 Excel VBA 颜色处理的技巧，提升你的工作效率和文档质量。