<em>EXCEL</em> <em>VBA</em>填充字体颜色和单元

材料/工具：Excel2010

1、打开Excel表格，按下【Alt+F11】组合快捷键打开VBA编辑器，也可百以点击菜单栏上面的【开发工具】，度【Visual Basic】打开VBA编辑器。

2、点击VBA编辑器菜单栏上面的【插入】、【模块】，也可以在编辑器上面使用【Alt+I+M】组合快捷键插入“模块”。

3、在VBA编辑器代码框里面输入以下代码：

4、在Excel表格上面的【开始】、【填充颜色】、【其他颜色】，在”颜色“对话框的【自定义】里面就可以找到，改变数值回就可以看到新增的颜色。

5、在VBA编辑器的工具栏里面点击“运行”图标即可运行程序，条件满足的行答将会自动填充所设置的颜色。

6、VBA自动填充满足条件的行的颜色完成。

Sub s()
    Dim a(3)
    t = [a1]
    For i = 0 To 3
        a(i) = Mid(t, i + 1, 1)
    Next
    For i = 2 To 85
        ff = True
        For j = 0 To 3
            f = False
            For k = j * 7 + 11 To j * 7 + 17
                If Cells(k, i).Text = a(j) Then
                    Cells(k, i).Font.ColorIndex = 3
                    f = True
                End If
            Next
            ff = ff And f
        Next
        If ff Then Cells(39, i).Resize(7).Interior.ColorIndex = 6
    Next
End Sub

Cells(1, 1).Font.Color

Sub s()
    t = [M1]
    c = Array(0, 3, 14, 6, 33)
    Dim k(9 To 12)
    For i = 1 To 4
        k(i + 8) = Mid(t, i, 1)
    Next
    Set d = CreateObject("scripting.dictionary")
    For i = 4 To 66
        For j = 9 To 12
            If Cells(i, j) = "" Then GoTo 1
            d(InStr(Cells(i, j), k(j))) = ""
        Next
        Cells(i, 13) = d.Count
        Cells(i, 13).Interior.ColorIndex = c(d.Count)
1:
        d.RemoveAll
    Next
End Sub