Saltar al contenido principal

Excel: cómo expandir la celda para mostrar todo el contenido al hacer clic

En algunos casos, si el contenido de la celda es más largo que el ancho de la celda y hay valores en las siguientes celdas de la columna, solo se muestran partes del contenido como se muestra en la siguiente captura de pantalla. Para evitar cambiar el ancho y el alto de las celdas, puede hacer clic en la celda y ver todo el contenido en la barra de fórmulas. Pero si la barra de fórmulas está oculta o es más corta que el contenido, ¿cómo hacerlo? Aquí se presentan dos métodos que pueden mostrar el contenido de la celda en un cuadro de texto al hacer clic en él.
autocompletar desde otra lista

Expanda la celda para mostrar todo el contenido insertando un cuadro de texto Active X Controls

Expanda la celda para mostrar todos los contenidos usando la barra de fórmulas más grande de Kutools para Excel

Nota: los métodos proporcionados en este tutorial se prueban en Excel 2021, puede haber algunos diferentes en diferentes versiones de Excel.


Expanda la celda para mostrar todo el contenido insertando un cuadro de texto Active X Controls

1. Active la hoja de trabajo en la que desea expandir la celda, haga clic en Developer > recuadro > Cuadro de texto (controles ActiveX).
autocompletar desde otra lista

Si no hay Developer pestaña en la cinta, muéstrela al principio, vea este tutorial Cómo mostrar/mostrar la pestaña Desarrollador en la cinta de Excel

2. Luego arrastre el cursor para dibujar un cuadro de texto con un ancho y alto que pueda mostrar el contenido más largo de las celdas. Recuerde el nombre de este cuadro de texto, aquí está TextBox1.
autocompletar desde otra lista

3. Haga clic derecho en el cuadro de texto y haga clic en Propiedades del menú contextual. luego en Propiedades panel, elija ¿Editas con tu equipo de forma remota? de las listas desplegables en el MultiLine y Ajuste de línea secciones. Luego cierra el Propiedades cristal.
autocompletar desde otra lista  autocompletar desde otra lista

O puede seleccionar Verdadero de la lista desplegable en Tamaño automático en la sección Propiedades, el cuadro de texto cambiará de tamaño automáticamente en función de la longitud del contenido de la celda en la que haga clic.

4. Haga clic derecho en la pestaña del nombre de la hoja en la barra de estado y haga clic en Ver código desde el menú contextual.

5. En el Microsoft Visual Basic para aplicaciones ventana, copie y pegue el código siguiente en el script en blanco.

VBA: expandir la celda para mostrar el contenido

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice
Dim xRgAddress As String
xRgAddress = "A1:B4" 'the range this VBA work, if you leave it is blank, it work for whole sheet
If xRgAddress = "" Then
  With TextBox1
        .Top = Target.Top
        .Left = Target.Offset(, 1).Left
        .Text = Target.Text
        .Visible = True
    End With
Else
    If Intersect(Target, Range(xRgAddress)) Is Nothing Then
        TextBox1.Visible = False
    Else
        With TextBox1
            .Top = Target.Top
           .Left = Target.Offset(, 1).Left
            .Text = Target.Text
            .Visible = True
        End With
    End If
End If
End Sub

autocompletar desde otra lista

Tenga en cuenta que TextBox1 es el nombre del cuadro de texto que dibujó, y A1: B4 es el rango de trabajo de este código, cámbielos según lo necesite.

6. Regrese a la hoja, haga clic en Developer > Modo de diseño para existir el modo de diseño.
autocompletar desde otra lista

Ahora, cuando haga clic en la celda, el cuadro de texto aparecerá junto a ella y mostrará todo el contenido de la celda.
autocompletar desde otra lista


Expanda la celda para mostrar todos los contenidos usando la barra de fórmulas más grande de Kutools para Excel

Si ha instalado Kutools for Excel, la Barra de fórmulas más grande que proporcionó mostrará todo el contenido de la celda en un cuadro emergente cuando haga clic siempre que lo active haciendo clic Kutools > Barra de fórmulas más grande.
autocompletar desde otra lista

