我有一个代码插入到一个模块中，当我使用msgbox形式的宏按钮时，它会给我活动单元格的rgb十六进制颜色。
例如，我有一个黄色的单元格，在msgbox中返回rgb（255，255，0）。当我使用此按钮时，我希望它也在活动单元格中插入答案。
这可能吗？
代码本身看起来像这样：

Sub GetRGBColor_Fill()
'PURPOSE: Output the RGB color code for the ActiveCell's Fill Color
'SOURCE: www.TheSpreadsheetGuru.com

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"


End Sub

我不知道如何让它工作。我所做的就是让它填写“真”或“假”。