Kako preprečiti vnos posebnih znakov v Excelu?

V nekaterih primerih želimo samo vnesti črke ali številke v celice in preprečiti vnašanje posebnih znakov, na primer @ # $% & in tako naprej. Ali v Excelu obstajajo funkcije, ki preprečujejo vnos posebnih znakov, ko vstavljamo vrednosti?

S preverjanjem podatkov preprečite vnos posebnih znakov

Preprečite vnos posebnih znakov s kodo VBA

Preprečite vnos posebnih znakov s programom Kutools za Excel

S preverjanjem podatkov preprečite vnos posebnih znakov

Excel 'Validacija podatkov vam lahko pomaga samo pri vnosu alfanumeričnih vrednosti. Naredite naslednje:

1. Izberite obseg, za katerega želite preprečiti vnos posebnih znakov.

2. Nato kliknite datum > Preverjanje podatkov > Preverjanje podatkov, glej posnetek zaslona:

3. v Preverjanje podatkov pogovorno okno, kliknite Nastavitve kartico in izberite po meri Iz Dovoli spustnega seznama in vnesite to formulo =ISNUMBER(SUMPRODUCT(SEARCH(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),"0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"))) v Formula besedilno polje, glej posnetek zaslona:

Opomba:A1 označuje prvo celico izbranega obsega (od leve proti desni).

4. Nato kliknite OK Če želite zapreti to pogovorno okno, in ko vnesete vrednosti, ki vsebujejo posebne znake v določenem stolpcu, uporabite možnost, boste prejeli naslednje opozorilno sporočilo.

Preprečite vnos posebnih znakov s kodo VBA

Naslednja koda VBA vam lahko pomaga tudi pri preprečevanju posebnih znakov med vnašanjem besedilnih vrednosti.

1. Držite tipko ALT + F11 in odpre tipko Okno Microsoft Visual Basic for Applications.

2. Nato na levi izberite uporabljeni delovni list Raziskovalec projektov, dvokliknite, da odprete Moduliin nato kopirajte in prilepite naslednjo kodo VBA v prazno Moduli:

Koda VBA: preprečite vnos posebnih znakov v Excelu

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

Opombe: V zgornji kodi lahko spremenite obseg A1: A100 of Zasebni Const FCheckRgAddress As String = "A1: A100" skript za svoj obseg, ki ga želite preprečiti posebnim znakom.

3. Nato shranite in zaprite to kodo in zdaj, ko vnesete besedilne vrednosti z nekaterimi posebnimi znaki v obsegu A1: A100, se vaša vrednost naenkrat počisti in dobite naslednje opozorilno sporočilo.

Preprečite vnos posebnih znakov s programom Kutools za Excel

Pravzaprav, če že imate Kutools za Excel - priročno in večnamensko orodje, s katerim lahko hitro preprečite tipkanje posebnih znakov v izboru Prepreči tipkanje koristnost z enim preverjanjem.

Po namestitvi Kutools za Excel, naredite spodaj :(Brezplačno prenesite Kutools za Excel zdaj!)

1. Izberite izbiro, ki ji želite preprečiti tipkanje posebnih znakov, in kliknite Kutools > Prepreči tipkanje > Prepreči tipkanje. Oglejte si posnetek zaslona:

2. V Ljubljani Prepreči tipkanje pogovorno okno, preverite Prepreči vnos posebnih znakov možnost. Oglejte si posnetek zaslona:

3. klik Okin odpre se pogovorno okno, ki vas opomni, da bo odstranilo preverjanje veljavnosti podatkov, če uporabite ta pripomoček in kliknete Da če se želite pomakniti na naslednje pogovorno okno, vas bo spomnilo, da je pripomoček delal v razdelku glej posnetek zaslona:

4. klik OK Če želite zapreti pogovorno okno, se odslej prikaže opozorilno pogovorno okno, ko poskušate v izbor vnesti poseben znak.

Nasvet.Če želite v stolpec nehati vnašati podvojene vrednosti, poskusite uporabiti Kutools za Excel Prepreči podvajanje kot je prikazano na naslednjem posnetku zaslona. Popolnoma deluje brez omejitev v 30 dneh, prosim prenesite in si zagotovite brezplačno preskusno različico zdaj

  Prepreči vnos posebnih znakov

Sorodni članki:

Kako preprečiti vnos vrednosti s presledki v Excelu?

Kako preprečiti podvojene vnose v stolpcu v Excelu?