使用vba excel创build新的公式

嗨即时通讯寻找一个formulla显示用户的全名是谁打开excel file.it应该显示login的用户名。 我尝试了一些VBA脚本，并成功succesfull，但有一个问题，当我运行脚本，只有它生成popup窗口说你的用户名。 它应该显示单元格中的用户名称作为dateformulla a“= TODAY（）”。 我有这个脚本请任何人帮我在单元格中显示完整的用户名。

Sub GetUserFullName() Dim MyOBJ As Object On Error Resume Next Set MyOBJ = GetObject("WinMgmts:").instancesOf("Win32_NetworkLoginProfile") If Err.Number <> 0 Then MsgBox "WMI has not been installed, code will be terminated...", vbExclamation, "Windows Management Instrumentation" Exit Sub End If For Each objItem In MyOBJ MyMsg = MyMsg & "Welcome To IT Dept : " & vbCrLf & vbCrLf & objItem.FullName Next MsgBox MyMsg, vbInformation, "Swapnil (System Admin)" End Sub 

Answer 1

---

UPD：

 Function GetUserFullName() As String Dim MyOBJ As Object Dim res As String On Error Resume Next Set MyOBJ = GetObject("WinMgmts:").instancesOf("Win32_NetworkLoginProfile") If Err.Number <> 0 Then GetUserFullName = "error" Exit Function End If For Each objItem In MyOBJ res = res & objItem.FullName Next GetUserFullName = res End Function 

你可以在任何像公式一样使用它： =GetUserFullName()