Jak sprawdzić pisownię w polu tekstowym?
Możemy łatwo zastosować funkcję Pisownia, aby sprawdzić pisownię w ciągu tekstowym z komórki, ale ta funkcja nie jest stosowana do pola tekstowego do sprawdzania pisowni. W tym artykule omówię, jak zastosować sprawdzanie pisowni w polu tekstowym.
Zastosuj sprawdzanie pisowni w polu tekstowym z kodem VBA
Zastosuj sprawdzanie pisowni w polu tekstowym z kodem VBA
Aby sprawdzić pisownię ciągu tekstowego w polu tekstowym, poniższy kod VBA może wyświadczyć ci przysługę:
1. Najpierw wstaw pole tekstowe, klikając Deweloper > wstawka > Pole tekstowe (formant ActiveX)i przeciągnij, aby narysować pole tekstowe, zobacz zrzut ekranu:
2. Następnie zamknij Tryb projektowania aby wprowadzić ciąg tekstowy do pola tekstowego, jak potrzebujesz, po wpisaniu tekstu, włącz opcję Tryb projektowaniai kliknij prawym przyciskiem myszy pole tekstowe, aby zaznaczyć Wyświetl kod z menu kontekstowego, zobacz zrzut ekranu:
3. W otwartym Microsoft Visual Basic for Applications oknie, zamień oryginalny kod na następujący kod VBA w module.
Kod VBA: Zastosuj sprawdzanie pisowni w polu tekstowym:
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 następnie naciśnij F5 klucz do uruchomienia tego kodu, plik Pisownia okno dialogowe jest włączone od razu, możesz użyć Pisownia funkcja, aby sprawdzić pisownię tekstu w polu tekstowym, jak pokazano na poniższym zrzucie ekranu:
Podobne artykuły:
Jak zmienić kolor pola tekstowego na podstawie wartości w programie Excel?
Jak wstawić obrazek do pola tekstowego?
Jak ustawić domyślną wartość w polu tekstowym?
Jak zezwolić tylko na wprowadzanie liczb w polu tekstowym?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!