检测单元格的条件颜色

Question

我正在将 Excel 中的邮件合并到 Word 中，我需要复制一些单元格的背景颜色以及内容。

在这里，我了解到我可以添加一个帮助列，并插入一个自定义函数（类似于 Selection.Interior.Color）来检测所需单元格的代码。我打算让邮件合并悄悄地将该代码传递给 Word，宏会在其中看到它并使用它为相应的表格单元格着色。

很遗憾，Selection.Interior.Color 仅检测单元格的自然基础颜色，而不是条件格式的颜色。

有没有办法检测条件格式指定的颜色？

（有 35 个不同的列使用至少 8 组不同的条件规则）。

结论：这些解决方案似乎有效，但我决定避免向 Excel 工作表添加数据或宏。相反，我在 Word 中放置了一个宏，它基本上复制了条件格式功能。它很慢，但我认为它最终更干净。

谢谢大家。

Answer 1

正如@David 所说，这似乎很痛苦。但是，如果条件格式仅包含“传统”标准 excel 颜色（请参阅here），则以下内容似乎可以正确响应（未经过详尽测试）。 A 列（第 1 到 12 行）包含从 1 到 12 的值，并且对这些单元格应用了条件格式。只要颜色是“标准的”，下面的代码似乎就可以工作。

Sub Button1_Click()
    For i = 1 To 12
        Worksheets("Sheet1").Cells(i, 2) = Worksheets("Sheet1").Cells(i, 1).DisplayFormat.Interior.ColorIndex
    Next
End Sub

Answer 2

这是一个例程，它将 displayformat.interior.color 代码放在正在测试的列旁边的“帮助列”中。我还添加了一个列来显示 RGB 值，但只是为了感兴趣。哦，颜色都是条件格式生成的。

Option Explicit
Sub GetColor()
    Dim R As Range, C As Range
Set R = Range(Cells(2, 1), Cells(10, 1))
For Each C In R
    C.Offset(0, 1).Value = C.DisplayFormat.Interior.Color
    C.Offset(0, 2).Value = converttorgb(C.Offset(0, 1).Value)
Next C
End Sub

Function ConvertToRGB(lColor As Long) As String
    Dim H As String
    Dim Red As Integer, Green As Integer, Blue As Integer
    H = Format(Hex(lColor), "@@@@@@")
Red = Val("&H" & Right(H, 2))
Green = Val("&H" & Mid(H, 3, 2))
Blue = Val("&H" & Left(H, 2))

ConvertToRGB = Format(Red, "0\, ") & Format(Green, "0\, ") & Format(Blue, "0")

End Function

根据您将此信息传输到 Word 的方式，您甚至可能不需要将其放在工作表上。