Question

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

到目前为止，我还没有使用Application.UserName函数和日期＆amp;时间输出格式正确（例如：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

Answer 1

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

这是你在尝试的吗？

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

Application.UserName修改数字格式

1 个答案: