Excel自动获取当前时间：任务追踪器下拉菜单触发时间填充需求

嘿，这个需求完全能搞定！我给你两种实用的解决方案，一种是用VBA宏（完美适配自动触发的场景），另一种是用公式（适合不想启用宏的情况），你按需选就行：

这个方法能在你修改下拉菜单选项的瞬间自动填充时间，完全不用手动操作，步骤超简单：

1. 打开你的Excel表格，右键点击底部的工作表标签（比如Sheet1），选择查看代码，打开VBA编辑器。
2. 把下面的代码粘贴到编辑器的空白区域：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 假设下拉菜单在D列，可根据实际列修改，比如改成"E:E"
    If Not Intersect(Target, Me.Range("D:D")) Is Nothing Then
        ' 只处理单个单元格修改，避免批量操作出错
        If Target.Cells.Count = 1 Then
            Application.EnableEvents = False ' 防止触发循环更新
            Select Case Target.Value
                Case "Work in Progress"
                    ' 开始时间对应行的B列，可根据实际列修改，比如"A"
                    Me.Cells(Target.Row, "B").Value = Now()
                    ' 设置时间格式，可按需调整，比如"mm/dd/yyyy hh:mm AM/PM"
                    Me.Cells(Target.Row, "B").NumberFormat = "yyyy-mm-dd hh:mm:ss"
                Case "Closed"
                    ' 结束时间对应行的C列，可根据实际列修改，比如"D"
                    Me.Cells(Target.Row, "C").Value = Now()
                    Me.Cells(Target.Row, "C").NumberFormat = "yyyy-mm-dd hh:mm:ss"
            End Select
            Application.EnableEvents = True ' 恢复事件触发
        End If
    End If
End Sub

3. 调整代码里的列号：比如你的下拉菜单在E列，就把"D:D"改成"E:E"；开始时间在A列就把"B"改成"A"，结束时间在D列就把"C"改成"D"，完全匹配你的表格结构就行。
4. 保存文件时要选择**Excel启用宏的工作簿（.xlsm）**格式，不然宏会失效。打开表格时如果Excel提示禁用宏，记得选择启用，这样功能才能正常工作。

如果你的表格不允许启用宏，可以用IF结合NOW()函数，但有个小缺点：每次打开表格或编辑其他单元格时，时间会自动刷新成当前时间。如果能接受这个情况，可以试试：

假设下拉菜单在D2单元格，开始时间在B2，结束时间在C2：

• 在B2输入公式：

=IF(D2="Work in Progress", NOW(), "")

• 在C2输入公式：

=IF(D2="Closed", NOW(), "")

输入完成后，把这两个公式下拉填充到所有任务行就可以了。

如果需要固定时间（比如设置成选中"Work in Progress"那一刻的时间，之后不再变化），还是优先选VBA方案，公式的动态更新特性没法实现固定时间的需求。

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