用户表单录入日期后Excel公式结果异常，手动修改可恢复正常

问题根源 #

通过VBA表单录入的日期（比如CorrectionDate），本质是文本格式，并非Excel可识别的标准日期类型。公式中的MAX函数无法对文本型日期计算最大值，因此无论输入的是未来还是过去日期，都会被判定为小于TODAY()，结果始终显示"Yes"。而手动修改时Excel会自动将文本转换为标准日期格式，公式也就恢复正常工作。

核心解决方案：修正VBA代码转日期格式 #

在给单元格赋值时，用CDate()函数将输入的日期文本转换为Excel可识别的日期类型，同时设置单元格为日期格式。

修正后的关键代码片段：

If CorrectionDate = "" Then
    With Sheets("NCRLog").Range("Data_Start").Offset(TargetRow, 15)
        .Value = ""
        .NumberFormat = "dd/mm/yyyy" ' 设置日期显示格式
    End With
Else
    With Sheets("NCRLog").Range("Data_Start").Offset(TargetRow, 15)
        .Value = CDate(CorrectionDate) ' 转换为标准日期类型
        .NumberFormat = "dd/mm/yyyy"
    End With
End If

其他日期字段（比如InvestigationDue）也需要做同样处理：

With .Offset(TargetRow, 10)
    .Value = CDate(InvestigationDue)
    .NumberFormat = "dd/mm/yyyy"
End With

额外处理：强制公式刷新 #

如果转换后公式仍偶尔出现不更新的情况，可在VBA代码末尾添加强制刷新语句：

' 刷新整个工作表的公式
Sheets("NCRLog").Calculate

公式逻辑验证 #

你的现有公式逻辑无问题，可保持原样使用：

=IF(ISBLANK($P11),"",IF(MAX($P11,$Q11,$S11)>TODAY(),"No","Yes"))

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