Excel VBA - 将用户名添加到现在（）时间戳会破坏格式？答案

【问题标题】：Excel VBA - Adding username to now() Timestamp ruins formatting?Excel VBA - 将用户名添加到现在（）时间戳会破坏格式？
【发布时间】：2021-01-11 16:17:37
【问题描述】：

我有一个系统，我想在按下生成按钮时生成一个随机 RA 编号。这个 RA 编号是日期倒数，然后是时间。我对这些进行了格式化，去掉了 / 和 :，所以它是一个长数字。

例如现在，它将生成：202009251119

但是，为了使其更加独特，我想将用户名添加到末尾。所以我将代码编辑为：

Range("I12:J12").Value = Now() & Application.UserName

虽然这可行，但它会改变格式，看起来像这样：

2020/09/25 11:19 '用户名'

如何在保留格式的同时添加此用户名，使其仍然是 RA 代码？

【问题讨论】：

你的意思是Range("I12:J12").Value = FORMAT(Now(),"YYYYMMDDHHmmSS") & Application.UserName？

标签： excel vba formatting timestamp spreadsheet

【解决方案1】：

类似：

Sub qwerty()
    Range("I12:J12").Value = Format(Now(), "yyyymmddhhmm") & Application.UserName
End Sub

如果需要，您可以在日期和名称之间插入一个空格。

【讨论】：