Comment appliquer la vérification orthographique dans la zone de texte?

Nous pouvons facilement appliquer la fonction Orthographe pour vérifier l'orthographe de la chaîne de texte d'une cellule, mais cette fonctionnalité n'est pas appliquée à la zone de texte pour la vérification orthographique. Dans cet article, je vais expliquer comment appliquer la vérification orthographique dans une zone de texte.

Appliquer la vérification orthographique dans une zone de texte avec le code VBA

Appliquer la vérification orthographique dans une zone de texte avec le code VBA

Pour vérifier l'orthographe de la chaîne de texte dans une zone de texte, le code VBA ci-dessous peut vous rendre service:

1. Tout d'abord, veuillez insérer une zone de texte en cliquant sur Développeur > insérer > Zone de texte (contrôle ActiveX), et faites glisser pour dessiner une zone de texte, voir capture d'écran:

2. Ensuite, veuillez quitter le Mode de conception pour entrer la chaîne de texte dans la zone de texte selon vos besoins, après avoir tapé le texte, continuez à activer le Mode de conception, et cliquez avec le bouton droit sur la zone de texte pour sélectionner Voir le code depuis le menu contextuel, voir capture d'écran:

3. Dans le ouvert Microsoft Visual Basic pour applications fenêtre, veuillez remplacer le code d'origine par le code VBA suivant dans le module.

Code VBA: Appliquer la vérification orthographique dans la zone de texte:

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. Et puis appuyez sur F5 clé pour exécuter ce code, la Orthographe boîte de dialogue est activée à la fois, vous pouvez alors utiliser la Orthographe fonction pour vérifier l'orthographe du texte dans la zone de texte comme suit:

Articles Liés:

Comment changer la couleur de la zone de texte en fonction de la valeur dans Excel?

Comment insérer une image dans la zone de texte?

Comment définir une valeur par défaut dans une zone de texte?

Comment autoriser uniquement la saisie de nombres dans la zone de texte?