Λειτουργία VBA LEN | Πώς να χρησιμοποιήσετε το LEN για να βρείτε το μήκος της συμβολοσειράς στο Excel;

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

Λειτουργία VBA LEN

Η συνάρτηση VBA LEN επιστρέφει το "μήκος της συμβολοσειράς", δηλαδή επιστρέφει πόσους χαρακτήρες υπάρχουν στην παρεχόμενη τιμή. Από όλες τις συναρτήσεις συμβολοσειράς στο VBA, το "LEN" είναι η πιο μη χρησιμοποιούμενη συνάρτηση. Έχω δει τη λειτουργία "VBA LEN" να χρησιμοποιείται ως λειτουργία υποστήριξης για άλλες λειτουργίες συμβολοσειράς, όπως οι λειτουργίες VBA MID και η λειτουργία VBA RIGHT.

Πώς βρίσκετε το μήκος της συμβολοσειράς ή της τιμής;

Για παράδειγμα, αν εσείς η πρόταση "Γεια σας παιδιά, Καλημέρα !!!" και αν θέλετε να βρείτε τον αριθμό των χαρακτήρων σε αυτόν, πώς το βρίσκετε; Σε αυτό το άρθρο, θα σας δείξουμε τη λειτουργία "VBA LEN".

Τύπος της λειτουργίας VBA LEN

Η συνάρτηση LEN έχει μόνο μία σύνταξη, δηλαδή την έκφραση.

Μια έκφραση δεν είναι παρά την αξία που προσπαθούμε να δοκιμάσουμε.

Για παράδειγμα, ο Len ("Καλό") θα επιστρέψει 4.

Παραδείγματα

Ακολουθούν τα παραδείγματα της λειτουργίας VBA Length of String.

Παράδειγμα # 1

Το μήκος μιας λειτουργίας VBA String είναι πολύ απλό στη χρήση. Για παράδειγμα, δείτε τον παρακάτω κώδικα VBA.

Κώδικας:

 Υπο LEN_ Παράδειγμα () Dim Total_Length As String Total_Length = Len ("Excel VBA") MsgBox Total_Length End Sub 

Στην παραπάνω μεταβλητή κώδικα είναι "Total_Length".

Dim Total_Length as String

Για αυτήν τη μεταβλητή, έχουμε αντιστοιχίσει την τιμή μέσω της συνάρτησης VBA LEN.

Total_Length = Len ("Excel VBA")

Για τη συνάρτηση LEN, έχουμε εκχωρήσει την τιμή ως "Excel VBA".

Total_Length = Len ("Excel VBA")

Στη συνέχεια, δείχνουμε το αποτέλεσμα στο πλαίσιο μηνυμάτων VBA.

Συνολικό Μήκος Box MsgBox

Όταν εκτελώ αυτόν τον κωδικό χρησιμοποιώντας το πλήκτρο F5 ή χειροκίνητα, θα έχουμε 9 ως αποτέλεσμα, επειδή ο χώρος είναι επίσης χαρακτήρας.

VBA LEN ως λειτουργία υποστήριξης

Παράδειγμα # 1

Ο σκοπός της λειτουργίας LEN χρησιμοποιείται κυρίως με άλλες λειτουργίες. Έχω χρησιμοποιήσει αυτή τη λειτουργία με τις λειτουργίες RIGHT & Instr.

Για παράδειγμα, δείτε τα παρακάτω δείγματα δεδομένων.

Από τα παραπάνω δεδομένα, πρέπει να εξαγάγουμε την ημερομηνία ξεχωριστά και τις παρατηρήσεις ξεχωριστά. Αντιγράψτε τα παραπάνω δεδομένα στο φύλλο excel και επικολλήστε το στο Cell A1.

Για να εξαγάγουμε αυτά τα στοιχεία, πρέπει να χρησιμοποιήσουμε τη συνάρτηση LEN με άλλες συναρτήσεις συμβολοσειράς. Ο παρακάτω κώδικας θα κάνει τη δουλειά για εμάς.

Κώδικας:

Sub LEN_Example1 () Dim OurValue As String Dim k As Long For k = 2 to 6 'Σε αυτήν την περίπτωση τα δεδομένα μου ξεκίνησαν από το δεύτερο κελί και τελειώνουν στην 6η. "Με βάση τα δεδομένα σας αλλάξτε τους αριθμούς OurValue = ActiveSheet.Cells (k, 1). Value" Αυτό θα εξαγάγει τους πρώτους 10 χαρακτήρες, δηλαδή το τμήμα ημερομηνίας ActiveSheet.Cells (k, 2). Value = Left (Περικοπή (OurValue), 10) «Αυτό θα εξαγάγει το τμήμα παρατηρήσεων ActiveSheet.Cells (k, 3). Value = Mid (Trim (OurValue), 11, Len (Trim (OurValue)) - 10) Next End Sub

Όταν εκτελούμε αυτόν τον κώδικα χειροκίνητα ή μέσω του πλήκτρου F5, θα έχουμε το αποτέλεσμα όπως το παρακάτω.

Παράδειγμα # 2

Τώρα θα σας δείξω πώς να χρησιμοποιήσετε το Μήκος συμβολοσειράς VBA ως λειτουργία υποστήριξης για να εξαγάγετε το επώνυμο του πλήρους ονόματος με τη συνάρτηση RIGHT & Instr.

Για την επίδειξη δείτε τα παρακάτω δεδομένα.

Από την παραπάνω λίστα, πρέπει να εξαγάγουμε το επώνυμο από το πλήρες όνομα. Ο παρακάτω κώδικας θα εξάγει το επώνυμο. Το LEN χρησιμοποιείται ως λειτουργία υποστήριξης εδώ.

Κώδικας:

 Υπο LEN_Example2 () Dim FullName As String Dim k Όσο για k = 2 έως 8 FullName = ActiveSheet.Cells (k, 1). Value 'Αυτό θα εξαγάγει το επώνυμο ActiveSheet.Cells (k, 2). Value = Right (FullName , Len (FullName) - InStr (1, FullName, "")) 'Το LEN βρίσκει ολόκληρο τον αριθμό χαρακτήρων' Ο Instr βρίσκει διαστημικό χαρακτήρα 'LEN - Το Inst θα δώσει συνολικούς χαρακτήρες από το δεξί Sub End Next Sub 

Εκτελέστε τον κωδικό χρησιμοποιώντας το πλήκτρο F5 ή μπορείτε να εκτελέσετε χειροκίνητα και να δείτε το αποτέλεσμα.

Μπορείτε να κατεβάσετε αυτό το μήκος συμβολοσειράς Excel VBA εδώ - Πρότυπο λειτουργίας VBA LEN