如何在激活Checkbox3时自动为对应行F列设置当前日期和时间？

以下是两种场景的解决方案，根据你的实际情况选择：

场景1：使用ActiveX复选框（名称为Checkbox3） #

打开Excel的VBA编辑器（按Alt+F11），找到目标工作表，粘贴以下代码：

Private Sub CheckBox3_Click()
    If CheckBox3.Value = True Then
        Dim targetRow As Integer
        targetRow = CheckBox3.TopLeftCell.Row
        ' 填充当前日期时间到对应行F列
        Cells(targetRow, "F").Value = Now()
        ' 设置日期时间格式，可按需修改
        Cells(targetRow, "F").NumberFormat = "yyyy-mm-dd hh:mm:ss"
    End If
End Sub

• 确认复选框名称：右键复选框→「查看属性」，在「名称」栏确认是否为Checkbox3，如果不是，把代码里的CheckBox3改成实际名称
• 如果需要取消勾选时清空F列，取消代码里Else块的注释即可

场景2：使用Excel 365单元格内置复选框 #

如果是通过数据验证添加的单元格内复选框，用以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅响应G列单个单元格的复选框状态变化
    If Not Intersect(Target, Columns("G")) Is Nothing And Target.Cells.Count = 1 Then
        If Target.Value = True Then
            ' 给左侧F列填充当前时间
            Target.Offset(0, -1).Value = Now()
            Target.Offset(0, -1).NumberFormat = "yyyy-mm-dd hh:mm:ss"
        End If
    End If
End Sub

• 这段代码只会在G列复选框被勾选时触发，其他单元格输入不会触发操作

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