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

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

如果您不想在 VBA 中创建 UDF 或者您不能，这可能是一个替代方案。

=Cell("Filename",A1)

这会给你完整的文件名，从这里你可以得到像这样的用户名：

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

此公式仅从先前保存的工作簿运行。

你必须从第 4 个位置开始，因为驱动器的第一个斜线。

Answer 4

这显示当前用户的名称：

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

属性

Application.Username

包含在安装 MS Office 时输入的名称。

在单元格中输入此公式：

=Username()

Answer 5

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

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

Answer 6

最简单的方法是创建一个包装该函数的 VBA 宏，如下所示：

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

然后从单元格中调用它：

=UserNameWindows()

有关详细信息和其他方式，请参阅本文。