excel 如何根据单元格内16进制颜色值 填充这个单元格的颜色

Question

比如单元格内数据是 ff0000 时 该单元格自动填充为红色

Answer 1

Sub 颜色()Dim rng As Range, R, G, B As Integer
For Each rng In ActiveSheet.UsedRange
If rng <> "" Then
R = Application.WorksheetFunction.Hex2Dec(Left(rng.Value, 2))
G = Application.WorksheetFunction.Hex2Dec(Mid(rng.Value, 3, 2))
B = Application.WorksheetFunction.Hex2Dec(Right(rng.Value, 2))
rng.Interior.Color = RGB(R, G, B)
End If
Next
End Sub本回答被提问者和网友采纳

Answer 2

设置条件函数就可以了