关于显示当前用户名的问题！

wby504

各位：
请问如何在A1单元格里显示当前正在使用该表的用户名。

例如：我登陆电脑的用户名是wangbingy，那么我想在A1单元格显示wangbingy。

谢谢！

吾股丰登

VBA是可以  不过函数好像实现不了

hilarypaul

我也想知道的...期待高手出现...

wby504

VBA怎么做？用宏可以吗？谢谢！

吾股丰登

原帖由 wby504 于 2010-6-9 18:59 发表
VBA怎么做？用宏可以吗？谢谢！

工作表事件代码：
Selection = Environ("Username")

fieldsun

记不得什么时候收集的几个自定义函数
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
                                                        (ByVal lpBuffer As String, _
                                                        nSize As Long) As Long
Declare Function GetComputerName Lib "kernel32.dll" Alias "GetComputerNameA" (ByVal lpBuffer As String, _
                                                nSize As Long) As Long
'获得登录用户名
Function RegUser_Name() As String
  Dim lpBuff As String * 25
  Dim ret As Long
  ret = GetUserName(lpBuff, 25)
  RegUser_Name = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
End Function
'返回计算机名称
Function Computer_Name() As String
  Dim Comp_Name_B As String * 255
  GetComputerName Comp_Name_B, Len(Comp_Name_B)
  Computer_Name = Left(Comp_Name_B, InStr(Comp_Name_B, Chr(0)))
End Function
'Office用户名
Function User_name() As String
  User_name = Application.UserName
End Function