Come applicare il controllo ortografico in una casella di testo?

Possiamo facilmente applicare la funzione Controllo ortografico per verificare la stringa di testo da una cella, ma questa funzionalità non è applicabile 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 il codice VBA

Applica il controllo ortografico in una casella di testo con il codice VBA

Per controllare la stringa di testo in una casella di testo, il seguente codice VBA potrebbe esserti utile:

1. Per prima cosa, inserisci una casella di testo facendo clic su Sviluppatore > Inserisci > Casella di testo (Controllo ActiveX), e trascina per disegnare una casella di testo, vedi screenshot:

2. Successivamente, esci dalla Modalità progettazione per inserire la stringa di testo nella casella di testo secondo necessità; dopo aver digitato il testo, riattiva la Modalità progettazione e fai clic con il tasto destro sulla casella di testo per selezionare Visualizza codice dal menu contestuale, vedi screenshot:

3. Nella finestra aperta di Microsoft Visual Basic for Applications, sostituisci 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. Quindi premi il tasto F5 per eseguire questo codice, la finestra di dialogo Controllo ortografico verrà abilitata immediatamente, dopodiché puoi utilizzare la funzione Controllo ortografico per correggere il testo all'interno della casella di testo, come mostrato nello screenshot seguente:

Articoli correlati:

Come cambiare il colore della casella di testo in base al valore in Excel?

Come inserire un'immagine in una casella di testo?

Come impostare un valore predefinito in una casella di testo?

Come consentire solo l'inserimento di numeri in una casella di testo?