EXCELVBA自定义函数获取当前单元格背景颜色RGB值

Function RGB() As String
addr = ActiveWorkbook.Application.ThisCell.Address
c = Range(addr).Interior.Color
r = c Mod 256
g = (c - r) / 256 Mod 256
b = (c - r - g * 256) / 256 ^ 2
RGB = r & ',' & g & ',' & b
End Function