如何在Excel中勾选复选框时向单元格插入日期戳？

通常，您可以通过使用快捷键在Excel中输入日期戳。那么如何通过在Excel中使用复选框向单元格插入日期戳呢？当勾选复选框时，时间戳会自动插入到指定的单元格中。本文将帮助您解决这个问题。

使用VBA代码在勾选复选框时向单元格插入日期戳

使用VBA代码在勾选复选框时向单元格插入日期戳

本节将介绍一个VBA脚本，帮助您在Excel中勾选复选框时自动向单元格插入日期戳。请按照以下步骤操作。

1. 插入复选框后，同时按 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，点击 插入 > 模块。然后复制并将以下VBA代码粘贴到模块窗口中。

VBA代码：在勾选复选框时向单元格插入日期戳

Sub CheckBox_Date_Stamp()
Dim xChk As CheckBox
Set xChk = ActiveSheet.CheckBoxes(Application.Caller)
With xChk.TopLeftCell.Offset(, 1)
    If xChk.Value = xlOff Then
        .Value = ""
    Else
       .Value = Date
    End If
End With
End Sub

3. 按 Alt + Q 键关闭 Microsoft Visual Basic for Applications 窗口。

4. 右键单击复选框，并从右键菜单中选择 分配宏。参见截图：

5. 在分配宏对话框中，在宏名称框中选择 CheckBox_Date_Stamp，然后点击 确定 按钮。参见截图：

当勾选复选框时，日期戳将自动插入到相邻的单元格中。

相关文章：

• 如何在Excel中勾选复选框时更改指定单元格的值或颜色？
• 如何在Excel中使用复选框高亮显示单元格或行？
• 如何根据Excel中的单元格值使复选框被选中？
• 如何基于Excel中的复选框筛选数据？
• 如何在Excel中隐藏行时隐藏复选框？
• 如何在Excel中创建带多个复选框的下拉列表？