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

Question

在我发现的大多数在线资源中,通常会告诉我如何在VBA中检索此信息.有没有直接的方法在单元格中获取此信息？

例如,简单=ENVIRON('User')(不起作用)

Answer 1

根据以下链接中的说明,执行以下操作.

在VBA中插入一个新模块并粘贴在此代码中:

Public Function UserName()
    UserName = Environ$("UserName")
End Function

使用以下公式调用函数:

=Username()

根据以下说明:

Answer 2

如果没有 VBA 宏，您可以使用此提示从路径中获取用户名：

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

Answer 3

示例：要查看单元 C5 上的 Windows 用户名，您可以使用以下脚本：

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

Answer 4

如果你不想在VBA中创建UDF,或者你不能,那么这可能是另一种选择.

=Cell("Filename",A1) 这将为您提供完整的文件名,从中您可以得到如下所示的用户名:

=Mid(A1,Find("\",A1,4)+1;Find("\";A1;Find("\";A1;4))-2)

此公式仅从之前保存的工作簿运行.

由于驱动器的第一个斜线,您必须从第4个位置开始.

Answer 5

这显示当前用户的名称：

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

该属性Application.Username保存安装 MS Office 时输入的名称。

在单元格中输入此公式：

=Username()