Hogyan kell alkalmazni a helyesírás-ellenőrzést a szövegmezőben?
Könnyen alkalmazhatjuk a Helyesírás-függvényt a szöveg karakterláncának helyesírás-ellenőrzésére egy cellából, de ezt a funkciót nem alkalmazzuk a szövegmezőre helyesírás-ellenőrzés céljából. Ebben a cikkben arról fogok beszélni, hogyan kell alkalmazni a helyesírás-ellenőrzést egy szövegmezőben.
Helyesírás-ellenőrzés a VBA kóddal ellátott szövegmezőben
Helyesírás-ellenőrzés a VBA kóddal ellátott szövegmezőben
A szövegmező szövegírásának helyesírás-ellenőrzéséhez az alábbi VBA-kód kedvezhet:
1. Először kérjük, helyezzen be egy szövegdobozt a kattintással Fejlesztő > betétlap > Szövegdoboz (ActiveX-vezérlő), és húzással húzzon egy szövegdobozt, lásd a képernyőképet:
2. Ezután kérjük, lépjen ki a Tervezési mód a szöveg karakterláncának a szövegmezőbe történő beírásához szükség szerint, a szöveg beírása után folytassa a Tervezési mód, és a jobb egérgombbal kattintson a szövegdobozra a kiválasztáshoz Kód megtekintése a helyi menüből lásd a képernyőképet:
3. A nyitottban Microsoft Visual Basic for Applications ablakban, kérjük, cserélje ki az eredeti kódot a következő VBA kóddal a modulba.
VBA kód: Helyesírás-ellenőrzés alkalmazása a szövegmezőben:
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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, a Helyesírás párbeszédpanel egyszerre engedélyezve van, akkor használhatja a Helyesírás funkció a szöveg helyesírás-ellenőrzéséhez, a következő képernyőkép szerint:
Kapcsolódó cikkek:
Hogyan lehet megváltoztatni a szövegdoboz színét az Excel értéke alapján?
Hogyan lehet képet beilleszteni a szövegmezőbe?
Hogyan állítsunk be alapértelmezett értéket a szövegmezőben?
Hogyan lehet csak számokat bevinni a szövegmezőbe?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!