Date Application.UserName修改数字格式

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

直到现在，我还没有使用功能

应用程序。用户名

，日期和时间输出格式正确（例如：

07.01.2014 16:57

）

在我添加了

&Space（1）&Application.UserName

编码后，日期和时间的格式没有按照我想要的方式进行格式化（根据填充单元格的用户，我会得到如下结果：

09-Jan-14 11:30:13+UserName

或

1/7/2014 5:59:43 PM+UserName

）

我猜它从用户的区域设置中获取格式，对吗

我的问题是，我如何覆盖这些设置，因为这段代码看起来不再正常工作

下面是我的代码：

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

---

只有当单元格具有有效的日期/时间时，日期/时间编号格式才有效。所以诀窍是先更改格式，然后添加用户名

这就是你想要的吗

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

---

谢谢，这解决了我的问题。我是一个VBA编码的新手，但我试着一步一步地学习。再次感谢。@user3013587:很高兴我能帮上忙：）@SiddharthRout:哇，恭喜你拿到了5万美元！：）@BK201:Thanky Thanky:）