可通过vba自定义函数获取excel单元格背景色的rgb或十六进制代码：一、启用开发工具并插入模块，粘贴getcellcolorcode函数提取rgb值；二、用=getcellcolorcode(a1)调用；三、新增getcellhexcolor函数输出#rrggbb格式；四、对条件格式颜色，改用displayformat属性并添加错误处理。
如果您需要在Excel表格中快速获取单元格背景颜色的RGB代码，但Excel内置函数无法直接返回颜色值，则可通过VBA自定义函数实现。以下是具体操作步骤：
一、启用Excel开发工具并插入VBA模块
要使用自定义函数，必须先在Excel中启用“开发工具”选项卡，并创建一个可调用的VBA函数。该函数将读取指定单元格的Interior.Color属性，并转换为标准RGB格式字符串。
1、点击“文件”→“选项”→“自定义功能区”，勾选“开发工具”，点击“确定”。
2、在“开发工具”选项卡中，点击“Visual Basic”打开VBA编辑器。
3、在VBA编辑器中，右键“Normal”或当前工作簿名称，选择“插入”→“模块”。
4、在新建模块的代码窗口中，粘贴以下VBA函数代码：
Function GetCellColorCode(cell As Range) As String Dim r As Long, g As Long, b As Long r = cell.Interior.Color Mod 256 g = (cell.Interior.Color \ 256) Mod 256 b = (cell.Interior.Color \ 65536) Mod 256 GetCellColorCode = "RGB(" & r & "," & g & "," & b & ")" End Function
二、在工作表中调用自定义函数
函数定义完成后，即可像使用SUM或AVERAGE一样在单元格中输入公式调用，实时返回所选单元格背景色的RGB字符串表示。
1、关闭VBA编辑器，返回Excel工作表界面。
2、在任意空白单元格中输入公式：=GetCellColorCode(A1)（将A1替换为目标单元格引用）。
3、按Enter确认，该单元格将显示类似“RGB(255,204,0)”的文本结果。
4、若目标单元格背景色为无填充（即默认白色），函数返回“RGB(255,255,255)”。若为透明填充（未设置颜色），则返回“RGB(0,0,0)”——因Excel将无色视为ColorIndex=0，对应RGB(0,0,0)。
三、扩展支持十六进制颜色代码输出
部分场景需使用#RRGGBB格式的十六进制颜色码，原函数不支持该格式，因此需新增一个独立函数以满足不同输出需求。该函数通过位运算提取各颜色通道值，并格式化为两位十六进制字符串。
1、回到VBA编辑器中的同一模块。
2、在原有函数下方另起一行，粘贴以下代码：
Function GetCellHexColor(cell As Range) As String Dim clr As Long clr = cell.Interior.Color GetCellHexColor = "#" & Right("00" & Hex(clr Mod 256), 2) & _ Right("00" & Hex((clr \ 256) Mod 256), 2) & _ Right("00" & Hex(clr \ 65536), 2)
3、返回工作表，在空白单元格中输入：=GetCellHexColor(B2)（B2为待查单元格）。
4、确认后将返回形如“#CCFF99”的六位十六进制颜色代码。
四、处理条件格式导致的颜色不可读问题
当单元格背景由条件格式动态设定时，Interior.Color属性无法反映实际显示颜色，因其仅读取手动设置的填充色。此时需借助DisplayFormat属性获取屏幕渲染后的颜色值，但该属性仅在启用“启用交互式更新”且非批量调用时有效。
1、修改原函数，使用DisplayFormat.Interior.Color替代Interior.Color：
Function GetDisplayedColorCode(cell As Range) As String Dim r As Long, g As Long, b As Long On Error Resume Next r = cell.DisplayFormat.Interior.Color Mod 256 g = (cell.DisplayFormat.Interior.Color \ 256) Mod 256 b = (cell.DisplayFormat.Interior.Color \ 65536) Mod 256 If Err.Number 0 Then GetDisplayedColorCode = "N/A (Conditional Format Active)" Else GetDisplayedColorCode = "RGB(" & r & "," & g & "," & b & ")" End If On Error GoTo 0 End Function
2、在工作表中调用：=GetDisplayedColorCode(C3)。
3、若单元格应用了条件格式且未手动填充，函数将返回“N/A (Conditional Format Active)”，提示用户该颜色不可直接捕获。
