Application.UserName修改数字格式
我有一个Excel文件中的单元格,我想填充当前的date和时间和用户名。 单元格通过单击button来填充。
直到现在我没有使用函数Application.UserName
,date和时间输出格式正确(例如: 07.01.2014 16:57
)
在我添加了& Space(1) & Application.UserName
这段代码后,date和时间的格式化没有按照我想要的方式格式化(取决于填充单元格的用户,我得到的结果如下: 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 / Time NumberFormat只有在单元格有一个有效的date/时间时才有效。 所以诀窍是先改变格式,然后添加用户名。
这是你正在尝试?
With ActiveCell .Value = Now() .NumberFormat = "dd.mm.yyyy hh:mm" .Value = .Text & Space(1) & Application.UserName End With