En este artículo, crearemos una macro que devolverá la computadora y el nombre de usuario del usuario que inició sesión.

En este ejemplo, queremos extraer el nombre de la computadora en la celda C10 y el nombre de usuario en la celda C11.

ArrowMain

Hemos creado la macro «GetComputerUserName» para encontrar la computadora y el nombre de usuario. Podemos ejecutar la macro haciendo clic en el botón «Enviar».

ArrowOutput

Macro extraerá el nombre de la computadora en la celda C10 y el nombre de usuario en la celda C11.

Explicación del código

Función de entorno

La función Environ devuelve el valor de cadena asociado con la variable de entorno del sistema operativo.

Sintaxis de la función Environ

Environ (\ {Nombre de la variable de entorno | número})

Siga el código a continuación

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

Si te gustó este blog, compártelo con tus amigos en Facebook y Facebook.

Nos encantaría saber de usted, háganos saber cómo podemos mejorar nuestro trabajo y hacerlo mejor para usted. Escríbanos a [email protected]