Γνωρίζουμε πώς να μετατρέπουμε πεζά κείμενα σε κεφαλαία στο φύλλο εργασίας, αλλά πώς μπορούμε να μετατρέψουμε πεζά σε κεφαλαία χρησιμοποιώντας το VBA; Ενώ αυτοματοποιείτε τη διαδικασία, ίσως χρειαστεί να μετατρέψετε το κείμενο στο φύλλο σε κεφαλαία.
Στο φύλλο εργασίας, χρησιμοποιούμε τη συνάρτηση UPPER για πεζά σε κεφαλαία. Στο VBA, έχουμε παρόμοια λειτουργία. Το όνομα είναι η συνάρτηση είναι UCase. Το UCase σημαίνει UpperCase.
Σύνταξη της συνάρτησης UCase:
= UCase (Σειρά)
Εδώσειράμπορεί να είναι μια συμβολοσειρά σκληρού κώδικα ή μια αναφορά στη συμβολοσειρά.
Έτσι, τώρα που γνωρίζουμε για τη συνάρτηση που μπορεί να χρησιμοποιηθεί για την αλλαγή πεζών γραμμάτων σε κεφαλαία συμβολοσειρά, ας τη χρησιμοποιήσουμε σε ένα πρακτικό παράδειγμα.
Μετατρέψτε όλο το κείμενο σε ένα φύλλο σε κεφαλαία
Εδώ έχουμε μια απλή εργασία για να μετατρέψουμε όλο το κείμενο ενός δεδομένου φύλλου σε ένα βιβλίο εργασίας σε κεφαλαία. μεγάλο
Για να λάβετε τον κωδικό για τη μετατροπή κειμένου σε πεζά γράμματα. πρέπει να ακολουθήσουμε τα παρακάτω βήματα για να ξεκινήσει ο επεξεργαστής VB
- Κάντε κλικ στην καρτέλα Προγραμματιστής
- Από την ομάδα κωδικών, επιλέξτε Visual Basic
Αντιγράψτε τον παρακάτω κώδικα στη λειτουργική μονάδα φύλλου εργασίας (όχι μια κανονική ενότητα).
Sub UpperCaseCode1 ()
Application.ScreenUpdating = Λάθος
Dim Rng As Range
Dim c As Range
Στο Σφάλμα Συνέχιση Επόμενο
Ορισμός Rng = Cells.SpecialCells (xlCellTypeConstants, 2)
Για κάθε γ In Rng
c. Value = UCase (c. Value)
Επόμενο γ
Application.ScreenUpdating = True
Τέλος υπο
Πώς λειτουργεί;
Ο παραπάνω κωδικός είναι γραμμένος στην ενότητα sheet1. Ο παραπάνω κώδικας θα μετατρέψει όλο το κείμενο στο φύλλο 1 σε κεφαλαία.
Οι κύριες γραμμές στον παραπάνω κώδικα είναι:
Ορισμός Rng = Cells.SpecialCells (xlCellTypeConstants, 2)
Για κάθε γ In Rng
c. Value = UCase (c. Value)
Επόμενο γ
Εδώ χρησιμοποιούμε τη συνάρτηση SpecialCells της κλάσης Cells και περνάμε τα ορίσματα xlCellTypeConstants. Επιστρέφει μια απαρίθμηση κελιών και εύρους που περιέχουν σταθερές.
Στη συνέχεια, χρησιμοποιούμε τον βρόχο for για να επαναλάβουμε κάθε κελί κατά την απαρίθμηση. Στη συνέχεια, αλλάζουμε αυτήν την τιμή κελιού χρησιμοποιώντας τη συνάρτηση UCase.
Εδώ η δήλωσηc. Value = UCase (c. Value) ενημερώνει τις τιμές σε κάθε κελί με κεφαλαίο κείμενο.
Παράδειγμα 2: Μετατροπή κειμένου της στήλης Α σε κεφαλαία.
Σε αυτό το παράδειγμα, έχουμε το καθήκον να μετατρέψουμε μόνο τη στήλη κειμένου Α. Μπορεί να θέλετε να το κάνετε αυτό όταν συγκεκριμένες στήλες περιέχουν ειδικό κείμενο που πρέπει να είναι μόνο με κεφαλαία γράμματα.
Sub UpperCaseCode2 () Application.ScreenUpdating = Λάθος
Dim cell As Range
Για κάθε κελί σε εύρος ("$ A $ 1:" & Range ("$ A $ 1"). SpecialCells (xlLastCell). Διεύθυνση)
Αν Len (κελί)> 0 Τότε κελί = UCase (κελί)
Επόμενο κελί
Application.ScreenUpdating = True
Τέλος υπο
Ο κώδικας είναι σχεδόν ο ίδιος με το προηγούμενο παράδειγμα. Η μόνη αλλαγή που έχουμε είναι αυτές οι γραμμές:
Για κάθε κελί σε εύρος ("$ A $ 1:" & Range ("$ A $ 1"). SpecialCells (xlLastCell). Διεύθυνση)
Αν Len (κελί)> 0 Τότε κελί = UCase (κελί)
Επόμενο κελί
Εδώ δημιουργούμε ένα δυναμικό εύρος χρησιμοποιώντας τη γραμμή Εύρος ("$ A $ 1:" & Range ("$ A $ 1"). SpecialCells (xlLastCell). Διεύθυνση)Το Αυτή η γραμμή δημιουργεί ένα εύρος ξεκινώντας από το κελί Α1 έως το τελευταίο κελί που περιέχει οποιαδήποτε τιμή στη στήλη Α.
Στη συνέχεια επαναλαμβάνουμε κάθε κελί και το ενημερώνουμε με κεφαλαίες συμβολοσειρές.
Μπορείτε να κατεβάσετε το αρχείο παρακάτω.
Λήψη - VBA για τη μετατροπή κειμένου από κάτω σε κεφαλαία - xlsm
Λοιπόν, ναι, με αυτόν τον τρόπο μπορείτε να ενημερώσετε πεζά κείμενα σε κεφαλαία. Ελπίζω να ήμουν αρκετά επεξηγηματικός. Εάν έχετε αμφιβολίες σχετικά με αυτό το άρθρο ή οποιοδήποτε άλλο ερώτημα σχετικό με VBA. Ρωτήστε με στην παρακάτω ενότητα σχολίων.
Πώς να χρησιμοποιήσετε τη συνάρτηση TRIM στο Excel: Η συνάρτηση TRIM χρησιμοποιείται για την περικοπή συμβολοσειρών και τον καθαρισμό τυχόν κενών ή κεντρικών χώρων από συμβολοσειρά. Αυτό μας βοηθάει πολύ στη διαδικασία καθαρισμού των δεδομένων.
Πώς να χρησιμοποιήσετε τη συνάρτηση CLEAN στο Excel: Η λειτουργία Clean χρησιμοποιείται για τον καθαρισμό μη εκτυπώσιμων χαρακτήρων από τη συμβολοσειρά. Αυτή η λειτουργία χρησιμοποιείται κυρίως με τη λειτουργία TRIM για τον καθαρισμό εισαγόμενων ξένων δεδομένων.
Αντικατάσταση κειμένου από το τέλος μιας συμβολοσειράς ξεκινώντας από τη μεταβλητή θέση: Για να αντικαταστήσουμε το κείμενο από το τέλος της συμβολοσειράς, χρησιμοποιούμε τη συνάρτηση REPLACE. Η συνάρτηση REPLACE χρησιμοποιεί τη θέση του κειμένου στη συμβολοσειρά για να το αντικαταστήσει.
Πώς να ελέγξετε εάν μια συμβολοσειρά περιέχει ένα από τα πολλά κείμενα στο Excel: Για να βρούμε έλεγχο εάν μια συμβολοσειρά περιέχει οποιοδήποτε από πολλά κείμενα, χρησιμοποιούμε αυτόν τον τύπο. Χρησιμοποιούμε τη συνάρτηση SUM για να συνοψίσουμε όλες τις αντιστοιχίσεις και στη συνέχεια να εκτελέσουμε μια λογική για να ελέγξουμε εάν η συμβολοσειρά περιέχει κάποια από τις πολλαπλές συμβολοσειρές.
Μετρήστε κελιά που περιέχουν συγκεκριμένο κείμενο: Μια απλή συνάρτηση COUNTIF θα κάνει το μαγικό. Για να μετρήσουμε τον αριθμό πολλών κελιών που περιέχουν μια δεδομένη συμβολοσειρά χρησιμοποιούμε τον τελεστή μπαλαντέρ με τη συνάρτηση COUNTIF.
Συνάρτηση Excel REPLACE vs SUBSTITUTE: Οι συναρτήσεις ΑΝΤΙΚΑΤΑΣΤΑΣΗ και ΑΝΤΙΚΑΤΑΣΤΑΣΗ είναι οι πιο παρεξηγημένες συναρτήσεις. Για να βρούμε και να αντικαταστήσουμε ένα δεδομένο κείμενο χρησιμοποιούμε τη συνάρτηση SUBSTITUTE. Όπου το REPLACE χρησιμοποιείται για την αντικατάσταση ενός αριθμού χαρακτήρων σε συμβολοσειρά…
Δημοφιλή άρθρα:
50 συντομεύσεις Excel για να αυξήσετε την παραγωγικότητά σας | Γίνετε πιο γρήγοροι στην εργασία σας. Αυτές οι 50 συντομεύσεις θα σας κάνουν να εργάζεστε ακόμη πιο γρήγορα στο Excel.
Πώς να χρησιμοποιήσετε τη συνάρτηση Excel VLOOKUP| Αυτή είναι μια από τις πιο δημοφιλείς και δημοφιλείς λειτουργίες του excel που χρησιμοποιείται για την αναζήτηση τιμών από διαφορετικά εύρη και φύλλα.
Πώς να χρησιμοποιήσετε το Προέχω Λειτουργία COUNTIF| Μετρήστε τιμές με συνθήκες χρησιμοποιώντας αυτήν την εκπληκτική συνάρτηση. Δεν χρειάζεται να φιλτράρετε τα δεδομένα σας για να μετρήσετε συγκεκριμένες τιμές. Η λειτουργία Countif είναι απαραίτητη για την προετοιμασία του ταμπλό σας.
Πώς να χρησιμοποιήσετε τη συνάρτηση SUMIF στο Excel | Αυτή είναι μια άλλη βασική λειτουργία του ταμπλό. Αυτό σας βοηθά να συνοψίσετε τιμές υπό συγκεκριμένες συνθήκες.