Application.UserName修改数字格式

我有一个Excel文件中的单元格,我想填充当前的date和时间和用户名。 单元格通过单击button来填充。

直到现在我没有使用函数Application.UserName ,date和时间输出格式正确(例如: 07.01.2014 16:57

在我添加了& Space(1) & Application.UserName这段代码后,date和时间的格式化没有按照我想要的方式格式化(取决于填充单元格的用户,我得到的结果如下: 09-Jan-14 11:30:13 + USERNAME1/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 / Time NumberFormat只有在单元格有一个有效的date/时间时才有效。 所以诀窍是先改变格式,然后添加用户名。

这是你正在尝试?

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