Come applicare il controllo ortografico nella casella di testo?
Possiamo facilmente applicare la funzione Ortografia per il controllo ortografico della stringa di testo da una cella, ma questa funzione non viene applicata alla casella di testo per il controllo ortografico. In questo articolo, parlerò di come applicare il controllo ortografico in una casella di testo.
Applica il controllo ortografico in una casella di testo con codice VBA
Applica il controllo ortografico in una casella di testo con codice VBA
Per eseguire il controllo ortografico della stringa di testo in una casella di testo, il codice VBA sottostante potrebbe farti un favore:
1. Innanzitutto, inserisci una casella di testo facendo clic Costruttori > inserire > Casella di testo (controllo ActiveX)e trascina per disegnare una casella di testo, vedi screenshot:
2. Quindi, esci da Modalità di progettazione per inserire la stringa di testo nella casella di testo di cui hai bisogno, dopo aver digitato il testo, continua ad abilitare il Modalità di progettazionee fai clic con il pulsante destro del mouse sulla casella di testo per selezionare Visualizza codice dal menu contestuale, vedi screenshot:
3. In aperto Microsoft Visual Basic, Applications Edition finestra, sostituire il codice originale con il seguente codice VBA nel modulo.
Codice VBA: applica il controllo ortografico nella casella di testo:
Sub SpellChkRvw_Click()
Dim xObject As Object
Dim xCell As Range
On Error Resume Next
Set xCell = ActiveSheet.Cells(ActiveSheet.Rows.Count, ActiveSheet.Columns.Count)
If ActiveSheet.OLEObjects.Count > 0 Then
For Each xObject In ActiveSheet.OLEObjects
xCell = xObject.Object.Text
xCell.CheckSpelling , , , 1033
xObject.Object.Text = xCell
Next
End If
End Sub
4. E poi premere F5 chiave per eseguire questo codice, il Ortografia la finestra di dialogo viene attivata immediatamente, quindi è possibile utilizzare il file Ortografia funzione per il controllo ortografico del testo nella casella di testo come mostrato nella seguente schermata:
Articoli correlati:
Come cambiare il colore della casella di testo in base al valore in Excel?
Come inserire un'immagine nella casella di testo?
Come impostare un valore predefinito in una casella di testo?
Come consentire solo l'inserimento di numeri nella casella di testo?
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- 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 della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
