如何通过Excel公式或VBA捕获点击「Yes」时的精确上报时间？

可以实现自动捕获点击「Yes」按钮的精确操作时间，但Excel公式无法完成这个需求——公式仅能依赖单元格内容变化触发计算，无法响应按钮点击这类交互操作，必须通过VBA代码实现。

具体实现步骤（以表单控件按钮为例） #

1. 打开Excel，切换到「开发工具」选项卡（若未显示，需在Excel选项中启用）。
2. 点击「插入」→ 选择「表单控件」中的「按钮（窗体控件）」，在工作表合适位置绘制按钮，命名为「Yes」。
3. 右键点击按钮，选择「指定宏」→ 点击「新建」，在弹出的VBA编辑器中粘贴以下代码：

Sub RecordYesClickTime()
    ' 自定义目标单元格：这里默认将时间写入Sheet1的A列下一个空行，可按需修改
    Dim targetCell As Range
    Set targetCell = ThisWorkbook.Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
    
    ' 写入当前系统精确时间（含毫秒）
    targetCell.Value = Now()
    ' 设置单元格格式为带毫秒的精确时间格式
    targetCell.NumberFormat = "yyyy-mm-dd hh:mm:ss.000"
End Sub

4. 保存文件为「Excel 启用宏的工作簿（.xlsm）」格式，否则宏会丢失。

若使用ActiveX按钮的调整方案 #

如果你的「Yes」是ActiveX控件按钮，操作略有不同：

1. 右键ActiveX按钮 → 选择「查看代码」，在按钮的Click事件中粘贴以下代码：

Private Sub CommandButton1_Click()
    Dim targetCell As Range
    Set targetCell = ThisWorkbook.Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
    targetCell.Value = Now()
    targetCell.NumberFormat = "yyyy-mm-dd hh:mm:ss.000"
End Sub

2. 注意将代码中的CommandButton1替换为你的按钮实际名称。

关键说明 #

• Now()函数会获取当前系统的精确时间（包含毫秒），满足上报时间的精度需求。
• 使用前需确保Excel启用宏（打开文件时在安全警告中选择「启用内容」）。
• 可根据实际需求修改代码中的目标单元格位置（比如将"A"改为"B"，或指定固定单元格如Range("C2")）。

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