如何查看Excel单元格中颜色的代码？
1.打开excel表，选中目标单元格，右键，然后点击“设置单元格格式”。
2.在弹出的窗口中选择“填充”选项卡，再单击“其他颜色”按钮，如图所示。
3.在“颜色”窗口中选择“自定义”，然后便可看到当前颜色的信息了，如图，颜色信息可表示为RGB(161,185,117)。
Microsoft Office是一套由微软公司开发的办公软件套装，它可以在Microsoft Windows、Windows Phone、Mac系列、iOS和Android等系统上运行。与其他办公室应用程序一样，它包括联合的服务器和基于互联网的服务。从2007版的Office被称为“Office System”而不叫“Office Suite”，反映出它们包括服务器的事实。
Office最初是一个推广名称，出现于1990年代早期，指一些以前曾单独发售的软件的合集。当时主要的推广重点是：购买合集比单独购买要省很多钱。最初的Office版本包含Word、Excel和PowerPoint。“专业版”包含Microsoft Access，Microsoft Outlook 当时不存在。随着时间的改变，Office应用程序逐渐集成，共享特性，例如：拼写和语法检查、OLE数据集成和VBA脚本语言。微软目前将Office延伸作为一个开发平台，可以借由专用商店下载第三方软件搭配使用。
Office常是制作文档文件的标准，而且有一些其他产品不存在的特性，但是其他产品也有Office缺少的特性。自从Microsoft 2007 Office System开始，有一个和以前版本差异很大的用户界面，该界面被称为Ribbon界面，并沿用在Microsoft Office 2010、Microsoft Office 2013和Microsoft Office 2016中。
打开需要应用的excel。
按ALT+F11，会弹出代码编辑框。
在左边会显示出上下两个类别框里，名字分别是Project-VBAProject和Properties-sheet1(这个sheet几是你当前编辑的表单)
在上面的框边有三个小图标，view code(查看代码),view project(查看项目)，toggle folder(打开或折叠文件夹)。
选择view code，会弹出一个编辑框。
在编辑框里黏贴下面的语言: Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Target '清除工作表单元格的背景色 .Parent.Cells.Interior.ColorIndex = xlNone '设置选中区域所在行的背景色 .EntireRow.Interior.Color = vbGreen '设置选中区域所在列的背景色 .EntireColumn.Interior.Color = vbGreen End With End Sub
贴完之后，关闭对话框。关闭编辑框，返回到excel。
这时候你再点击任意单元格，就会自动出现你要的效果了。
Excel 中如何让一个单元格内的数值根据这个单元格的颜色的改变而改变?
工具—宏—编辑器—双击sheet1(sheet1)，把下边代码粘上，在改变填充色后，要把鼠标放在单元格的编辑框里回下车，值就会改变，假如不在编辑框内回车，只改变填充色，vba程式会认为单元格无改动，值就不太会改变。
PRIVATE Sub Worksheet_Change(ByVal Target As Range)
On ERROR Resume Next
If Target.Interior.Color = vbBlack Then
Target.Value = 1
ELSE
If Target.Interior.Color = vbRed Then
Target.Value = 2
End If
End If
End Sub
