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

Πώς να αναγκάσετε τη συμβολοσειρά κειμένου σε κεφαλαία / πεζά / σωστή περίπτωση στο Excel;

Στο Excel, όταν εισαγάγετε κάποια γράμματα ή λέξεις στα κελιά, θέλετε να αναγκάσετε τις συμβολοσειρές κειμένου να είναι κεφαλαία, παρόλο που εισαγάγατε τα πεζά ή σωστά γράμματα και αντίστροφα Οι περισσότεροι από εμάς μπορεί να λάβουν υπόψη τη δυνατότητα επικύρωσης δεδομένων στο Excel, με αυτήν τη λειτουργία, θα λάβουμε μια προειδοποίηση όταν δεν πληκτρολογούμε τη σωστή περίπτωση του κειμένου. Σε αυτό το άρθρο, θα παρουσιάσω μερικούς ενδιαφέροντες τρόπους για να αναγκάσω το κείμενο σε κεφαλαία, πεζά ή σε σωστή περίπτωση όπως χρειάζεστε.

Αναγκάστε τις συμβολοσειρές κειμένου σε κεφαλαία / πεζά / σωστή περίπτωση με την επικύρωση δεδομένων

Αναγκάστε τις συμβολοσειρές κειμένου σε κεφαλαία / πεζά / κεφαλαία γράμματα με κωδικό VBA

Αλλαγή κειμένου σε UPPERCASE / πεζά / Σωστή θήκη με Kutools για Excel καλή ιδέα3


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

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

doc-force-κεφαλαία-1

2. Στην επικύρωση δεδομένων διαλόγου, κάτω από το ρυθμίσεις καρτέλα, κάντε κλικ στο Επιτρέψτε αναπτυσσόμενη λίστα και επιλέξτε Εξατομικευμένο επιλογή, στη συνέχεια στο Τύπος πλαίσιο κειμένου, εισαγάγετε αυτόν τον τύπο = ΑΚΡΙΒΕΙΑ (ΑΝΩ (A1), A1), (A1 σημαίνει μια στήλη που θα εφαρμόσετε αυτήν τη δυνατότητα, μπορείτε να την αλλάξετε ανάλογα με τις ανάγκες σας), δείτε το στιγμιότυπο οθόνης:

doc-force-κεφαλαία-1

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

doc-force-κεφαλαία-1

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

doc-force-κεφαλαία-1

Σημείωση:

Εάν πρέπει να αναγκάσετε τις συμβολοσειρές κειμένου να είναι πεζά ή σωστά, εφαρμόστε τους ακόλουθους τύπους στο επικύρωση δεδομένων στο βήμα 2.

Δύναμη προς πεζά: = ΑΚΡΙΒΕΙΑ (ΚΑΤΩ (A1), A1);

Force to proper case: = ΑΚΡΙΒΕΙΑ (PROPER (A1), A1)


Με τον ακόλουθο κώδικα VBA, όταν εισαγάγετε τις πεζές λέξεις σε ένα κελί, το πεζικό κείμενο θα αλλάξει αυτόματα στα κεφαλαία γράμματα.

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

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

Κωδικός VBA: Επιβολή συμβολοσειράς κειμένου σε κεφαλαία

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140603
Target.Value = VBA.UCase(Target.Value)
End Sub

doc-force-κεφαλαία-1

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

:

1. Αυτός ο κωδικός εφαρμόζεται σε ολόκληρο το φύλλο εργασίας.

2. Εάν δεν μπορείτε να βρείτε το PΤο παράθυρο του Explorer Explorer στο παράθυρο, μπορείτε να κάνετε κλικ Δες > Εξερεύνηση έργου για να το ανοίξετε.

3. Για να επιβάλλετε τις λέξεις με πεζά ή σωστά γράμματα, μπορείτε να εφαρμόσετε τον ακόλουθο κωδικό VBA: (Η διαδικασία είναι ίδια με τα παραπάνω)

