En este artículo, crearemos una macro que devolverá la computadora y el nombre de usuario para el 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.
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".
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 Environ
La función de entorno devuelve el valor de cadena asociado con la variable de entorno del sistema operativo.
Sintaxis de la función Environ
Environment ({nombre de variable de entorno | número})
Siga a continuación para obtener el código
Sub GetComputerUserName () Dim ComputerName, UserName As String 'Obteniendo el nombre de la computadora ComputerName = Environ ("computername")' Obteniendo el nombre de usuario UserName = Environ ("username") 'Asignando valor a la celda C10 y Rango C11 ("C10"). Valor = Rango de nombre de equipo ("C11"). Valor = Nombre de usuario End Sub
Si te gustó este blog, compártelo con tus amigos en Facebook. Además, puede seguirnos en Twitter y Facebook.
Nos encantaría saber de usted, háganos saber cómo podemos mejorar nuestro trabajo y hacerlo mejor para usted. Escríbanos al sitio de correo electrónico