如何在ActiveX复选框勾选与取消勾选时更新时间戳？

核心结论 #

两种方案的实现复杂度相差不大，但单选按钮在状态可视化上更清晰，能直接展示当前是“启用”还是“停用”；而复选框操作更快捷，代码更紧凑。选择哪种取决于你对状态直观性的需求。

优化后的复选框代码（实现双向时间戳更新） #

你当前的代码只处理了勾选时的时间戳，补充取消勾选的逻辑后，就能实现双向记录。同时可以简化“复制值防止自动更新”的操作（VBA中直接赋值Now()给单元格，默认存储的是静态时间值，无需复制粘贴）：

Private Sub CheckBox3_Click()
    ' ER Runner
    ' 同步复选框状态到AG47（第33列对应AG列）
    Me.Cells(47, 33).Value = Me.CheckBox3.Value
    
    ' 更新时间戳到X47，直接赋值为静态时间值
    Me.Cells(47, 24).Value = Now()
    ' 合并单元格（按需保留）
    Range("X47:AD47").Merge
End Sub

单选按钮实现方案 #

如果改用“启用/停用”单选按钮，需要先插入两个ActiveX单选按钮（设置相同的GroupName确保互斥），命名为OptionButton_Enable和OptionButton_Disable，然后编写以下代码：

基础版代码 #

Private Sub OptionButton_Enable_Click()
    If Me.OptionButton_Enable.Value Then
        Me.Cells(47, 33).Value = True
        Me.Cells(47, 24).Value = Now()
        Range("X47:AD47").Merge
    End If
End Sub

Private Sub OptionButton_Disable_Click()
    If Me.OptionButton_Disable.Value Then
        Me.Cells(47, 33).Value = False
        Me.Cells(47, 24).Value = Now()
        Range("X47:AD47").Merge
    End If
End Sub

简化版（提取公共逻辑） #

把重复的状态更新和时间戳代码抽成子过程，减少冗余：

Private Sub UpdateRecord(isEnabled As Boolean)
    Me.Cells(47, 33).Value = isEnabled
    Me.Cells(47, 24).Value = Now()
    Range("X47:AD47").Merge
End Sub

Private Sub OptionButton_Enable_Click()
    UpdateRecord True
End Sub

Private Sub OptionButton_Disable_Click()
    UpdateRecord False
End Sub

方案对比 #

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