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

海滨驿站（滨）

把过程写在thisworkbook的 sub Workbook_Open()里试试。

等爱的誓言

Learner2022 发表于 2022-11-19 03:10
录制宏都是事件宏 不是触发宏（应该是这个名字我突然有点忘了emmm）

大哥，想起来的时候来指教一下。

等爱的誓言

海滨驿站（滨） 发表于 2022-11-19 10:21
把过程写在thisworkbook的 sub Workbook_Open()里试试。

好的，我试试看看行不行

等爱的誓言

海滨驿站（滨） 发表于 2022-11-19 10:21
把过程写在thisworkbook的 sub Workbook_Open()里试试。

已经试验过了，这样不能满足要求呀，只有打开的时候，当前工作表颜色改变了。不能实时更新。

等爱的誓言

创建的副本工作表可以，但是新建的工作表不可以。

于箱长

等爱的誓言 发表于 2022-11-21 18:23
创建的副本工作表可以，但是新建的工作表不可以。

把触发代码也复制到新工作表的代码窗口里

等爱的誓言

于箱长 发表于 2022-11-21 18:48
把触发代码也复制到新工作表的代码窗口里

请教大侠，是以下这样的吗？
Sub 改变标识颜色()
    For X = 3 To Cells(Rows.Count, 1).End(3).Row
        Range("M3:M241").Select
        ActiveWindow.ScrollRow = 1
        Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=" & """" & "合格期" & """" & "", Formula2:=""
        Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        Selection.FormatConditions(1).Font.Bold = 1
        Selection.FormatConditions(1).Font.Italic = 0
        Selection.FormatConditions(1).Font.Color = 5287936
        Selection.FormatConditions(1).Font.TintAndShade = 0
        Selection.FormatConditions(1).StopIfTrue = False
        Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=" & """" & "已到期" & """" & "", Formula2:=""
        Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        Selection.FormatConditions(1).Font.Bold = 1
        Selection.FormatConditions(1).Font.Italic = 0
        Selection.FormatConditions(1).Font.Color = 65535
        Selection.FormatConditions(1).Font.TintAndShade = 0
        Selection.FormatConditions(1).StopIfTrue = False
        Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=" & """" & "已超期" & """" & "", Formula2:=""
        Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        Selection.FormatConditions(1).Font.Bold = 1
        Selection.FormatConditions(1).Font.Italic = 0
        Selection.FormatConditions(1).Font.Color = 255
        Selection.FormatConditions(1).Font.TintAndShade = 0
        Selection.FormatConditions(1).StopIfTrue = False
    Next
End Sub