作者：乔山办公网日期：
返回目录：excel表格制作
Excel中对抄颜色处理，或者批量删除行列、更改行列大小等操作，用VBA处理最方便。对不同颜色赋值，可以用袭VBA快速处理。
操作系统：Win10；软件版本：Office2007
举例说明如下；
1.将A1:D4区域的颜色为红色的单元格显示为1，颜色为绿色的单元格显示为2：
2.Alt+F11，插入代码及代码注释如下：zhidao
3.F5选择执行代码，结果如下：
1、首先在excel表格中为单元格添加上背景色，需要知道添加的颜色代码，选中单元格。
2、然后点击工具抄栏中的“填充”选项知，在其下拉菜单中找到填充的绿色。
3、点击打开的填充选项中点击“其他颜色”选项。
4、在打开的其他颜色对话框中即可看到当前的颜色对应的“RGB”颜色代码，下图中可以看到红道色为“112”，绿色为“173”，蓝色为“71”。
答：转换RGB可以使用公式。e79fa5e98193e59b9ee7ad94339设置颜色可用代码。
如图：单元格B1的公式：
=MOD(INT(HEX2DEC(REPLACE(A1,1,1,""))/256 ^0),256)&","&MOD(INT(HEX2DEC(REPLACE(A1,1,1,""))/256 ^1),256)&","&MOD(INT(HEX2DEC(REPLACE(A1,1,1,""))/256 ^2),256)
返回结果分别代表R,G,B值。
C1单元格颜色可随A1的值改变而改变，具体实现方法，右键工作表标签--"查看代码"，然后在窗口中贴入下面代码：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 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
之后可以通过改变A1值得到相应结果。
方法与步骤：
1.打开百excel表，选中目标单元格，右键，然后点击“设置度单元格格式”。
2.在弹出的窗口中选择“填充”选项卡，再单知击“其他颜色”按钮，如图所示。
3.在“颜道色”窗口中选择“自定义”，然后便可看到当前颜色的信息内了，如图，颜色信息可表示为RGB(161,185,117)。
4.还可以选容择不同的颜色模式下查看该背景色的属性信息。