Come fare in modo che il testo di una casella di testo venga selezionato automaticamente quando la casella è selezionata in Excel?
Per eliminare il testo in una casella di testo (controllo ActiveX), devi prima selezionarlo interamente. Questo articolo ti mostra come fare in modo che, con un semplice clic sulla casella in Excel, tutto il testo al suo interno venga selezionato automaticamente.
Selezione automatica il testo di una casella di testo quando è selezionata con codice VBA
Selezione automatica il testo di una casella di testo quando è selezionata con codice VBA
Applica il seguente codice VBA per selezionare automaticamente tutto il testo di una casella di testo non appena viene selezionata in Excel.
1. Per un foglio di lavoro che contiene la casella di testo il cui testo si desidera selezionare automaticamente, attivare la modalità progettazione facendo clic su Sviluppo > Modalità progettazione. Vedere lo screenshot:
In alternativa, puoi inserire una casella di testo facendo clic su Sviluppo > Inserisci > Casella di testo (controllo ActiveX). Guarda lo screenshot:
2. Fare clic con il pulsante destro del mouse sulla casella di testo e selezionare Visualizza codice dal menu contestuale. Vedere lo screenshot:
3. Nella finestra di Microsoft Visual Basic, Applications Edition aperta, sostituisci il codice VBA originale nella finestra del codice con il seguente.
Codice VBA: Seleziona automaticamente il testo di una casella di testo al 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 SubNote:
1. Nel codice, TextBox1 è il nome della casella di testo da cui si desidera cancellare il contenuto. Sostituiscilo con il tuo.
2. Per selezionare automaticamente il testo di più caselle di testo al clic, inserisci il seguente codice VBA tra le due sezioni del codice riportato sopra. Sostituisci "TextBox2" con il nome della tua casella di testo.
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 Sub4. Premere i tasti Alt+Q per chiudere la finestra di Microsoft Visual Basic, Applications Edition.
5. Disattiva la Modalità Progettazione.
D’ora in poi, al 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, il tutto con comandi semplici e intuitivi.
- Formule personalizzate: crea formule su misura per ottimizzare i tuoi flussi di lavoro.
- Codifica VBA: Scrivi e implementa codice VBA in modo semplice e immediato.
- Interpretazione delle formule: Comprendi con facilità anche le formule più complesse.
- Traduzione del testo: Superate le barriere linguistiche direttamente nei vostri fogli di calcolo.
Articoli correlati:
- Come completare automaticamente una casella di testo mentre si digita in Excel?
- Come si fa a cancellare automaticamente il contenuto di una casella di testo non appena viene selezionata in Excel?
- Come unire il testo di più celle in una singola casella di testo in Excel?
- Come disabilitare la modifica in una casella di testo per impedire all’utente di inserire dati in Excel?
- Come si formatta una casella di testo come percentuale in Excel?
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi