在我能找到的大多数在线资源中,通常都会向我展示如何在VBA中检索这些信息。有没有直接的方法可以在单元格中获取这些信息?例如,简单到=ENVIRON('User')(不起作用)
=ENVIRON('User')
luaexgnf1#
根据下面链接中的说明,执行以下操作。在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
irtuqstp2#
如果没有VBA宏,您可以使用以下提示从路径获取用户名:
=MID(INFO("DIRECTORY"),10,LEN(INFO("DIRECTORY"))-LEN(MID(INFO("DIRECTORY"),FIND("\",INFO("DIRECTORY"),10),1000))-LEN("C:\Users\"))
ttcibm8c3#
如果您不想或不能在 VBA 中创建 UDF,这可能是一种替代方法。=Cell("Filename",A1)这将为您提供完整的文件名,并且您可以通过以下方式获得用户名:=Mid(A1,Find("\",A1,4)+1;Find("\";A1;Find("\";A1;4))-2)
=Cell("Filename",A1)
=Mid(A1,Find("\",A1,4)+1;Find("\";A1;Find("\";A1;4))-2)
uajslkp64#
这将显示当前用户的名称:
Function Username() As String Username = Application.Username End Function
属性Application.Username保存安装MS Office时输入的名称。在单元格中输入此公式:
Application.Username
atmip9wb5#
示例:要查看单元格C5上的Windows用户名,可以使用以下脚本:
Range("C5").Value = ": " & Environ("USERNAME").
f87krz0w6#
最简单的方法是创建一个 Package 该函数的VBA宏,如下所示:
Function UserNameWindows() As String UserName = Environ("USERNAME") End Function
那就从手机里打给它:
=UserNameWindows()
更多细节和其他方法请参见this article。
6条答案
按热度按时间luaexgnf1#
根据下面链接中的说明,执行以下操作。
在VBA中插入新模块并粘贴以下代码:
使用以下公式调用函数:
根据以下说明:
https://support.office.com/en-us/article/Create-Custom-Functions-in-Excel-2007-2f06c10b-3622-40d6-a1b2-b6748ae8231f
irtuqstp2#
如果没有VBA宏,您可以使用以下提示从路径获取用户名:
ttcibm8c3#
如果您不想或不能在 VBA 中创建 UDF,这可能是一种替代方法。
=Cell("Filename",A1)
这将为您提供完整的文件名,并且您可以通过以下方式获得用户名:=Mid(A1,Find("\",A1,4)+1;Find("\";A1;Find("\";A1;4))-2)
uajslkp64#
这将显示当前用户的名称:
属性
Application.Username
保存安装MS Office时输入的名称。在单元格中输入此公式:
atmip9wb5#
示例:要查看单元格C5上的Windows用户名,可以使用以下脚本:
f87krz0w6#
最简单的方法是创建一个 Package 该函数的VBA宏,如下所示:
那就从手机里打给它:
更多细节和其他方法请参见this article。