Excel复选框切换后自动填充日期：TODAY()函数失效问题求助

仅用公式的局限性 #

你用的=IF($A1="YES";TODAY();"-")会自动更新，核心原因是TODAY()属于易失性函数——每次工作表重新计算（比如打开文件、编辑其他单元格）都会刷新数值。就算把结果转成文本，公式本身还是会先计算出当日日期再转换，所以旧记录的日期依旧会跟着变。

想用纯公式实现需求的话，只能靠迭代计算，但存在明显缺陷：

• 先开启迭代计算：文件→选项→公式→勾选「启用迭代计算」，把迭代次数设为1
• 日期列（假设是B列）用公式：=IF(A1="YES", IF(B1="-", TODAY(), B1), "-")
• 问题：如果误把A列的YES改回NO，再重新设为YES，日期会更新成操作当天的；而且迭代计算可能干扰其他需要精确计算的公式，容易引发意外问题。

更可靠的VBA方案 #

这是彻底解决问题的办法，只会在你把A列从NO改成YES时，给对应行的日期列写入静态日期，旧记录的日期绝不会被更新：

1. 右键点击工作表标签→选择「查看代码」
2. 粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 只监控A列的单元格变化
    If Not Intersect(Target, Me.Columns("A")) Is Nothing Then
        Application.EnableEvents = False ' 防止触发重复事件
        Dim cell As Range
        For Each cell In Intersect(Target, Me.Columns("A"))
            If UCase(cell.Value) = "YES" Then
                ' 如果日期列（这里对应B列）为空或显示"-"，写入当天日期
                If cell.Offset(0, 1).Value = "" Or cell.Offset(0, 1).Value = "-" Then
                    cell.Offset(0, 1).Value = Date
                    ' 自定义日期格式为你需要的"dd.mm"
                    cell.Offset(0, 1).NumberFormat = "dd.mm"
                End If
            Else
                ' 当值不是YES时，日期列恢复为"-"
                cell.Offset(0, 1).Value = "-"
            End If
        Next cell
        Application.EnableEvents = True
    End If
End Sub

3. 把文件保存为「Excel启用宏的工作簿（.xlsm）」格式
4. 后续操作时，只要把A列选项改成YES，对应B列就会写入当天的静态日期；改成NO的话，日期列会变回"-"，旧记录的日期永远不会自动更新。

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