Hoe de spellingcontrole in het tekstvak toe te passen?
We kunnen de spelfunctie eenvoudig toepassen om de tekenreeks van een cel op spelling te controleren, maar deze functie wordt niet toegepast op het tekstvak voor spellingcontrole. In dit artikel zal ik het hebben over het toepassen van de spellingcontrole in een tekstvak.
Spellingcontrole toepassen in een tekstvak met VBA-code
Spellingcontrole toepassen in een tekstvak met VBA-code
Om de tekstreeks in een tekstvak op spelling te controleren, kan de onderstaande VBA-code u een plezier doen:
1. Voer eerst een tekstvak in door op te klikken Ontwikkelaar > Invoegen > Tekstvak (ActiveX-besturingselement), en sleep om een tekstvak te tekenen, zie screenshot:
2. Sluit dan het Ontwerpmodus om de tekstreeks naar behoefte in het tekstvak in te voeren, moet u na het typen van de tekst de Ontwerpmodusen klik met de rechtermuisknop op het tekstvak om te selecteren Bekijk code zie screenshot vanuit het contextmenu:
3. In het geopende Microsoft Visual Basic voor toepassingen venster, vervangt u de originele code door de volgende VBA-code in de module.
VBA-code: spellingcontrole toepassen in tekstvak:
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. En druk vervolgens op F5 sleutel om deze code uit te voeren, de Spelling dialoogvenster is meteen ingeschakeld, dan kunt u de Spelling functie om de spelling van de tekst in het tekstvak te controleren als in het volgende screenshot:
Gerelateerde artikelen:
Hoe verander je de tekstvakkleur op basis van waarde in Excel?
Hoe een afbeelding in een tekstvak invoegen?
Hoe stel ik een standaardwaarde in een tekstvak in?
Hoe kan ik toestaan dat alleen cijfers worden ingevoerd in een tekstvak?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!