如何修改VBA代码将活动单元格填充色的RGB值写入单元格？

你遇到的问题是因为错误地将RGB字符串当作公式赋值给单元格，Excel尝试解析不存在的RGB工作表函数，导致返回TRUE/FALSE。以下是修正后的代码，既能弹出RGB值提示，又能将正确的RGB字符串写入活动单元格：

Sub GetRGBColor_Fill()
'PURPOSE: Output the RGB color code for the ActiveCell's Fill Color and write it to the cell

Dim HEXcolor As String
Dim RGBcolor As String

HEXcolor = Right("000000" & Hex(ActiveCell.Interior.Color), 6)

RGBcolor = "RGB(" & CInt("&H" & Right(HEXcolor, 2)) & _
", " & CInt("&H" & Mid(HEXcolor, 3, 2)) & _
", " & CInt("&H" & Left(HEXcolor, 2)) & ")"

MsgBox RGBcolor, vbInformation, "Cell " & ActiveCell.Address(False, False) & ":  Fill Color"

' 将RGB字符串以文本形式写入活动单元格
ActiveCell.Value = RGBcolor

' 可选：开启自动换行（如果需要）
' ActiveCell.WrapText = True
End Sub

关键说明： #

• 核心修改是新增ActiveCell.Value = RGBcolor：直接将生成的RGB字符串赋值给单元格的Value属性，Excel会将其识别为纯文本，而非公式，避免解析错误。
• 如果你之前用的是ActiveCell.Formula = RGBcolor，Excel会把RGB(...)当作公式执行，但Excel没有内置的RGB工作表函数，因此会返回异常的逻辑值（TRUE/FALSE）。

如果需要仅写入RGB数值（不带RGB()前缀），可以修改RGBcolor的拼接逻辑：

RGBcolor = CInt("&H" & Right(HEXcolor, 2)) & ", " & CInt("&H" & Mid(HEXcolor, 3, 2)) & ", " & CInt("&H" & Left(HEXcolor, 2))

内容的提问来源于stack exchange，提问作者Tdytech