date - Application.UserName修改数字格式

Question

我在 Excel 文件中有一个单元格，我想用当前日期和时间以及用户名填充该单元格。通过单击按钮即可填充单元格。

到目前为止，我还没有使用函数Application.UserName，并且日期和时间输出的格式正确(例如:07.01.2014 16:57)

在我添加 & Space(1) & Application.UserName 代码段后，日期和时间的格式未按照我想要的方式设置(取决于填充单元格的用户)获取如下结果:09-Jan-14 11:30:13 + USERNAME 或 1/7/2014 5:59:43 PM + USERNAME)

我猜它采用了用户区域设置的格式，对吗？

我的问题是如何覆盖这些设置，因为看起来 ActiveCell.NumberFormat = "dd.mm.yyyy hh:mm" 代码不再正常工作。

下面是我的代码:

Private Sub CommandButton1_Click()
    ActiveCell = Now() & Space(1) & Application.UserName
    ActiveCell.NumberFormat = "dd.mm.yyyy hh:mm"
End Sub

Answer 1

日期/时间数字格式仅在单元格具有有效的日期/时间时才起作用。所以诀窍是先更改格式，然后添加用户名。

这就是你正在尝试的吗？

With ActiveCell
    .Value = Now()
    .NumberFormat = "dd.mm.yyyy hh:mm"
    .Value = .Text & Space(1) & Application.UserName
End With