Hoe voer je een spellingscontrole uit in een tekstvak?

We kunnen eenvoudig de Spelling-functie gebruiken om de tekststring vanuit een cel te controleren, maar deze functie wordt niet toegepast op tekstvakken voor spellingscontrole. In dit artikel zal ik uitleggen hoe je een spellingscontrole kunt toepassen in een tekstvak.

Toepassen van spellingscontrole in een tekstvak met VBA-code

Toepassen van spellingscontrole in een tekstvak met VBA-code

Om de tekststring in een tekstvak te controleren, kan de volgende VBA-code je helpen:

1. Voeg eerst een tekstvak in door te klikken op Developer > Insert > Text Box (ActiveX Control), en sleep om een tekstvak te tekenen, zie screenshot:

2. Vervolgens moet je de Ontwerpmodus verlaten om de tekststring in het tekstvak in te voeren zoals je nodig hebt. Nadat je de tekst hebt getypt, schakel je de Ontwerpmodus weer in en klik je met de rechtermuisknop op het tekstvak om Code weergeven te selecteren uit het contextmenu, zie screenshot:

3. In het geopende Microsoft Visual Basic for Applications-venster moet je de originele code vervangen door de volgende VBA-code in de Module.

VBA-code: Toepassen van spellingscontrole in tekstvak:

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. Druk vervolgens op de F5-toets om deze code uit te voeren, waarop het Spelling-dialoogvenster onmiddellijk wordt ingeschakeld. Je kunt nu de Spelling-functie gebruiken om de tekst in het tekstvak te controleren, zoals in de volgende afbeelding te zien is:

Gerelateerde artikelen:

Hoe verander je de kleur van een tekstvak op basis van een waarde in Excel?

Hoe voeg je een afbeelding in een tekstvak in?

Hoe stel je een standaardwaarde in een tekstvak in?

Hoe sta je alleen nummers toe als invoer in een tekstvak?