学以致用——使用VBA实现创建新记录时自动添加时间戳(Add timestamp when adding new record in Excel)

最新推荐文章于 2024-04-14 13:29:47 发布

预见未来to50

最新推荐文章于 2024-04-14 13:29:47 发布

阅读量2.7k

点赞数 1

分类专栏：学以致用—实用程序（iApps） Excel技巧及VBA编程（Excel_VBA）

本文链接：https://blog.csdn.net/hpdlzu80100/article/details/80508604

版权

Excel技巧及VBA编程（Excel_VBA）同时被 2 个专栏收录

404 篇文章 169 订阅

订阅专栏

学以致用—实用程序（iApps）

94 篇文章 2 订阅

订阅专栏

今天又实现了一个“梦寐以求”的功能：为Excel中创建的新记录自动添加时间戳。

虽然这是个简单需求，但是我却等了很久。

虽然代码不难，但是调试却花了我一个多小时，在此分享给所有有缘之人。

方法：

1. 首先要确保当前Excel文件的保存格式支持VBA（使用.xlsm或.xlsb格式）

2. 在VBE（在Excel中可使用快捷键ALT+F11打开VBE，即Visual Basic Editor）中，选择目标工作表，双击该工作表，将下图中黄色加亮的部分分别修改为“Worksheet”和"Change"。

3. 在代码区添加以下代码，注意，.Offset(0,5)表示要将时间戳添加到第6列，大家可根据实际需要进行修改。

Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .Count = 1 Then
            If .Column = 1 Then
                Application.EnableEvents = False
                .Offset(0, 5).Value = IIf(.Value = "", "", Now)
                UsedRange.Borders.LineStyle = xlContinuous
                Application.EnableEvents = True
            End If
        End If
    End With
End Sub