在本文中,我们将创建一个宏,该宏将返回登录用户的计算机和用户名。

在此示例中,我们要在单元格C10中提取计算机名,并在单元格C11中提取用户名。

ArrowMain

我们创建了“ GetComputerUserName”宏来查找计算机和用户名。我们可以通过单击“提交”按钮来运行宏。

ArrowOutput

宏将在单元格C10中提取计算机名,并在单元格C11中提取用户名。

代码说明

环境功能

Environ函数返回与操作系统的环境变量关联的字符串值。

环境函数的语法

Environ(\ {环境变量名称|数字})

请遵循以下代码

Sub GetComputerUserName()

Dim ComputerName, UserName As String

'Getting computer name

ComputerName = Environ("computername")

'Getting user name

UserName = Environ("username")

'Assigning value to cell C10 and C11

Range("C10").Value = ComputerName

Range("C11").Value = UserName

End Sub

如果您喜欢此博客,请在Facebook和Facebook上与您的朋友分享。

我们很希望收到您的来信,请让我们知道我们如何才能改善我们的工作并使您的工作更好。写信给我们[email protected]