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?
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
