¿Cómo seleccionar automáticamente el texto de un cuadro de texto cuando se selecciona en Excel?

Para eliminar textos en un cuadro de texto (Control ActiveX), primero debe seleccionar todo el texto dentro del cuadro. Este artículo trata sobre la selección automática de todo el texto de un cuadro de texto al hacer clic en él en Excel.

Selección automática del texto de un cuadro de texto cuando se selecciona con código VBA

Selección automática del texto de un cuadro de texto cuando se selecciona con código VBA

Por favor, aplique el siguiente código VBA para seleccionar automáticamente todo el texto de un cuadro de texto al seleccionarlo en Excel.

1. Para una hoja de cálculo que contiene el cuadro de texto cuyo texto desea que se seleccione automáticamente, active el Modo Diseño haciendo clic en Desarrollador > Modo Diseño. Ver captura de pantalla:

O también puede insertar un cuadro de texto haciendo clic en Desarrollador > Insertar > Cuadro de Texto (Control ActiveX). Ver captura de pantalla:

2. Haga clic derecho en el cuadro de texto y haga clic en Ver Código en el menú contextual. Ver captura de pantalla:

3. En la ventana abierta de Microsoft Visual Basic para Aplicaciones, reemplace el código VBA original en la ventana de Código con el siguiente código VBA.

Código VBA: Seleccionar automáticamente los textos de un cuadro de texto al hacer clic en él

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
    Call SelTextBox(Me.TextBox1.Object)
End Sub

Sub SelTextBox(xTextBox As Object)
    With xTextBox
        .SelStart = 0
        .SelLength = Len(.Text)
    End With
End Sub

Notas:

1. En el código, TextBox1 es el nombre del cuadro de texto del que desea borrar el contenido. Por favor, cámbielo por el suyo propio.

2. Para seleccionar automáticamente los textos de varios cuadros de texto al hacer clic en ellos, agregue el siguiente código VBA entre las dos secciones del código anterior. Cambie TextBox2 al nombre del cuadro de texto que necesite.

Private Sub TextBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Call SelTextBox(Me.TextBox2.Object)
End Sub

4. Presione las teclas Alt + Q para salir de la ventana de Microsoft Visual Basic para Aplicaciones.

5. Desactive el Modo Diseño.

A partir de ahora, al hacer clic en el cuadro de texto, todo el texto dentro del cuadro se seleccionará automáticamente.

Descubre la Magia de Excel con Kutools AI

• Ejecución Inteligente: Realiza operaciones en celdas, analiza datos y crea gráficos, todo impulsado por comandos simples.
• Fórmulas Personalizadas: Genera fórmulas adaptadas para optimizar tus flujos de trabajo.
• Codificación VBA: Escribe e implementa código VBA sin esfuerzo.
• Interpretación de Fórmulas: Comprende fórmulas complejas con facilidad.
• Traducción de Texto: Supera las barreras del idioma dentro de tus hojas de cálculo.

Potencia tus capacidades de Excel con herramientas impulsadas por IA. ¡Descarga Ahora y experimenta una eficiencia como nunca antes!

Artículos relacionados:

• ¿Cómo autocompletar un cuadro de texto mientras escribe en Excel?
• ¿Cómo borrar el contenido de un cuadro de texto al hacer clic en Excel?
• ¿Cómo concatenar textos de varias celdas en un cuadro de texto en Excel?
• ¿Cómo deshabilitar la edición en un cuadro de texto para evitar la entrada del usuario en Excel?
• ¿Cómo formatear un cuadro de texto como porcentaje en Excel?