Kako uporabiti preverjanje črkovanja v besedilnem polju?
Funkcijo črkovanja lahko enostavno uporabimo za preverjanje črkovanja besedilnega niza iz celice, vendar ta funkcija ni uporabljena v besedilnem polju za preverjanje črkovanja. V tem članku bom govoril o tem, kako uporabiti preverjanje črkovanja v besedilnem polju.
Uporabi preverjanje črkovanja v besedilnem polju s kodo VBA
Uporabi preverjanje črkovanja v besedilnem polju s kodo VBA
Če želite črkovati besedilni niz v besedilnem polju, vam lahko spodnja koda VBA naredi uslugo:
1. Najprej vstavite besedilno polje s klikom Razvojni > Vstavi > Besedilno polje (nadzor ActiveX)in povlecite, da narišete besedilno polje, glejte posnetek zaslona:
2. Nato prosim zapustite Način oblikovanja če želite v besedilno polje vnesti besedilni niz, kot ga potrebujete, po vnosu besedila nadaljujte z omogočanjem Način oblikovanjain z desno miškino tipko kliknite besedilno polje, da ga izberete Ogled kode v priročnem meniju si oglejte posnetek zaslona:
3. V odprti Microsoft Visual Basic za aplikacije okno, v modul zamenjajte prvotno kodo z naslednjo kodo VBA.
Koda VBA: Uporabi preverjanje črkovanja v besedilnem polju:
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. In nato pritisnite F5 za zagon te kode, Črkovanje pogovorno okno je omogočeno hkrati, nato lahko uporabite Črkovanje funkcija za črkovanje besedila v besedilno polje, kot je prikazano na sliki spodaj:
Sorodni članki:
Kako spremeniti barvo besedilnega polja glede na vrednost v Excelu?
Kako vstaviti sliko v polje z besedilom?
Kako nastaviti privzeto vrednost v besedilnem polju?
Kako dovoliti vnos samo številk v besedilno polje?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
