excel - ultimo - ¿Cómo mostrar el nombre de usuario actual en una celda?
ultimo usuario excel (6)
De acuerdo con las instrucciones en el enlace de abajo, haga lo siguiente.
En VBA inserte un nuevo módulo y pegue en este código:
Public Function UserName()
UserName = Environ$("UserName")
End Function
Llame a la función usando la fórmula:
=Username()
Basado en las instrucciones en:
En la mayoría de los recursos en línea que puedo encontrar, generalmente, me muestran cómo recuperar esta información en VBA. ¿Hay alguna forma directa de obtener esta información en una celda?
Por ejemplo, tan simple como =ENVIRON(''User'') (que no funcionó)
Ejemplo: para ver el nombre de usuario de Windows en la celda C5, puede usar este script:
Range("C5").Value = ": " & Environ("USERNAME").
Esto muestra el nombre del usuario actual:
Function Username() As String
Username = Application.Username
End Function
La propiedad Application.Username contiene el nombre ingresado con la instalación de MS Office.
Ingrese esta fórmula en una celda:
=Username()
La forma más sencilla es crear una macro VBA que envuelva esa función, así:
Function UserNameWindows() As String
UserName = Environ("USERNAME")
End Function
Entonces llámalo desde la celda:
=UserNameWindows()
Vea este artículo para más detalles y otras formas.
Si no desea crear un UDF en VBA o no puede, esta podría ser una alternativa.
=Cell("Filename",A1) esto le dará el nombre completo del archivo, y de aquí podría obtener el nombre de usuario con algo como esto:
=Mid(A1,Find("/",A1,4)+1;Find("/";A1;Find("/";A1;4))-2)
Esta fórmula se ejecuta solo desde un libro de trabajo guardado anteriormente.
Debe comenzar desde la 4ª posición debido a la primera barra diagonal desde la unidad.
Sin la macro VBA, puede utilizar estos consejos para obtener el nombre de usuario de la ruta:
=MID(INFO("DIRECTORY"),10,LEN(INFO("DIRECTORY"))-LEN(MID(INFO("DIRECTORY"),FIND("/",INFO("DIRECTORY"),10),1000))-LEN("C:/Users/"))