Μετατρέψτε μικρά γράμματα σε κεφαλαία για ορισμένες στήλες

Πώς να μετατρέψετε μικρά γράμματα σε κεφαλαία γράμματα για λίγες στήλες χρησιμοποιώντας VBA στο Microsoft Excel

Σε αυτό το άρθρο θα μάθουμε πώς να μετατρέπουμε κείμενο σε κεφαλαία γράμματα σε συγκεκριμένες στήλες (όχι όλα τα κελιά) χρησιμοποιώντας τον κώδικα VBA.

Ερώτηση): Θέλω κώδικα που θα αντικαταστήσει το κείμενο που εισάγεται με μικρά γράμματα με κεφαλαία γράμματα σε ορισμένες στήλες (όχι όλες).

Πείτε ότι δεν θέλω να εκτελείται ο κώδικας στις στήλες 4, 6, 9, 12 και 13, δηλαδή εάν εισαχθεί κείμενο σε αυτές τις στήλες, τότε ο κώδικας δεν θα ενεργοποιηθεί.

Για να λάβετε τα κεφαλαία γράμματα καθώς πληκτρολογείτε μικρά γράμματα. πρέπει να ακολουθήσουμε τα παρακάτω βήματα για να ξεκινήσουμε τον επεξεργαστή VB

Κάντε κλικ στην καρτέλα Προγραμματιστής
Από την ομάδα κωδικών, επιλέξτε Visual Basic

Αντιγράψτε τον ακόλουθο κώδικα στη λειτουργική μονάδα φύλλου

Private Sub Worksheet_Change (ByVal Target As Excel.Range)

Αν Στόχος.Στήλη = 4 Tar Στόχος. Στήλη = 6 Tar Στόχος. Στήλη = 9 _

Or Στόχος.Στήλη = 12 Tar Στόχος.Στήλη = 13 Στη συνέχεια Έξοδος από Υπο

Στο Error GoTo ErrHandler

Application.EnableEvents = Λάθος

Target.Formula = UCase (Target.Formula)

ErrHandler:

Application.EnableEvents = True

Τέλος υπο

Ο κωδικός θα λειτουργεί στο φύλλο 1 μόνο όπως ο κωδικός έχει εισαχθεί στο φύλλο 1
Ο κώδικας θα αντικαταστήσει αυτόματα το μικρό γράμμα που πληκτρολογήθηκε κατά λάθος ή από άγνοια αμέσως με κεφαλαίο γράμμα σε όλες τις στήλες εκτός από 4, 6, 9, 12 και 13.

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