Wie wendet man die Rechtschreibprüfung in einem Textfeld an?
Wir können ganz einfach die Funktion „Rechtschreibung“ verwenden, um Zeichenfolgen aus einer Zelle zu überprüfen, aber diese Funktion ist nicht für die Rechtschreibprüfung in einem Textfeld verfügbar. In diesem Artikel werde ich darüber sprechen, wie man die Rechtschreibprüfung in einem Textfeld anwendet.
Rechtschreibprüfung in einem Textfeld mit VBA-Code anwenden
Rechtschreibprüfung in einem Textfeld mit VBA-Code anwenden
Um die Zeichenfolge in einem Textfeld zu überprüfen, kann der folgende VBA-Code helfen:
1. Klicken Sie zunächst auf Entwickler > Einfügen > Textfeld (ActiveX-Steuerelement), und ziehen Sie, um ein Textfeld zu zeichnen, siehe Screenshot:
2. Verlassen Sie dann den Entwurfsmodus, um die gewünschte Zeichenfolge in das Textfeld einzugeben. Nachdem Sie den Text eingegeben haben, aktivieren Sie erneut den Entwurfsmodus, und klicken Sie mit der rechten Maustaste auf das Textfeld, um im Kontextmenü auf Code anzeigen zu klicken, siehe Screenshot:
3. Im geöffneten Fenster Microsoft Visual Basic for Applications ersetzen Sie bitte den ursprünglichen Code durch den folgenden VBA-Code im Modul.
VBA-Code: Rechtschreibprüfung in einem Textfeld anwenden:
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. Drücken Sie anschließend die F5-Taste, um diesen Code auszuführen. Das Dialogfeld „Rechtschreibung“ wird sofort aktiviert, und Sie können die Funktion „Rechtschreibung“ verwenden, um den Text im Textfeld zu überprüfen, wie im folgenden Screenshot gezeigt:
Verwandte Artikel:
Wie ändert man die Farbe eines Textfelds basierend auf einem Wert in Excel?
Wie fügt man ein Bild in ein Textfeld ein?
Wie legt man einen Standardwert in einem Textfeld fest?
Wie lässt man nur Zahlen in ein Textfeld eingeben?
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins