如何使用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、说明：

   在使用代码前，一定要启用宏才行，