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

Question

在我能找到的大多数在线资源中，通常会告诉我如何在 VBA 中检索此信息。有没有直接的方法可以在单元格中获取这些信息？

例如，像 =ENVIRON('User') 一样简单（这不起作用）

Answer 1

根据下面链接中的说明，执行以下操作。

在 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

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)

---

此公式仅从之前保存的工作簿运行。< /em>

你必须开始由于来自驱动器的第一个斜杠，从第四个位置开始。

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()

请参阅 这篇文章了解更多详细信息，以及其他方式。

Answer 7

改进了 sangorys 的答案，可以在 Windows 和 Mac OS 上使用：

=MID(INFO("DIRECTORY"),IF(INFO("SYSTEM")="MAC",8,10),LEN(INFO("DIRECTORY"))-LEN(MID(INFO("DIRECTORY"),FIND(IF(INFO("SYSTEM")="MAC","/","\"),INFO("DIRECTORY"),IF(INFO("SYSTEM")="MAC",8,10)),1000))-IF(INFO("SYSTEM")="MAC",7,9))