excel - Application.UserName修改数字格式

我在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

最佳答案

只有单元格具有有效的日期/时间，日期/时间NumberFormat才有效。因此，诀窍是先更改格式，然后添加用户名。

这是您要尝试的吗？

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

关于excel - Application.UserName修改数字格式，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/21016489/