Note: The other languages of the website are Google-translated. Back to English

¿Cómo convertir texto en cuadro de texto a contenido de celda en Excel?

Si hay algunos cuadros de texto en una hoja y desea convertir el contenido de los cuadros de texto en celdas por separado, como se muestra a continuación, ¿hay alguna forma rápida de resolver este trabajo, excepto ingresar uno por uno en Excel? En este artículo, presento una macro para hacerle un favor sobre este problema.
doc convertir cuadro de texto a celda 1

Convierta el contenido del cuadro de texto en celda con VBA


flecha azul burbuja derecha Convierta el contenido del cuadro de texto en celda con VBA

Excepto el código de macro, no hay ningún truco que pueda convertir rápidamente cuadros de texto en contenido de celda.

1. Prensa Alt + F11 claves para habilitar Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic en recuadro > Móduloy luego pegue el código siguiente en el Módulo guión.

VBA: convierte cuadros de texto en celda

Sub TextboxesToCell()
'UpdatebyExtendoffice20160918
    Dim xRg As Range
    Dim xRow As Long
    Dim xCol As Long
    Dim xTxtBox As TextBox
    
    Set xRg = Application.InputBox("Select a cell):", "Kutools for Excel", _
                                    ActiveWindow.RangeSelection.AddressLocal, , , , , 8)
    xRow = xRg.Row
    xCol = xRg.Column
    
    For Each xTxtBox In ActiveSheet.TextBoxes
        Cells(xRow, xCol).Value = xTxtBox.Text
        xTxtBox.Delete
        xRow = xRow + 1
    Next
    
End Sub

doc convertir cuadro de texto a celda 2

3. Prensa F5 para ejecutar el código, aparece un cuadro de diálogo para recordarle que seleccione una celda para exportar el contenido del cuadro de texto. Ver captura de pantalla:
doc convertir cuadro de texto a celda 3

4. Hacer clic en OK. Ahora todos los cuadros de texto se han convertido en contenido de celda.
doc convertir cuadro de texto a celda 4

Sugerencia: encima de VBA eliminará los cuadros de texto después de la ejecución, si desea conservar los cuadros de texto, cambie el código xTxtBox.Eliminar a 'xTxtBox.Eliminar.

Extensión:Si desea convertir rápidamente entre números y texto, intente usar Kutools para Excel Convertir entre texto y número como se muestra en la siguiente captura de pantalla. Es función completa sin limitación en

Kutools for Excel, con más de 300 funciones prácticas, facilita su trabajo. 
dias, descargue y obtenga una prueba gratuita ahora.
doc convertir cuadro de texto a celda 5


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-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones 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

 

Comentarios (13)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
¿VBA no funciona?
Este comentario fue minimizado por el moderador en el sitio
Funciona perfectamente aquí. ¿Qué sucede mientras ejecutas el código? ¿No cambia nada? Si pudiera, describa más sobre sus datos y su problema. Gracias.
Este comentario fue minimizado por el moderador en el sitio
Aquí tampoco trabajo. Seleccione la celda de destino, haga clic en Aceptar y no sucede nada.
Este comentario fue minimizado por el moderador en el sitio
Lo probé en Win10 Excel2016 y Win8 Excel2010, funciona en ambos. ¿Qué entorno de trabajo utiliza?
Este comentario fue minimizado por el moderador en el sitio
Tengo muchos cuadros en diferentes hojas, hay 4 hojas que tienen eventos particulares en un día en particular y me gustaría llevar esos cuadros de texto de un día en particular a una nueva hoja combinada para ese día, cómo funciona, no tengo idea de cómo obtener esos datos de 4 hojas diferentes a una hoja.
Este comentario fue minimizado por el moderador en el sitio
Bien, tengo Textbox dentro de Textbox que necesita ser extraído.
Este comentario fue minimizado por el moderador en el sitio
¡Muchas gracias! Buen aporte. Me ayudo mucho.
Este comentario fue minimizado por el moderador en el sitio
No me basta. Hago todo lo señalado y no pasa nada después de apretar enter. Intenté tampoco algunos cambios en la programación y
Este comentario fue minimizado por el moderador en el sitio
Hola, Juan, no se menciona la tecla Intro en el método anterior, copie y pegue el vba, luego presione la tecla F5 o haga clic en el botón Ejecutar para habilitar el código.
Este comentario fue minimizado por el moderador en el sitio
hola, probé en excel365 y no funciona, me sale el popup y luego lo lleno pero luego no pasa nada, gracias por la ayuda, michel
Este comentario fue minimizado por el moderador en el sitio
Hola Michel, he probado el código en Excel 365, funciona correctamente. ¿Podría darme una imagen de su versión de Excel como esta (Archivo> Cuenta)https://www.extendoffice.com/images/stories/comments/sun-comment/Excel_version.png, y la imagen sobre el contenido de sus cuadros de texto?
Este comentario fue minimizado por el moderador en el sitio
Hola, soleado. Quiero una solución en excel. He copiado y pegado una página web que contiene datos. en eso, cada cuadro de texto contiene algunos números. No puedo convertirlo como un número regular en una celda de Excel que contiene una columna en particular. Estoy usando excel 2007.
Este comentario fue minimizado por el moderador en el sitio
Hola, soleado. Quiero una solución en excel. He copiado y pegado una página web que contiene datos. en eso, cada cuadro de texto contiene algunos números. No puedo convertirlo como un número regular en una celda de Excel que contiene una columna en particular. Estoy usando excel 2007.Tu texto para vincular
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL