Hoe voorkom je dat speciale tekens in Excel worden ingevoerd?
In sommige gevallen willen we alleen letters of cijfers in cellen invoeren en voorkomen dat we de speciale tekens typen, zoals @ # $% & enzovoort. Zijn er functies in Excel om te voorkomen dat de speciale tekens worden ingevoerd wanneer we waarden invoegen?
Voorkom dat speciale tekens worden ingevoerd met gegevensvalidatie
Voorkom dat speciale tekens worden ingevoerd met VBA-code
Voorkom dat speciale tekens worden ingevoerd met Kutools voor Excel
Voorkom dat speciale tekens worden ingevoerd met gegevensvalidatie
Excel 'Data Validation kan u helpen om alleen de alfanumerieke waarden in te voeren. Ga als volgt te werk:
1. Selecteer een bereik waarvan u wilt voorkomen dat de speciale tekens worden ingevoerd.
2. Dan klikken Data > Data Validation > Data Validation, zie screenshot:
3. In de Data Validation dialoogvenster, klik Instellingen tab en kies Eigen van het Allow vervolgkeuzelijst en voer deze formule in =ISNUMBER(SUMPRODUCT(SEARCH(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),"0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"))) in de Formule tekstvak, zie screenshot:
Opmerking:A1 geeft de eerste cel van uw geselecteerde bereik aan (van links naar rechts).
4. Dan klikken OK om dit dialoogvenster te sluiten, en als u nu waarden invoert die de speciale tekens in de opgegeven kolom bevatten en u de optie hebt toegepast, krijgt u het volgende waarschuwingsbericht.
Voorkom dat speciale tekens worden ingevoerd met VBA-code
De volgende VBA-code kan u ook helpen om de speciale tekens te voorkomen tijdens het invoeren van de tekstwaarden.
1. Houd de ALT + F11 toetsen, en het opent de Microsoft Visual Basic for Applications-venster.
2. Kies dan aan de linkerkant je gebruikte werkblad Projectverkenner, dubbelklik erop om het Module, en kopieer en plak vervolgens de volgende VBA-code in de lege ruimte Module:
VBA-code: voorkom dat speciale tekens in Excel worden ingevoerd
Private Const FCheckRgAddress As String = "A1:A100"
Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140905
Dim xChanged As Range
Dim xRg As Range
Dim xString As String
Dim sErrors As String
Dim xRegExp As Variant
Dim xHasErr As Boolean
Set xChanged = Application.Intersect(Range(FCheckRgAddress), Target)
If xChanged Is Nothing Then Exit Sub
Set xRegExp = CreateObject("VBScript.RegExp")
xRegExp.Global = True
xRegExp.IgnoreCase = True
xRegExp.Pattern = "[^0-9a-z]"
For Each xRg In xChanged
If xRegExp.Test(xRg.Value) Then
xHasErr = True
Application.EnableEvents = False
xRg.ClearContents
Application.EnableEvents = True
End If
Next
If xHasErr Then MsgBox "These cells had invalid entries and have been cleared:"
End Sub
Note: In de bovenstaande code kunt u het bereik wijzigen A1: A100 of Private Const FCheckRgAddress As String = "A1: A100" script naar uw eigen bereik waarvan u de speciale tekens wilt voorkomen.
3. Sla vervolgens deze code op en sluit deze, en nu, wanneer u tekstwaarden invoert met enkele speciale tekens in het bereik A1: A100, wordt uw waarde onmiddellijk gewist en kunt u het volgende waarschuwingsbericht krijgen.
Voorkom dat speciale tekens worden ingevoerd met Kutools voor Excel
Eigenlijk, als je dat hebt gedaan Kutools for Excel - een handige en multifunctionele tool, waarmee u snel kunt voorkomen dat u speciale tekens in een selectie moet typen met zijn Voorkom typen nut door 茅茅n vinkje.
Kutools for Excel, met meer dan 300 handige functies, maakt uw werk eenvoudiger. |
Na het installeren van Kutools voor Excel, doe het als volgt :(Gratis download Kutools voor Excel nu!)
1. Selecteer een selectie waarvan u het typen van speciale tekens wilt voorkomen, en klik op Kutools > Voorkom typen > Voorkom typen. Zie screenshot:
2. In de Voorkom typen dialoogvenster, vink aan Voorkom het typen van speciale tekens optie. Zie screenshot:
3. klikken Ok, en er verschijnt een dialoogvenster om u eraan te herinneren dat het de gegevensvalidatie zal verwijderen als u dit hulpprogramma toepast en op klikt Ja om naar het volgende dialoogvenster te gaan, zal het u eraan herinneren dat het hulpprogramma aan de sectie heeft gewerkt. zie screenshot:
4. klikken OK om het dialoogvenster te sluiten, en vanaf nu verschijnt er een waarschuwingsvenster wanneer u een speciaal teken in de selectie probeert in te voeren.
Voorkom dat speciale tekens worden ingevoerd
Gerelateerde artikelen:
Hoe voorkom je dat je waarden met spaties invoert in Excel?
Hoe voorkom je dubbele vermeldingen in een kolom in Excel?
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!