Μετάβαση στο κύριο περιεχόμενο

Πώς να αποτρέψετε την είσοδο ειδικών χαρακτήρων στο Excel;

Σε ορισμένες περιπτώσεις, απλώς θέλουμε να εισαγάγουμε γράμματα ή αριθμούς σε κελιά και να αποτρέψουμε την πληκτρολόγηση των ειδικών χαρακτήρων, όπως @ # $% & ούτω καθεξής. Υπάρχουν λειτουργίες στο Excel για την αποτροπή της εισαγωγής των ειδικών χαρακτήρων όταν εισάγουμε τιμές;

Αποτρέψτε την είσοδο ειδικών χαρακτήρων με επικύρωση δεδομένων

Αποτρέψτε την εισαγωγή ειδικών χαρακτήρων με κωδικό VBA

Αποτρέψτε την είσοδο ειδικών χαρακτήρων με το Kutools για Excel καλή ιδέα3


Αποτρέψτε την είσοδο ειδικών χαρακτήρων με επικύρωση δεδομένων

Η επικύρωση δεδομένων του Excel μπορεί να σας βοηθήσει να εισαγάγετε μόνο τις αλφαριθμητικές τιμές. Κάντε τα εξής:

1. Επιλέξτε ένα εύρος που θέλετε να αποτρέψετε την είσοδο των ειδικών χαρακτήρων.

2. Στη συνέχεια κάντε κλικ στο κουμπί ημερομηνία > επικύρωση δεδομένων > επικύρωση δεδομένων, δείτε το στιγμιότυπο οθόνης:

doc-prevent-χαρακτήρες-1

3. Στην επικύρωση δεδομένων , κάντε κλικ στην επιλογή ρυθμίσεις καρτέλα και επιλέξτε Εξατομικευμένο από το Επιτρέψτε αναπτυσσόμενη λίστα και μετά εισαγάγετε αυτόν τον τύπο =ISNUMBER(SUMPRODUCT(SEARCH(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),"0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"))) μέσα στο Τύπος πλαίσιο κειμένου, δείτε το στιγμιότυπο οθόνης:

Σημείωση:A1 υποδεικνύει το πρώτο κελί της επιλεγμένης περιοχής (από αριστερά προς τα δεξιά).

doc-prevent-χαρακτήρες-1

4. Στη συνέχεια κάντε κλικ στο κουμπί OK για να κλείσετε αυτό το παράθυρο διαλόγου και τώρα όταν εισαγάγετε τιμές που περιέχουν τους ειδικούς χαρακτήρες στην καθορισμένη στήλη, έχετε εφαρμόσει την επιλογή, θα λάβετε το ακόλουθο προειδοποιητικό μήνυμα.

doc-prevent-χαρακτήρες-1


Αποτρέψτε την εισαγωγή ειδικών χαρακτήρων με κωδικό VBA

Ο παρακάτω κώδικας VBA μπορεί επίσης να σας βοηθήσει να αποτρέψετε τους ειδικούς χαρακτήρες κατά την εισαγωγή των τιμών κειμένου.

1. Κρατήστε πατημένο το ALT + F11 και ανοίγει το Παράθυρο Microsoft Visual Basic for Applications.

2. Στη συνέχεια, επιλέξτε το χρησιμοποιημένο φύλλο εργασίας σας από τα αριστερά Εξερεύνηση έργου, κάντε διπλό κλικ για να ανοίξετε το Μονάδα μέτρησηςκαι, στη συνέχεια, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα VBA στο κενό Μονάδα μέτρησης:

Κωδικός VBA: αποτρέψτε την είσοδο ειδικών χαρακτήρων στο Excel

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

doc-prevent-χαρακτήρες-1

Note: Στον παραπάνω κώδικα, μπορείτε να αλλάξετε το εύρος A1: A100 of Private Const FCheckRgAddress As String = "A1: A100" σενάριο στο δικό σας εύρος που θέλετε να αποτρέψετε τους ειδικούς χαρακτήρες.

3. Στη συνέχεια, αποθηκεύστε και κλείστε αυτόν τον κωδικό και τώρα, όταν εισαγάγετε τιμές κειμένου με ορισμένους ειδικούς χαρακτήρες στην περιοχή A1: A100, η ​​τιμή σας θα διαγραφεί ταυτόχρονα και μπορείτε να λάβετε το ακόλουθο προειδοποιητικό μήνυμα.

doc-prevent-χαρακτήρες-1


Αποτρέψτε την είσοδο ειδικών χαρακτήρων με το Kutools για Excel

Στην πραγματικότητα, αν έχετε Kutools για Excel - ένα εύχρηστο και πολυλειτουργικό εργαλείο, μπορείτε γρήγορα να αποτρέψετε την πληκτρολόγηση ειδικών χαρακτήρων σε μια επιλογή με αυτό Αποτροπή πληκτρολόγησης χρησιμότητα με έναν έλεγχο.

