Note: The other languages of the website are Google-translated. Back to English
Iniciar  \/ 
x
or
x
Registrarse  \/ 
x

or

¿Cómo insertar rápidamente el nombre de usuario de Windows en la celda en Excel?

En el funcionamiento de Excel, a veces es posible que deba insertar el nombre de usuario de Windows en las celdas. Puede insertar el nombre de usuario uno por uno manualmente, pero aquí tengo algunas formas mejores de ahorrar su tiempo.

Inserte el nombre de usuario en la celda con VBA

Inserte el nombre de usuario u otra información del libro de trabajo en la celda con Kutools para Excel buena idea3


Inserte el nombre de usuario en la celda con VBA

Aquí les presento un código VBA para insertar rápidamente el nombre de usuario de Windows en un rango de celdas en Excel.

1. Prensa Alt + F11 claves para habilitar Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo, luego copie y pegue debajo del código VBA en la ventana del Módulo.

VBA: inserte el nombre de usuario.

Sub Usernameincell()
    Range("A1:D5").Value = Application.UserName
End Sub

2. Hacer clic Corral botón o F5 para ejecutar el código, luego se inserta el nombre de usuario en cada celda en el rango A1: D5. Ver captura de pantalla:

doc insertar nombre de usuario 1

Puede cambiar el rango A1: D5 en el código VBA para satisfacer sus necesidades.

Pero si hay algunos contenidos en el rango especificado, este código VBA reemplazará el contenido de la celda solo con el nombre de usuario.

En este caso, puede optar por utilizar Kutools para Excel.


Inserte el nombre de usuario u otra información en la celda con Kutools para Excel

Si desea insertar el nombre de usuario de Windows u otra información de libros de trabajo, como el nombre del libro de trabajo, el nombre de la hoja de trabajo, la ruta del libro de trabajo y el nombre en una celda, pie de página o encabezado, puede usar Kutools for Excel, Insertar información del libro.

Kutools for Excel, con más de 300 funciones prácticas, facilita su trabajo. 

Después instalación gratuita Kutools para Excel, haga lo siguiente:

Hacé click Kutools Plus > Libro de trabajo > Insertar información del libro. Ver captura de pantalla:
doc insertar nombre de usuario 9

doc insertar nombre de usuario 8
A: Seleccione la información que desea insertar.
B: Seleccione una ubicación para poner la información insertada.
C: Para insertar encabezado o pie de página, puede elegir colocar
la información en el certificador del encabezado / pie de página, a la izquierda del encabezado /
pie de página, oa la derecha del encabezado / pie de página.

Insertar la ruta y el nombre del libro de trabajo en una celda

doc insertar información del libro 2

Insertar nombre de usuario en el encabezado central

doc insertar información del libro 3

Insertar fecha y hora actual en el pie de página derecho

doc insertar información del libro 4

Haga clic aquí para conocer más detalles sobre Kutools for Excel, Insertar información del libro de trabajo.


Las mejores herramientas de productividad de oficina

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

  • Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
  • Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
  • Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
  • Más de 300 potentes funciones. Compatible con Office / Excel 2007-2019 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Características completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
pestaña kte 201905

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
officetab parte inferior
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Lisa · 2 years ago
    Thanks for an answer to what seems to be an obscure command! This worked wonderfully, however I'd like to run an IF statement that only adds the username if "Yes" is in another cell. Can you help?
    • To post as a guest, your comment is unpublished.
      namco · 1 years ago
      You don't need all this crap, the formula for the username is
      =MID(INFO("DIRECTORY"),10,LEN(INFO("DIRECTORY"))-LEN(MID(INFO("DIRECTORY"),FIND("\",INFO("DIRECTORY"),10),1000))-LEN("C:\Users\"))

      so =if(CELL="YES",MID(INFO("DIRECTORY"),10,LEN(INFO("DIRECTORY"))-LEN(MID(INFO("DIRECTORY"),FIND("\",INFO("DIRECTORY"),10),1000))-LEN("C:\Users\")),"whatever")