Application.UserName 修改数字格式答案

【问题标题】：Application.UserName modifies the number formatApplication.UserName 修改数字格式
【发布时间】：2014-01-27 18:48:22
【问题描述】：

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

【问题讨论】：

标签： date excel vba

【解决方案1】：

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

这是你正在尝试的吗？

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

【讨论】：

谢谢，这解决了我的问题。我是 VBA 编码的新手，但正在尝试逐步学习。再次感谢。
@user3013587：很高兴我能帮上忙 :)
@SiddharthRout：哇，恭喜获得 50k！ :)
@BK201：谢谢谢谢:)