如何使用 vba 插入时间戳（带有示例）

您可以在 VBA 中使用以下基本语法将时间戳插入 Excel 中的特定单元格：

 SubInsertTimestamp ()

Range("A1").Value = Format(Now, "mm/dd/yyyy hh:mm:ss")
    
End Sub

此特定宏将以mm/dd/yyyy hh:mm:ss格式将当前时间插入单元格A1中。

注意：VBA 的Now函数根据计算机的系统日期和时间返回当前日期和时间。

以下示例展示了如何在实践中使用此语法。

示例：如何使用 VBA 插入时间戳

假设我们创建以下宏，将当前日期和时间作为时间戳插入到 Excel 中当前工作表的单元格A1中：

 SubInsertTimestamp ()

Range("A1").Value = Format(Now, "mm/dd/yyyy hh:mm:ss")
    
End Sub

当我们运行这个宏时，我们会收到以下输出：

单元格A1现在显示该宏运行的当前日期和时间。

对于此特定示例，日期时间的格式为mm/dd/yyyy hh:mm:ss 。

请注意，我们还可以指定要使用的不同格式。

例如，我们可以创建以下宏以在单元格B1中以dd-mm-yyyy hh:mm:ss 格式显示当前时间：

 SubInsertTimestamp ()

Range("A1").Value = Format(Now, "mm/dd/yyyy hh:mm:ss")
Range("B1").Value = Format(Now, "dd-mm-yyyy hh:mm:ss")

End Sub

当我们运行这个宏时，我们会收到以下输出：

单元格A1和B1现在都以不同的格式显示当前日期和时间。

注意：您可以在此处找到 VBA 中Format函数的完整文档。

其他资源

以下教程说明如何在 VBA 中执行其他常见任务：

如何在VBA中比较日期
如何在VBA中设置时间格式
如何用VBA计算时间差