В этой статье мы создадим макрос, который будет возвращать компьютер и имя пользователя для вошедшего в систему пользователя.

В этом примере мы хотим извлечь имя компьютера в ячейку C10 и имя пользователя в ячейку C11.

ArrowMain

Мы создали макрос «GetComputerUserName», чтобы найти компьютер и имя пользователя. Мы можем запустить макрос, нажав кнопку «Отправить».

ArrowOutput

Макрос извлечет имя компьютера в ячейку C10 и имя пользователя в ячейку C11.

Объяснение кода

Функция среды

Функция Environ возвращает строковое значение, связанное с переменной среды операционной системы.

Синтаксис функции 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]