vba获取单元格的填充色RGB信息

以下是获取单元格填充色RGB信息的VBA代码示例：

Sub GetCellColorRGB() Dim rng As Range Dim colorRGB As Long

Set rng = Range("A1") '将A1单元格替换为所需单元格

colorRGB = rng.Interior.Color '获取单元格填充色的RGB值
Debug.Print "Red: " & (colorRGB Mod 256) '输出红色值
Debug.Print "Green: " & ((colorRGB \ 256) Mod 256) '输出绿色值
Debug.Print "Blue: " & ((colorRGB \ 256 \ 256) Mod 256) '输出蓝色值

End Sub

注意：返回的RGB值是从0到255的整数，分别表示红、绿、蓝三种颜色的亮度。如果单元格没有填充色，则返回的RGB值为0。