excel 如何在单元格中显示当前用户名?

a2mppw5e  于 2023-02-10  发布在  其他
关注(0)|答案(6)|浏览(698)

在我能找到的大多数在线资源中,通常都会向我展示如何在VBA中检索这些信息。有没有直接的方法可以在单元格中获取这些信息?
例如,简单到=ENVIRON('User')(不起作用)

luaexgnf

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

irtuqstp

irtuqstp2#

如果没有VBA宏,您可以使用以下提示从路径获取用户名:

=MID(INFO("DIRECTORY"),10,LEN(INFO("DIRECTORY"))-LEN(MID(INFO("DIRECTORY"),FIND("\",INFO("DIRECTORY"),10),1000))-LEN("C:\Users\"))
ttcibm8c

ttcibm8c3#

如果您不想或不能在 VBA 中创建 UDF,这可能是一种替代方法。
=Cell("Filename",A1)这将为您提供完整的文件名,并且您可以通过以下方式获得用户名:
=Mid(A1,Find("\",A1,4)+1;Find("\";A1;Find("\";A1;4))-2)

  • 此公式仅从以前保存的工作簿运行。*
  • 必须从第4个位置开始,因为第一个斜杠来自驱动器。*
uajslkp6

uajslkp64#

这将显示当前用户的名称:

Function Username() As String
    Username = Application.Username
End Function

属性Application.Username保存安装MS Office时输入的名称。
在单元格中输入此公式:

=Username()
atmip9wb

atmip9wb5#

示例:要查看单元格C5上的Windows用户名,可以使用以下脚本:

Range("C5").Value = ": " & Environ("USERNAME").
f87krz0w

f87krz0w6#

最简单的方法是创建一个 Package 该函数的VBA宏,如下所示:

Function UserNameWindows() As String
    UserName = Environ("USERNAME")
End Function

那就从手机里打给它:

=UserNameWindows()

更多细节和其他方法请参见this article

相关问题