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

Per eliminare i testi in una casella di testo (Controllo ActiveX), prima di tutto, è necessario selezionare tutto il testo all'interno della casella. Questo articolo parla di come selezionare automaticamente tutto il testo di una casella di testo quando si fa clic sulla casella in Excel.

Selezionare automaticamente il testo di una casella di testo quando viene selezionata con il codice VBA

Selezionare automaticamente il testo di una casella di testo quando viene selezionata con il codice VBA

Applicare il seguente codice VBA per selezionare automaticamente tutto il testo di una casella di testo quando si seleziona la casella in Excel.

1. Per un foglio di lavoro che contiene la casella di testo i cui testi verranno selezionati automaticamente, attivare la Modalità Progettazione facendo clic su Sviluppatore > Modalità Progettazione. Vedere screenshot:

In alternativa, puoi inserire una casella di testo facendo clic su Sviluppatore > Inserisci > Casella di Testo (Controllo ActiveX). Vedere screenshot:

2. Fare clic con il tasto destro sulla casella di testo e fare clic su Visualizza Codice dal menu contestuale. Vedere screenshot:

3. Nella finestra Microsoft Visual Basic for Applications che si apre, sostituire il codice VBA originale nella finestra del Codice con il seguente codice VBA.

Codice VBA: Selezionare automaticamente i testi di una casella di testo quando si fa 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, TextBox1 è il nome della casella di testo da cui cancellerai i contenuti. Cambialo con il tuo.

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

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. Premere i tasti Alt + Q per uscire dalla finestra Microsoft Visual Basic for Applications.

5. Disattiva la Modalità Progettazione.

Da ora in poi, quando si fa clic sulla casella di testo, tutto il testo al suo interno verrà selezionato automaticamente.

Sblocca la Magia di Excel con Kutools AI

• Esecuzione Intelligente: Esegui operazioni sulle celle, analizza i dati e crea grafici — tutto guidato da semplici comandi.
• Formule Personalizzate: Genera formule su misura per ottimizzare i tuoi flussi di lavoro.
• Codifica VBA: Scrivi e implementa codice VBA senza sforzo.
• Interpretazione delle Formule: Comprendi facilmente formule complesse.
• Traduzione del Testo: Superare le barriere linguistiche all'interno dei tuoi fogli di calcolo.

Potenzia le tue capacità di Excel con strumenti alimentati dall'IA. Scarica Ora ed esperisci un'efficienza mai vista prima!

Articoli correlati:

• Come autocompletare una casella di testo durante la digitazione in Excel?
• Come cancellare i contenuti di una casella di testo quando viene cliccata in Excel?
• Come concatenare i testi di più celle in una casella di testo in Excel?
• Come disabilitare la modifica in una casella di testo per impedire l'input dell'utente in Excel?
• Come formattare una casella di testo come percentuale in Excel?