Application.UserName修改數字格式

Question

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

Answer 1

爲止。如果電池有一個有效的日期/時間/時的NumberFormat纔會工作。所以訣竅是先改變格式，然後添加用戶名。

這是你正在嘗試？

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