¿Cómo seleccionar automáticamente el texto de un cuadro de texto cuando está seleccionado en Excel?
Para eliminar textos en un cuadro de texto (Control ActiveX), en primer lugar, debe seleccionar todos los textos dentro del cuadro de texto. Este artículo habla de seleccionar automáticamente todos los textos de un cuadro de texto al hacer clic en el cuadro de texto en Excel.
Seleccionar automáticamente el texto de un cuadro de texto cuando se selecciona con el código VBA
Seleccionar automáticamente el texto de un cuadro de texto cuando se selecciona con el código VBA
Aplique el siguiente código VBA para seleccionar automáticamente todos los textos de un cuadro de texto al seleccionar el cuadro de texto en Excel.
1. Para una hoja de trabajo que contiene el cuadro de texto, hará que sus textos se seleccionen automáticamente, active el Modo de diseño haciendo clic en Developer > Modo de diseño. Ver captura de pantalla:
O también puede insertar un cuadro de texto haciendo clic en Developer > recuadro > Cuadro de texto (control ActiveX). Ver captura de pantalla:
2. Haga clic con el botón derecho en el cuadro de texto y haga clic en Ver código desde el menú contextual. Ver captura de pantalla:
3. En la apertura Microsoft Visual Basic para aplicaciones ventana, reemplace el código VBA original en la ventana Código con el siguiente código VBA.
Código VBA: seleccione 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, cuadro de texto1 es el nombre del cuadro de texto del que borrará el contenido. Cámbielo por el suyo.
2. Para seleccionar automáticamente textos de múltiples cuadros de texto al hacer clic en ellos, agregue el código VBA a continuación entre las dos secciones del código anterior. Y cambie el TextBox2 por el nombre de su cuadro de texto necesario.
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 el otro + Q llaves para salir del Microsoft Visual Basic para aplicaciones ventana.
5. Desactive el modo de diseño.
A partir de ahora, al hacer clic en el cuadro de texto, todos los textos dentro del cuadro de texto se seleccionarán automáticamente.
Artículos relacionados:
- ¿Cómo autocompletar un cuadro de texto al escribir en Excel?
- ¿Cómo borrar el contenido del cuadro de texto cuando se hace clic en Excel?
- ¿Cómo concatenar textos de varias celdas en un cuadro de texto en Excel?
- ¿Cómo deshabilitar la edición en el cuadro de texto para evitar que el usuario ingrese en Excel?
- ¿Cómo formatear un cuadro de texto como porcentaje en Excel?
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
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!