excel2010如何使用VBA代码判断单元格颜色

1、打开一个我们设置好单元格颜色的文件

2、然后我们按AIL+F11进入VBA编辑页面

3、选择模块，如图

4、单击鼠标右键，选择插入选项在选择模块，如图

5、得到如图效果

6、在右侧将如下代码写入：Sub text() Dim arr, i%, d, j Dim brr() Set d = CreateObject("scripting.dictionary") arr = Sheet3.Range("A1").CurrentRegion For i = 1 To UBound(arr) j = Sheet3.Cells(i, 1).Interior.ColorIndex d(j) = arr(i, 2) Next For i = 1 To 56 ReDim Preserve brr(i - 1) j = Cells(i, 1).Interior.ColorIndex brr(i - 1) = d(j) Next Range("B1").Resize(56, 1) = Application.Transpose(brr)End Sub

7、按F5键是的代码运行，再回表格页面得到如图效果

8、说明： 在使用代码前，一定要启用宏才行，