2011-08-03 39 views

回答

29

根據以下鏈接中的說明,執行以下操作。

在VBA插入一個新的模塊並且在該代碼粘貼:

Public Function UserName() 
    UserName = Environ$("UserName") 
End Function 

呼叫使用式功能:基於指示在

=Username() 

https://support.office.com/en-us/article/Create-Custom-Functions-in-Excel-2007-2f06c10b-3622-40d6-a1b2-b6748ae8231f

+1

謝謝!它之前不適用於我,因爲我沒有創建一個新模塊。現在這一切都很好。 –

+1

對於2016年遇到此問題的任何人,上面的鏈接不起作用 –

+0

通過以下注釋的方式修復了鏈接... – Gallus

2

最簡單的方法是創建一個VBA宏,包裝了功能,像這樣:

Function UserNameWindows() As String 
    UserName = Environ("USERNAME") 
End Function 

然後從細胞叫它:

=UserNameWindows() 

詳情請參閱this article等方式。

3

示例:要查看單元格C5上的Windows用戶名,可以使用th爲腳本:

Range("C5").Value = ": " & Environ("USERNAME"). 
3

,如果你不想在創建UDF VBA或者你不能,這可能是一個選擇。

=Cell("Filename",A1)這會給你完整的文件名,並從這個你可以像這樣的東西拿到用戶名:從先前保存工作簿

=Mid(A1,Find("\",A1,4)+1;Find("\";A1;Find("\";A1;4))-2)


這個公式只運行。

由於驅動器的第一個斜槓,您必須從第4個位置開始。

0

顯示當前用戶的名稱:

Function Username() As String 
    Username = Application.Username 
End Function 

酒店Application.Username保存與安裝的MS Office輸入的名稱。

在單元格中輸入公式:

=Username() 
相關問題