Come selezionare automaticamente il testo di una casella di testo quando è selezionata in Excel?

Per eliminare i testi in una casella di testo (controllo ActiveX), in primo luogo, è necessario selezionare tutti i testi all'interno della casella di testo. Questo articolo parla della selezione automatica di tutti i testi di una casella di testo quando si fa clic sulla casella di testo in Excel.

Seleziona automaticamente il testo di una casella di testo quando è selezionata con il codice VBA

Seleziona automaticamente il testo di una casella di testo quando è selezionata con il codice VBA

Si prega di applicare il codice VBA sottostante per selezionare automaticamente tutti i testi di una casella di testo quando si seleziona la casella di testo in Excel.

1. Per un foglio di lavoro contenente la casella di testo, i suoi testi verranno selezionati automaticamente, attivare la modalità di progettazione facendo clic su Costruttori > Modalità di progettazione. Vedi screenshot:

Oppure puoi anche inserire una casella di testo facendo clic Costruttori > inserire > Casella di testo (controllo ActiveX). Vedi screenshot:

2. Fare clic con il pulsante destro del mouse sulla casella di testo e fare clic Visualizza codice dal menu contestuale. Vedi screenshot:

3. In apertura Microsoft Visual Basic, Applications Edition finestra, sostituire il codice VBA originale nella finestra del codice con il codice VBA sottostante.

Codice VBA: seleziona automaticamente i testi di una casella di testo quando fai clic su di essa

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

Note:

1. Nel codice, Casella di testo1 è il nome della casella di testo da cui cancellerai i contenuti. Per favore cambialo con il tuo.

2. Per selezionare automaticamente i testi di più caselle di testo quando si fa clic su di esse, aggiungere sotto il codice VBA tra le due sezioni nel codice sopra. E cambia il TextBox2 con il nome della tua casella di testo necessaria.

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. premi il altro + Q tasti per uscire da Microsoft Visual Basic, Applications Edition finestra.

5. Disattivare la modalità di progettazione.

D'ora in poi, quando si fa clic sulla casella di testo, tutti i testi all'interno della casella di testo verranno selezionati automaticamente.

Articoli correlati:

• Come completare automaticamente una casella di testo durante la digitazione in Excel?
• Come cancellare il contenuto della casella di testo quando si fa clic in Excel?
• Come concatenare testi di più celle in una casella di testo in Excel?
• Come disabilitare la modifica nella casella di testo per impedire l'inserimento dell'utente in Excel?
• Come formattare una casella di testo come percentuale in Excel?