Excel函数需求：计算单元格状态变更前的天数并固定数值

针对你需要统计订单日期到指定单元格变为"approved"前的天数，且状态变更后固定数值的需求，提供两种可行方案：

方案一：公式+迭代计算（无需宏） #

假设：

• 订单日期存于A1（示例值：2022/12/22）
• 状态单元格为B1（最终会变为"approved"）
• 辅助单元格C1用于记录状态变更日期
• 结果单元格D1显示最终天数

1. 设置辅助单元格C1：
   输入公式：

   =IF(B1="approved",IF(C1="",TODAY(),C1),"")
   

   这个公式会在B1首次变为"approved"时，将当天日期写入C1，之后保持固定。

2. 启用迭代计算：
   依次点击「文件」→「选项」→「公式」，勾选「启用迭代计算」，将「最多迭代次数」设为1（避免循环引用报错）。

3. 结果单元格D1公式：

   =IF(B1="approved",C1-A1,TODAY()-A1)
   

   当B1未变为"approved"时，显示当前日期与订单日的天数差；状态变更后，自动切换为变更日与订单日的固定差值。

方案二：VBA宏（自动固定数值） #

如果不想启用迭代计算，可通过VBA实现状态变更时自动计算并锁定天数：

1. 右键目标工作表标签，选择「查看代码」，粘贴以下代码：

   Private Sub Worksheet_Change(ByVal Target As Range)
       ' 按需修改单元格地址
       Dim orderDate As Range: Set orderDate = Me.Range("A1")
       Dim statusCell As Range: Set statusCell = Me.Range("B1")
       Dim resultCell As Range: Set resultCell = Me.Range("D1")
       
       ' 仅处理状态单元格的变更
       If Not Intersect(Target, statusCell) Is Nothing Then
           If UCase(statusCell.Value) = "APPROVED" Then
               ' 计算天数并写入结果单元格
               resultCell.Value = Date - orderDate.Value
               ' 锁定单元格防止误改（可选，需先保护工作表）
               resultCell.Locked = True
           End If
       End If
   End Sub
   

2. 保存工作簿为「启用宏的工作簿（.xlsm）」格式。
   此后，当B1被修改为"approved"时，D1会自动计算并固定天数，后续不会随日期更新。

注意事项 #

• 公式法需确保无其他循环引用公式，避免计算异常；
• VBA法需启用宏，若工作簿共享，需确认宏权限设置；
• 可根据实际单元格位置修改公式或代码中的单元格地址。

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