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?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své excelentní dovednosti pomocí Kutools for Excela zažijte efektivitu jako nikdy předtím. Kutools for Excel Nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab Přináší rozhraní s kartami do Office a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
