如何在单元格中显示当前的用户名?
在我所能find的大多数在线资源中,通常会告诉我如何在VBA中检索这些信息。 有没有直接的方式来获得这个信息在一个单元格?
例如像=ENVIRON('User')
那样简单(没有工作)
根据以下链接中的说明,执行以下操作。
在VBA中插入一个新模块并粘贴到这个代码中:
Public Function UserName() UserName = Environ$("UserName") End Function
使用公式调用函数:
=Username()
根据以下指示:
示例:要查看单元格C5上的Windows用户名,可以使用以下脚本:
Range("C5").Value = ": " & Environ("USERNAME").
最简单的方法是创build一个包装该函数的VBAmacros,如下所示:
Function UserNameWindows() As String UserName = Environ("USERNAME") End Function
然后从单元中调用它:
=UserNameWindows()
有关更多详细信息和其他方法,请参阅此文章 。
如果你不想在VBA中创build一个UDF ,或者你不能这样做,这可能是一个select。
=Cell("Filename",A1)
这将给你完整的文件名,从这里你可以得到这样的用户名:
=Mid(A1,Find("\",A1,4)+1;Find("\";A1;Find("\";A1;4))-2)
此公式只能从先前保存的工作簿中运行。
由于驱动器的第一个斜线,您必须从第四个位置开始。
这显示当前用户的名称:
Function Username() As String Username = Application.Username End Function
Application.Username
属性保存在安装MS Office时input的名称。
在单元格中input此公式:
=Username()