VBA条件格式化问题：L列为日期格式且O列为Ready时填充P列颜色

原代码出现method 'range' of object '_Worksheet' failed错误的核心原因：

• Set ws = days_ready写法错误，未正确指定工作表对象，必须通过工作表名称或索引明确引用
• 直接对整列区域的NumberFormat和Value做判断不成立，多单元格区域的这类属性无法直接返回统一的判断结果，需要逐个单元格检查或通过条件格式规则实现

修正方案1：循环遍历单元格逐个判断 #

Sub FormatPColumn()
    Dim ws As Worksheet
    Dim i As Integer
    
    ' 正确引用工作表，替换为你的目标工作表名称
    Set ws = ThisWorkbook.Worksheets("days_ready")
    
    ' 遍历L3到L76的每一行
    For i = 3 To 76
        ' 检查L列单元格格式为mm/dd/yyyy，且O列对应单元格为Ready
        If ws.Cells(i, "L").NumberFormat = "mm/dd/yyyy" And ws.Cells(i, "O").Value = "Ready" Then
            ' 设置对应P列单元格填充色
            ws.Cells(i, "P").Interior.Color = 2162853
        Else
            ' 可选：不符合条件时清除原有颜色
            ws.Cells(i, "P").Interior.ColorIndex = xlColorIndexNone
        End If
    Next i
End Sub

修正方案2：用VBA添加条件格式规则（更高效） #

如果不想用循环，直接通过VBA给P列添加条件格式规则，自动匹配符合条件的单元格：

Sub AddConditionalFormat()
    Dim ws As Worksheet
    Dim targetRange As Range
    Dim cfRule As FormatCondition
    
    Set ws = ThisWorkbook.Worksheets("days_ready")
    Set targetRange = ws.Range("P3:P76")
    
    ' 先清除已有条件格式（可选操作）
    targetRange.FormatConditions.Delete
    
    ' 添加新的条件格式规则，公式中CELL("format",L3)="D4"对应Excel内部标识的mm/dd/yyyy格式
    Set cfRule = targetRange.FormatConditions.Add(Type:=xlExpression, Formula1:= _
        "=AND(CELL(""format"",L3)=""D4"",O3=""Ready"")")
    
    ' 设置填充颜色
    cfRule.Interior.Color = 2162853
End Sub

内容的提问来源于stack exchange，提问作者Malik Henry