Consejos:

1. Con la Barra de fórmulas más grande, excepto para ver el contenido de la celda activa, también puede editar el contenido de la celda en la Barra de fórmulas más grande.

2. Puede cambiar el tamaño de la barra de fórmulas más grande arrastrando la esquina inferior derecha de la barra.

3. Si selecciona más de una celda, solo se muestra el contenido de la primera celda de la selección en la Barra de fórmulas más grande.

Más detalles sobre Bigger Formula Bar, por favor visite su tutoriales.


Otras operaciones (artículos)

Cómo desactivar Autocompletar
Aquí hay una opción en Excel que puede detener el autocompletado.

¿Cómo reducir el tamaño del archivo de Excel?
A veces, tardará unos minutos en abrirse o guardarse si el archivo de Excel es demasiado grande. Para resolver este problema, aquí en este tutorial, le indica cómo reducir el tamaño del archivo de Excel eliminando los contenidos o formatos que son innecesarios o que nunca se usan.

Cómo autocompletar celdas de otra tabla
En este tutorial, se trata de cómo completar automáticamente otras celdas de columna de una tabla en otra hoja después de ingresar un valor de columna.

¿Cómo aplicar sombreado a filas / columnas impares o pares (alternativas) en Excel?
Al diseñar una hoja de trabajo, muchas personas tienden a aplicar sombreado a filas o columnas pares o impares (alternativas) para que la hoja de trabajo sea más visual. Este artículo le mostrará dos métodos para aplicar sombreado a filas / columnas pares o impares en Excel.


  • 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 y conservación de datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... 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 ...
  • Fórmulas favoritas e insertar rápidamente, Rangos, gráficos e imágenes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • 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...
  • Agrupación de tablas dinámicas por número de semana, día de la semana y más ... Mostrar celdas bloqueadas y desbloqueadas por diferentes colores; Resalte las celdas que tienen fórmula / nombre...
pestaña kte 201905
  • 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
Comments (5)
Rated 4.5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
I am having the same issue as Neil. Code works fine, except when selecting any full row or column that include the cell range in the code, i am getting the Run-time error '94'. Invalid use of Null, highlighting to .Text = Target.Text. This code was very helpful except for the debug popping up every time. Please provide a solution
This comment was minimized by the moderator on the site
Hi, I have modified the code, it will not pop up a bug dialog when you select a column of cells or multiple cells, and the textbox will be hidden as well. Please try:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice
Dim xRgAddress As String
If Target.CountLarge > 1 Then
    TextBox1.Visible = False
    Exit Sub
End If
xRgAddress = "A1:A20" 'the range this VBA work, if you leave it is blank, it work for whole sheet
If xRgAddress = "" Then
  With TextBox1
        .Top = Target.Top
        .Left = Target.Offset(, 1).Left
        .Text = Target.Text
        .Visible = True
    End With
Else
    If Intersect(Target, Range(xRgAddress)) Is Nothing Then
        TextBox1.Visible = False
    Else
        With TextBox1
            .Top = Target.Top
           .Left = Target.Offset(, 1).Left
            .Text = Target.Text
            .Visible = True
        End With
    End If
End If
End Sub
This comment was minimized by the moderator on the site
Sunny, this is absolutely perfect - thank you so much for your time and expertise.
This comment was minimized by the moderator on the site
Good day, this code is great - I have two columns included in my code and the expanding text box pops up no issues when a cell is clicked - however, if I highlight multiple cells including one of the cells I wish to have the text box pop up - I get run-time error '94' - Invalid use of Null. Debugging highlights the 2nd 'Text = Target.Text' line.

Appreciate any feedback.
Rated 4.5 out of 5
This comment was minimized by the moderator on the site
Hi, do you want to show all contents of the selected cells to the textbox? Or just supports to select cells but show contents of the first one cell of the selection?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations