有时，我们需要对应于某些颜色的十六进制代码，要么设计网站，要么开发网络应用程序。

在Excel中，我们可以通过“填充颜色——更多颜色”将各种背景颜色插入单元格，如下图1所示。

图1

但是，这些自定义颜色只有GRB值，如果您想要它们对应的十六进制代码，您实际上可以使用VBA来获取它们。如下图2所示，选择带有背景色的单元格区域并运行代码，然后在对应背景色单元格右侧的相邻单元格中输入对应颜色的十六进制代码。

图2。

代码如下：

用于确定颜色的十六进制代码。

子颜色十六进制代码()

变量声明。

调光范围

将字符串形式的字符串变暗

确保选定了单元格区域。

如果键入名称(选择)“范围”，则退出Sub

遍历选定区域中的每个单元格。

对于每个rng选择。细胞

确保单元格用背景色填充。

如果rng。内饰。颜色索引xlNone然后

获取十六进制值。

strHexCode=Right(" 000000 " Hex(RNG。内饰.颜色)，6)

反转十六进制值。

strHexCode=右(strHexCode，2)中(strHexCode，3，2)左(strHexCode，2)

添加一个#号，并在相邻的右单元格中显示该值。

rng。偏移量(0，1)。Value="#" strHexCode

如果…就会结束

下一个rng

仅选择活动单元格。

ActiveCell。挑选

末端接头

上述代码的图片版本如下：