Re: [算表] 請問EXCEL的函數 --使用者名稱

看板Office作者JieJuen (David)時間17年前 (2008/12/01 12:41)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串2/2 (看更多)

google到的試試能不能用囉 (excel "使用者名稱") http://chijanzen.net/wp/?p=150 取得本機使用者名稱 Function 聲明 Function LogInUser_Environ() As String 說明使用Excel內建的 Environ 函數來取得作業系統環境變數("UserName")來取得使用者名稱，本方法與使用Application.UserName 所取得的使用者名稱是不相同的 Environ("UserName"):是指Windows的使用者名稱(登入本機) Application.UserName:是指Excel中登記的使用者名稱返回值 String 參數表參數類型及說明無無程式碼 Function LogInUser_Environ() As String LogInUser_Environ = Environ("UserName") End Function 　範例:取得登錄本機的使用者名稱　 Sub test() MsgBox "使用者名稱:" & ReturnComputerName_Environ End Sub 　 chijanzen 2005/02/15 Top 取得本機使用者名稱 - 第二種方法 Function 聲明 Function LogInUser_Network() As String 說明使用WshNetwork 物件中的 UserName 屬性來取得使用者名稱返回值 String 參數表參數類型及說明無無程式碼 Function LogInUser_Network() As String Set wshNetwork = CreateObject("WScript.Network") LogInUser_Network = wshNetwork.UserName End Function 　範例:取得登錄本機的使用者名稱　 Sub test() MsgBox "使用者名稱:" & LogInUser_Network End Sub 　　 chijanzen 2005/02/15 Top 取得本機使用者名稱 - 第三種方法 Function 聲明 Function LogInUser_Api() As String 說明使用 GetUserName API函數來取得使用者名稱返回值 String 參數表參數類型及說明無無程式碼 Private Declare Function GetUserName Lib "advapi32.dll" _ Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) _ As Long Function LogInUser_Api() As String Dim Buffer As String * 100 Dim BuffLen As Long BuffLen = 100 GetUserName Buffer, BuffLen LogInUser_Api = Left(Buffer, BuffLen - 1) End Function 　範例:取得登錄本機的使用者名稱　 Sub test() MsgBox "電腦名稱:" & LogInUser_Api End Sub 　 ※ 引述《mephone (秋末)》之銘言： : 軟體: OFFICE EXCEL : 版本: 2007 : 請問： : EXCEL的函數「NOW()」是可以在儲存格顯示系統現在時間的函數吧?! : 不知道excel有無可以把系統當前使用者的名稱，傳回儲存格顯示的函數呢?>< : 小弟找破頭還是找沒有ˊˋ : 只好來OFFICE版求救，還煩請各位大大幫忙解答 <(_ _)> 謝謝！ -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 218.164.48.238 ※ 編輯: JieJuen 來自: 218.164.48.238 (12/01 12:41)