Λειτουργία Excel VBA LCase
Το LCase είναι μια ενσωματωμένη συνάρτηση στο vba που χρησιμοποιείται για τη μετατροπή μιας συμβολοσειράς εισόδου που παρέχεται σε αυτό με πεζά γράμματα, παίρνει ένα μόνο όρισμα που είναι η συμβολοσειρά ως είσοδο και η έξοδος που δημιουργείται από αυτήν τη συνάρτηση είναι μια συμβολοσειρά, το ένα πράγμα που πρέπει να διατηρηθεί στο μυαλό είναι ότι αυτή η συνάρτηση μετατρέπει όλη τη συνάρτηση σε πεζά και όχι μόνο έναν χαρακτήρα.
Πρέπει να έχετε δοκιμάσει την ίδια φόρμουλα (LOWER) με το excel στο VBA και δεν το έχετε βρει. Επειδή στο VBA, το πεζά ονομάζεται ελαφρώς διαφορετικό. Στο VBA, είναι με όνομα συντόμευσης, δηλαδή "LCASE". Εδώ το "L" σημαίνει "LOWER", οπότε ο τύπος είναι "LOWERCASE".
Σύνταξη
- String: δεν είναι τίποτα άλλο από την τιμή κειμένου που προσπαθούμε να μετατρέψουμε σε πεζά. Μπορούμε να παρέχουμε το κείμενο απευθείας στον τύπο, μπορεί να είναι μια αναφορά κελιού και μπορεί επίσης να γίνεται μέσω μεταβλητής.
Πώς να μετατρέψετε κείμενο σε πεζά στο VBA;
Παράδειγμα # 1
Ας προσπαθήσουμε να μετατρέψουμε την τιμή κειμένου "Hello Good Morning" σε πεζά χρησιμοποιώντας τη συνάρτηση LCASE.
Βήμα 1: Ξεκινήστε την υποδιαδικασία ονομάζοντας τη μακροεντολή excel.
Κώδικας:
Υπο LCase_Example1 () End Sub
Βήμα 2: Δηλώστε τη μεταβλητή k ως String.
Κώδικας:
Υπο LCase_Example1 () Dim k As String End Sub
Βήμα 3: Αντιστοιχίστε την τιμή στη μεταβλητή "k" εφαρμόζοντας τη συνάρτηση "LCASE".
Βήμα 4: Εδώ, η συμβολοσειρά είναι η επιθυμητή τιμή κειμένου που προσπαθούμε να μετατρέψουμε σε πεζά και η επιθυμητή τιμή συμβολοσειράς είναι "Γεια σας Καλημέρα".
Κώδικας:
Υπο LCase_Example1 () Dim k As String k = LCase ("Hello Good Morning") End Sub
Βήμα 5: Τώρα δείξτε το αποτέλεσμα της μεταβλητής "k" στο πλαίσιο μηνύματος.
Κώδικας:
Υπο LCase_Example1 () Dim k As String k = LCase ("Hello Good Morning") MsgBox k End Sub
Εντάξει, η κωδικοποίηση έγινε. Ας τρέξουμε τον κώδικα για να δούμε το αποτέλεσμα.
Έτσι, η LCase μετέτρεψε την τιμή κειμένου "Γεια σας Καλημέρα" σε "γεια σας καλημέρα" με την απλή τεχνική κωδικοποίησης.
Παράδειγμα # 2
Έχουμε δει πώς λειτουργεί η λειτουργία LCASE στο VBA. Στο παραπάνω παράδειγμα, παρέχουμε απευθείας την τιμή στον ίδιο τον τύπο. Τώρα θα δούμε πώς μπορούμε να χρησιμοποιήσουμε την τιμή αναφοράς κελιού στον τύπο.
Ας υποθέσουμε ότι έχετε τη λέξη "Γεια σας Καλημέρα" στο κελί Α1 όπως η παρακάτω εικόνα.
Βήμα 1: Θα μετατρέψουμε την τιμή κελιού A1 σε πεζά δείχνοντας το αποτέλεσμα στο κελί Range B1, οπότε ο κώδικας θα είναι Range ("B1"). Value =
Κώδικας:
Sub LCase_Example2 () Range ("B1"). Value End Sub
Βήμα 2: Στο κελί B1 μέσω της συνάρτησης LCASE, θα αποθηκεύσουμε το αποτέλεσμα, οπότε ανοίξτε τη συνάρτηση.
Βήμα 3: Σε αυτό το παράδειγμα, η τιμή συμβολοσειράς VBA είναι μια αναφορά κελιού και όχι μια άμεση τιμή. Δώστε λοιπόν την αναφορά κελιού ως Range ("A1").
Κώδικας:
Sub LCase_Example2 () Range ("B1"). Value = LCase (Range ("A1"). Value) End Sub
Λοιπόν, εντάξει, τελειώσαμε με το τμήμα κωδικοποίησης VBA. Εκτελέστε τον κωδικό και δείτε τη μαγεία στο κελί B1.
Παράδειγμα # 3
Η μετατροπή μιας μόνο τιμής κυψέλης ή μιας άμεσης τιμής δεν είναι η μεγαλύτερη πρόκληση. Όταν πρέπει να αντιμετωπίσουμε τον αριθμό τιμών «n» στο φύλλο εργασίας, τότε πρέπει να εφαρμόσουμε βρόχους για να βρούμε όλα τα κελιά και να τα μετατρέψουμε σε πεζά.
Ας υποθέσουμε παρακάτω είναι τα δεδομένα που έχετε σε ένα φύλλο εργασίας excel.
Εάν δεν γνωρίζετε βρόχους, τότε πρέπει να επιστρέψετε στα βασικά της κωδικοποίησης VBA. Ανατρέξτε στα άρθρα μας σχετικά με το "VBA Loops" για να έχετε αρκετές γνώσεις σχετικά με τους βρόχους. Ο παρακάτω κωδικός θα μετατρέψει τα παραπάνω ονόματα σε πεζά.
Κώδικας:
Sub LCase_Example3 () Dim k Όσο για k = 2 έως 8 Cells (k, 2). Value = LCase (Cells (k, 1). Value) Next k End Sub
Αυτό θα μετατρέψει όλες τις τιμές κειμένου από τη σειρά 2 σε σειρά 8 στη πεζά συνάρτηση.
Με βάση τα κελιά σας, μπορείτε να αυξήσετε το όριο του βρόχου από 8 σε οποιονδήποτε αριθμό τελευταίας σειράς των δεδομένων σας.