Κωδικός VBA: Επιβολή συμβολοσειράς κειμένου σε πεζά

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140603
Target.Value = VBA.LCase(Target.Value)
End Sub

Κωδικός VBA: Επιβολή συμβολοσειράς κειμένου σε σωστή περίπτωση

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140603
Target.Value = Application.WorksheetFunction.Proper(Target.Value)
End Sub

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

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

Μετά το δωρεάν εγκατάσταση Kutools για Excel, κάντε τα παρακάτω:

1. Επιλέξτε τα κείμενα που θέλετε να αλλάξετε πεζά και κάντε κλικ Kutools > Κείμενο > Αλλαγή περίπτωσης. Δείτε το στιγμιότυπο οθόνης:
Περίπτωση αλλαγής εγγράφων 6

2. Στο Αλλαγή περίπτωσης διαλόγου, ελέγξτε την επιλογή λειτουργίας όπως χρειάζεστε και μπορείτε να κάνετε προεπισκόπηση του αποτελέσματος στο Προβολή τζάμι. Δείτε το στιγμιότυπο οθόνης:
Περίπτωση αλλαγής εγγράφων 2

3. κλικ Ok or Εφαρμογή και τα κείμενα έχουν αλλάξει υπόθεση.

 Αλλαγή σε UPPERCASE  Αλλαγή σε σωστή περίπτωση  Αλλαγή σε περίπτωση καταδίκης
 Περίπτωση αλλαγής εγγράφων 3  Περίπτωση αλλαγής εγγράφων 4 Περίπτωση αλλαγής εγγράφων 5 

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

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

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

Περιγραφή


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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Please suggest modifications in the VBA code to force the text strings to change to the desired format (Upper/Lower/Proper case) in selected/specified cells only rather than changing the Case of the text strings in the entire worksheet.
This comment was minimized by the moderator on the site
Hello, DS,
To apply the code to a specified range instead of entire worksheet, please apply the following code:
VBA code: Force text string to uppercase
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim SpecifiedRange As Range
    Set SpecifiedRange = Me.Range("A1:A10")
    If Not Intersect(Target, SpecifiedRange) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = VBA.UCase(Target.Value)
        Application.EnableEvents = True
    End If
End Sub


VBA code: Force text string to lowercase
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim SpecifiedRange As Range
    Set SpecifiedRange = Me.Range("A1:A10")
    If Not Intersect(Target, SpecifiedRange) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = VBA.LCase(Target.Value)
        Application.EnableEvents = True
    End If
End Sub


VBA code: Force text string to propercase
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim SpecifiedRange As Range
    Set SpecifiedRange = Me.Range("A1:A10")
    If Not Intersect(Target, SpecifiedRange) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = Application.Proper(Target.Value)
        Application.EnableEvents = True
    End If
End Sub


Please have a try, thank you!
This comment was minimized by the moderator on the site
Use: On Error Resume Next

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140603
On Error Resume Next
Target.Value = Application.WorksheetFunction.Proper(Target.Value)
End Sub
This comment was minimized by the moderator on the site
muchas gracias, sirvio enormemente estos codigos
This comment was minimized by the moderator on the site
This worked for me, however if you went to delete the contents of the cell then a "runtime error '13': type mismatch" came up

Any ideas?
This comment was minimized by the moderator on the site
i have the same problem. if you know how to deal with it please tell me!
This comment was minimized by the moderator on the site
Hello, which method you use will come up the errors?
This comment was minimized by the moderator on the site
Like your VBA solution, but how could I limit it to a single column and format other columns differently, e.g., columns A and C force uppercase, column B force proper case?
This comment was minimized by the moderator on the site
I do not know which VBA can handle your job (some columns in uppercase, some in proper case), but the data validation can solve it, why do not use it?
This comment was minimized by the moderator on the site
thanks for the macro to convert all entries to capital letters, but is there something i need to do to stop the macro from crashing excel every fe minutes? Appreciate the help!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations