一、要求：
1、配色表共需要五列：变量名、十六进制颜色、矫正后的十六进制颜色代码、RGB颜色、颜色示例
1640409613(1).png
2、在将十六进制输入表格后，会自动填充矫正后的十六机制及rgb两列，并在最后展示颜色
二、实操：
1、矫正后的十六进制一栏中输入公式(ps:excel使用的是BGR记录颜色，因此需要把常规RGB格式的十六进制代码转化为BGR，才能被后面的VBA代码正确使用)
="#"&MID(REPLACE(B2,1,1,""),5,2)&MID(REPLACE(B2,1,1,""),3,2)&MID(REPLACE(B2,1,1,""),1,2)
2、rgb一栏中输入公式
=MOD(INT(HEX2DEC(REPLACE(B2,1,1,""))/256 ^2),256)&","&MOD(INT(HEX2DEC(REPLACE(B2,1,1,""))/256 ^1),256)&","&MOD(INT(HEX2DEC(REPLACE(B2,1,1,""))/256 ^0),256)
3、在excel最下面sheet处，右键->查看代码->插入->模块，并将下面代码插入弹出来的输入框中
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
For Each cell In Target
If cell = "" Then
cell.Offset(0, 2).Interior.Pattern = xlNone
Exit Sub
Else
cell.Offset(0, 2).Interior.Color = Application.Hex2Dec(Right(cell, Len(cell) - 1))
End If
Next
End If
End Sub
4、使用一些颜色网站开始挑选颜色即可
如：https://colorbrewer2.org/#type=sequential&scheme=Reds&n=4
网友评论