如何利用VBA来设置条件格式

等爱的誓言

如何利用VBA来设置条件格式


如图所示
如果 单元格的值包含：已超期 则格式设置成居中、加粗、红色
如果 单元格的值包含：已到期 则格式设置成居中、加粗、黄色
如果 单元格的值包含：合格期 则格式设置成居中、加粗、绿色


补充内容 (2022-11-18 22:32):
第19楼，有真解（含附件）

3190496160

这种问题，录制宏即可解决

582766

录制宏就可以了

等爱的誓言

3190496160 发表于 2022-11-10 19:20
这种问题，录制宏即可解决

已经录制了但是运行不管用，代码也没有报错


Sub 设置状态颜色()
        i = [f:f].Select
        If i = "合格期" Then
            Selection.HorizontalAlignment = xlHAlignCenter
            With Selection.Font
                .Color = 5287936
                .TintAndShade = 0
            End With
        End If
        If i = "已到期" Then
            Selection.HorizontalAlignment = xlHAlignCenter
            Selection.Font.Bold = True
            With Selection.Font
                .Color = 65535
                .TintAndShade = 0
            End With
        End If
        If i = "已超期" Then
            Selection.HorizontalAlignment = xlHAlignCenter
            Selection.Font.Bold = True
            With Selection.Font
                .Color = 255
                .TintAndShade = 0
            End With
        End If
   
End Sub

等爱的誓言

582766 发表于 2022-11-10 19:37
录制宏就可以了

已经录制了但是运行不管用，代码也没有报错。

3190496160

等爱的誓言 发表于 2022-11-10 20:05
已经录制了但是运行不管用，代码也没有报错

附件太过于简单了，加之，你连要在哪个区域设置都没说，想帮你也是爱莫能助

等爱的誓言

3190496160 发表于 2022-11-10 20:14
附件太过于简单了，加之，你连要在哪个区域设置都没说，想帮你也是爱莫能助

想根据M列的内容更改M列的对应的颜色

3190496160

Sub 设置状态颜色()
Dim rng1 As Range, rng2 As Range, rng3 As Range
With Sheets("二级1号机")
    r = .Cells(Rows.Count, 13).End(xlUp).Row
    .Range("m3:m" & r).Font.ColorIndex = 0
    ar = .Range("m1:m" & r)
    For i = 3 To UBound(ar)
        If Trim(ar(i, 1)) = "已超期" Then
            If rng1 Is Nothing Then
                Set rng1 = .Range("m" & i) '.Font.ColorIndex = 3
            Else
                Set rng1 = Union(rng1, .Range("m" & i))
            End If
        ElseIf Trim(ar(i, 1)) = "已到期" Then
            If rng2 Is Nothing Then
                Set rng2 = .Range("m" & i) '.Font.ColorIndex = 6
            Else
                Set rng2 = Union(rng2, .Range("m" & i))
            End If
        ElseIf Trim(ar(i, 1)) = "合格期" Then
            If rng3 Is Nothing Then
                Set rng3 = .Range("m" & i) '.Font.ColorIndex = 4
            Else
                Set rng3 = Union(rng3, .Range("m" & i))
            End If
        End If
    Next i
    If Not rng1 Is Nothing Then rng1.Font.ColorIndex = 3
    If Not rng2 Is Nothing Then rng2.Font.ColorIndex = 44
    If Not rng3 Is Nothing Then rng3.Font.ColorIndex = 4
End With
End Sub

3190496160

更改标识颜色.rar (26.39 KB, 下载次数: 31)

2022-11-11 08:16 上传

点击文件名下载附件

3190496160

目前打开文件自动添加填充色，也可以点击按钮填充颜色，
但是，看你的附件，完全可以做成单元格触发事件，输入日期，自动判断合格，超期等，同时自动填充字体颜色，但是，看不懂你的判断条件