Sub 条件颜色()
Dim cColor
Dim strR, strG, strB
cColor = Hex(Me.[a25].DisplayFormat.Interior.Color) '获取颜色值转为16进制
cColor = String(6 - Len(cColor), "0") & cColor '位数不足6位,用0补足
'获得的16进制颜色代码,排序是BBGGRR,取单色代码时需要逆序取值
strR = Right(cColor, 2)
strG = Mid(cColor, 3, 2)
strB = Left(cColor, 2)
End Sub
网友评论