我有这个代码显示目标单元格的rgb颜色:
Function getRGB(RefCell)
Dim mystr As String
Application.Volatile
mystr = Right("000000" & Hex(RefCell.Interior.Color), 6)
getRGB = Application.Hex2Dec(Right(mystr, 2)) & ", " & _
Application.Hex2Dec(Mid(mystr, 3, 2)) & ", " & _
Application.Hex2Dec(Left(mystr, 2))
End Function
Run Code Online (Sandbox Code Playgroud)
我需要这个代码而不是炫耀其他单元格的rgb,会改变自己单元格的背景颜色.也许有人知道该怎么做?