满足条件时用Excel函数插入当前日期的异常及静态日期需求

一、I3显示0值的问题及修复 #

你的公式存在两个核心问题，导致I3显示0：

1. 动态计算逻辑缺陷：当AND(G3>=F3,H3=TODAY())条件不满足时，公式返回空字符串""，若I3单元格格式为数值/日期，Excel会将空字符串解析为0显示。
2. 无法固定日期：原公式是实时动态计算的，一旦条件变化，I3的值会随之改变，无法实现“满足条件时记录日期，之后永久保留”的需求。

修复方案（二选一） #

方案1：迭代计算实现自动记录日期

• 先开启迭代计算：文件>选项>公式>勾选「启用迭代计算」，设置迭代次数为1。
• 将I3公式替换为：

  =IF(AND(G3>=F3,H3=TODAY()), IF(I3="", TODAY(), I3), I3)
  

  逻辑：条件满足时，若I3为空则写入今日日期，否则保留原日期；条件不满足时直接保留I3现有值，避免清空为""导致显示0。

方案2：VBA宏实现触发式写入（更稳定）

若不想用迭代计算，可编写宏实现条件触发时一次性写入日期：

1. 右键工作表标签>查看代码，粘贴以下代码：

   Private Sub Worksheet_Change(ByVal Target As Range)
       If Not Intersect(Target, Range("G3:H3")) Is Nothing Then
           If Range("G3").Value >= Range("F3").Value And Range("H3").Value = Date Then
               If Range("I3").Value = "" Then
                   Range("I3").Value = Date
               End If
           End If
       End If
   End Sub
   

2. 保存文件为.xlsm格式（启用宏的工作簿）。
   此方法会在G3或H3变化时检查条件，满足则写入今日日期，之后不会因条件变化修改I3的值。

二、将H3转为静态值的方法 #

针对H3来自数据库实时数据的场景，固定当前值有两种方法：

• 手动操作：选中H3，按Ctrl+C复制，右键>H3>选择性粘贴>值（V），H3会从动态链接转为固定日期值，不再随数据库更新。
• 自动静态化（VBA）：若需每次打开文件时自动固定H3值，在ThisWorkbook模块中添加代码：

  Private Sub Workbook_Open()
       Range("H3").Value = Range("H3").Value
  End Sub
  

  每次打开文件时，H3的动态值会被替换为当前显示的静态值。

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