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

在我所能find的大多数在线资源中，通常会告诉我如何在VBA中检索这些信息。有没有直接的方式来获得这个信息在一个单元格？

例如像=ENVIRON('User')那样简单（没有工作）

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

在VBA中插入一个新模块并粘贴到这个代码中：

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

使用公式调用函数：

 =Username()

根据以下指示：

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

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

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

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

然后从单元中调用它：

 =UserNameWindows()

有关更多详细信息和其他方法，请参阅此文章。

如果你不想在VBA中创build一个UDF ，或者你不能这样做，这可能是一个select。

=Cell("Filename",A1)这将给你完整的文件名，从这里你可以得到这样的用户名：

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

此公式只能从先前保存的工作簿中运行。

由于驱动器的第一个斜线，您必须从第四个位置开始。

这显示当前用户的名称：

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

Application.Username属性保存在安装MS Office时input的名称。

在单元格中input此公式：

 =Username()