Kutools για Excel, με περισσότερα από 300 εύχρηστες λειτουργίες, διευκολύνει τις εργασίες σας. 

Μετά την εγκατάσταση Kutools για Excel, κάντε τα παρακάτω :(Δωρεάν λήψη Kutools για Excel τώρα!)

1. Επιλέξτε μια επιλογή που θέλετε να αποτρέψετε την πληκτρολόγηση ειδικών χαρακτήρων και κάντε κλικ στο Kutools > Αποτροπή πληκτρολόγησης > Αποτροπή πληκτρολόγησης. Δείτε το στιγμιότυπο οθόνης:
doc αποτρέψτε τους χαρακτήρες 10

2. Στο Αποτροπή πληκτρολόγησης διάλογος, ελέγξτε Αποτροπή τύπου σε ειδικούς χαρακτήρες επιλογή. Δείτε το στιγμιότυπο οθόνης:
doc αποτρέψτε τους χαρακτήρες 7

3. κλικ Okκαι εμφανίζεται ένα παράθυρο διαλόγου για να σας υπενθυμίσει ότι θα καταργήσει την επικύρωση δεδομένων εάν εφαρμόσει αυτό το βοηθητικό πρόγραμμα και κάντε κλικ Ναι για να μεταβείτε στον επόμενο διάλογο, θα σας υπενθυμίσει ότι το βοηθητικό πρόγραμμα έχει λειτουργήσει στην ενότητα. δείτε το στιγμιότυπο οθόνης:
doc αποτρέψτε τους χαρακτήρες 8

4. κλικ OK για να κλείσετε το παράθυρο διαλόγου και από τώρα και στο εξής, ένα προειδοποιητικό παράθυρο εμφανίζεται όταν προσπαθείτε να εισαγάγετε έναν ειδικό χαρακτήρα στην επιλογή.
doc αποτρέψτε τους χαρακτήρες 9

Υπόδειξη.Εάν θέλετε να σταματήσετε να πληκτρολογείτε διπλές τιμές σε μια στήλη, δοκιμάστε να χρησιμοποιήσετε το Kutools για Excel Αποτροπή διπλότυπου όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης. Είναι πλήρης λειτουργία χωρίς περιορισμό σε 30 ημέρες, κάντε λήψη και κάντε μια δωρεάν δοκιμή τώρα.

doc αποτρέψτε την αναπαραγωγή doc kutools αποτρέπει την πληκτρολόγηση 2


Σχετικά άρθρα:

Πώς να αποτρέψετε την εισαγωγή τιμών με κενά στο Excel;

Πώς να αποτρέψετε διπλές καταχωρήσεις σε μια στήλη στο Excel;

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

kte καρτέλα 201905


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (12)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Pessoal, segue formul em portugês com a quantidade de caracteres limitada a 7:

=E(ÉNÚM(SOMARPRODUTO(LOCALIZAR(EXT.TEXTO(A1;LIN(INDIRETO("1:"&NÚM.CARACT(A1)));1);"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ ")));NÚM.CARACT(A1)<8)
This comment was minimized by the moderator on the site
Excelente solucion. como agregas las comillas (") para que sean admitidas?
This comment was minimized by the moderator on the site
Hello herber,

Glad to help. Using the first method, you can use this formula in data validation:
=ISNUMBER(SUMPRODUCT(SEARCH(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),"0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"&CHAR(34))))

The CHAR function takes the ASCII value and returns the corresponding character value. The ASCII value for a double quote is 34. So a double quote will be allowed. Please have a try.

Sincerely,
Mandy
This comment was minimized by the moderator on the site
How to repeat this in other columns?
This comment was minimized by the moderator on the site
When I use your VBA code in excel 2013 it will open up debug option and freezes
This comment was minimized by the moderator on the site
Hi, WilY, if it pops out a dialog as below screenshot shown, just click Yes then OK to enable the code. This issue appears in Excel 2016, too.
This comment was minimized by the moderator on the site
What if i need to prevent in a single cell typing certain characters in combination with length of the text?

For example, i want to prevent the text to be between 5-16 caharacters in comination with certain character prevention? Any advice?
This comment was minimized by the moderator on the site
Maybe you can try the Data Validation function to limit the text length. See screenshot:
This comment was minimized by the moderator on the site
The solution with Data Validation is almost perfect. But I'm able to put "*" character the such protected field. Any advice? Many thanks Pavel
This comment was minimized by the moderator on the site
Instead of SEARCH function try using FIND: =ISNUMBER(SUMPRODUCT(FIND(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),"0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ")))
This comment was minimized by the moderator on the site
how to set length limit ? i mean if i want to set only 12 character or number
This comment was minimized by the moderator on the site
Hello, raj,
To solve your problem, please apply the below formula:
=AND(ISNUMBER(SUMPRODUCT(FIND(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1),"0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"))),LEN(A1)=12)


Please have a try, hope it can help you!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations