使用excel做一个分组变量配色表

一、要求：

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