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

Πίνακας περιεχομένων

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

Η συνάρτηση 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 'In this case my data started from second cell and ends at 6th. 'Based on your data change the numbers OurValue = ActiveSheet.Cells(k, 1).Value 'This will extract first 10 characters i.e. Date portion ActiveSheet.Cells(k, 2).Value = Left(Trim(OurValue), 10) 'This will extract teh remarks portion ActiveSheet.Cells(k, 3).Value = Mid(Trim(OurValue), 11, Len(Trim(OurValue)) - 10) Next End Sub

When we run this code manually or through the F5 key, we will get the result like the below.

Example #2

Now I will show you how to use VBA Length of string as a support function to extract the last name of the full name with the RIGHT & Instr function.

For the demonstration, look at the below data.

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

Κώδικας:

Sub 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