Jak použít kontrolu pravopisu v textovém poli?

Můžeme snadno použít funkci Pravopis na kontrolu pravopisu textového řetězce z buňky, ale tato funkce se nepoužije na textové pole pro kontrolu pravopisu. V tomto článku budu hovořit o tom, jak použít kontrolu pravopisu v textovém poli.

Použijte kontrolu pravopisu v textovém poli s kódem VBA

Použijte kontrolu pravopisu v textovém poli s kódem VBA

Chcete-li zkontrolovat pravopis textového řetězce v textovém poli, níže uvedený kód VBA vám může udělat laskavost:

1. Nejprve vložte textové pole kliknutím Vývojka > Vložit > Textové pole (ovládací prvek ActiveX)a tažením nakreslete textové pole, viz screenshot:

2. Poté prosím opusťte Režim návrhu Chcete-li zadat textový řetězec do textového pole, jak potřebujete, po zadání textu pokračujte v aktivaci Režim návrhua pravým tlačítkem myši vyberte textové pole Zobrazit kód z kontextové nabídky viz screenshot:

3. V otevřeném Microsoft Visual Basic pro aplikace v okně nahraďte původní kód do modulu následujícím kódem VBA.

Kód VBA: Použijte kontrolu pravopisu v textovém poli:

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. A pak stiskněte F5 klíč ke spuštění tohoto kódu, Pravopis dialogové okno je povoleno najednou, pak můžete použít Pravopis funkce kontroly pravopisu pro kontrolu textu do textového pole, jak ukazuje následující snímek obrazovky:

Související články:

Jak změnit barvu textového pole na základě hodnoty v aplikaci Excel?

Jak vložit obrázek do textového pole?

Jak nastavit výchozí hodnotu v textovém poli?

Jak povolit zadávání pouze čísel do textového pole?