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

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

Excel VBA αριστερά

Excel VBA αριστερά

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

Ορισμένες από τις λειτουργίες excel είναι ενσωματωμένες και στο VBA. Από όλες τις πολλές λειτουργίες κειμένου, το VBA LEFT είναι μία από αυτές τις συναρτήσεις που χρησιμοποιούμε αρκετά συχνά από άλλους τύπους.

Εάν γνωρίζετε τη λειτουργία LEFT excel, τότε η συνάρτηση VBA LEFT είναι ακριβώς η ίδια. Μπορεί να εξαγάγει τους χαρακτήρες από την αριστερή πλευρά της συμβολοσειράς ή την τιμή που δίνει ο χρήστης.

Η σύνταξη της συνάρτησης LEFT είναι ακριβώς η ίδια με τη συνάρτηση φύλλου εργασίας.

Έχει δύο επιχειρήματα.

String: Αυτό δεν είναι παρά η τιμή ή η αναφορά κελιού. Από αυτήν την τιμή, ψάχνουμε να κόψουμε τους χαρακτήρες.
Μήκος: Πόσους χαρακτήρες θέλετε να εξαγάγετε από τη συμβολοσειρά που δώσατε. Αυτή θα πρέπει να είναι μια αριθμητική τιμή.

Πώς να χρησιμοποιήσετε το Excel VBA Left Function;

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

Ας υποθέσουμε ότι έχετε τη λέξη "Sachin Tendulkar" και θέλετε μόνο τους πρώτους 6 χαρακτήρες από αυτήν τη λέξη. Θα δείξουμε πώς να εξαγάγουμε από αριστερά χρησιμοποιώντας τη συνάρτηση LEFT στο VBA.

Βήμα 1: Δημιουργήστε ένα όνομα μακροεντολής και ορίστε μεταβλητή ως συμβολοσειρά.

Κώδικας:

Υπο Left_Example1 () Dim MyValue ως String End Sub

Βήμα 2: Τώρα ορίστε μια τιμή σε αυτήν τη μεταβλητή

Κώδικας:

Υπο Left_Example1 () Dim MyValue As String MyValue = End Sub

Βήμα 3: Ανοίξτε τη λειτουργία ΑΡΙΣΤΕΡΑ.

Κώδικας:

Sub Left_Example1 () Dim MyValue As String MyValue = Left (End Sub

Βήμα 4: Το πρώτο επιχείρημα είναι να πούμε ποια είναι η συμβολοσειρά ή η τιμή. Η αξία μας εδώ είναι «Sachin Tendulkar».

Κώδικας:

Υπο Left_Example1 () Dim MyValue As String MyValue = Left ("Sachin Tendulkar", End Sub

Βήμα 5: Το μήκος δεν είναι παρά πόσους χαρακτήρες χρειαζόμαστε από τα αριστερά. Χρειαζόμαστε 6 χαρακτήρες.

Κώδικας:

Υπο Left_Example1 () Dim MyValue As String MyValue = Left ("Sachin Tendulkar", 6) End Sub

Βήμα 6: Εμφάνιση της τιμής στο VBA MsgBox.

Κώδικας:

Υπο Left_Example1 () Dim MyValue As String MyValue = Left ("Sachin Tendulkar", 6) MsgBox MyValue End Sub

Βήμα 7: Εκτελέστε τη μακροεντολή χρησιμοποιώντας το πλήκτρο F5 ή μη αυτόματα μέσω μιας επιλογής εκτέλεσης για να λάβετε το αποτέλεσμα σε ένα πλαίσιο μηνύματος.

Παραγωγή:

Αντί να εμφανίζεται το αποτέλεσμα σε ένα πλαίσιο μηνυμάτων, μπορούμε να αποθηκεύσουμε αυτό το αποτέλεσμα σε ένα από τα κελιά στο φύλλο εργασίας excel Πρέπει απλώς να προσθέσουμε την αναφορά κελιού και την τιμή μεταβλητής.

Κώδικας:

Υπο Left_Example1 () Dim MyValue As String MyValue = Left ("Sachin Tendulkar", 6) Range ("A1"). Value = MyValue End Sub

Τώρα, εάν εκτελέσετε αυτόν τον κωδικό, θα λάβουμε την τιμή στο κελί A1.

Παράδειγμα # 2 - ΑΡΙΣΤΕΡΑ με άλλες λειτουργίες

Στην παραπάνω περίπτωση, παρέχουμε άμεσα το μήκος των χαρακτήρων που χρειαζόμαστε από την αριστερή κατεύθυνση, αλλά αυτό είναι πιο κατάλληλο για μία ή δύο τιμές. Ας υποθέσουμε παρακάτω είναι η λίστα των τιμών που έχετε στο φύλλο excel σας.

In each case, first name characters are different from one to another; we cannot directly specify the number of characters we needed from each name.

This is where the beauty of other functions will come into the picture. In order to supply the number of characters dynamically, we can use the “VBA Instr” function.

In the above set of names, we need all the characters from the left until we reach space character. So Instr function can return those many characters.

Step 1: Similarly, start an excel macro name and define a variable as a string.

Code:

Sub Left_Example2() Dim FirstName As String End Sub

Step 2: Assign the value to the variable through the LEFT function.

Code:

Sub Left_Example2() Dim FirstName As String FirstName = Left( End Sub

Step 3: Here, we need to refer the cell to get the value from the cells. So write the code as CELLE (2,1).Value.

Code:

Sub Left_Example2() Dim FirstName As String FirstName = Left(Cells(2,1).Value, End Sub

Step 4: The next thing is how many characters we need. After applying the LEFT function, don’t enter the length of the characters manually. Apply the Instr function.

Code:

Sub Left_Example2() Dim FirstName As String FirstName = Left(Cells(2, 1).Value, InStr(1, Cells(2, 1).Value, " ")) End Sub

Step 5: Store this result in the B2 cell. So the code is CELLS (2,2).value = FirstName

Code:

Sub Left_Example2() Dim FirstName As String FirstName = Left(Cells(2, 1).Value, InStr(1, Cells(2, 1).Value, " ")) Cells(2, 2).Value = FirstName End Sub

Βήμα 6: Εκτελέστε αυτόν τον κωδικό χειροκίνητα, ή μέσω του F5, θα λάβουμε το όνομα.

Έχουμε το πρώτο όνομα για το ένα όνομα, αλλά έχουμε και πολλά άλλα ονόματα. Δεν μπορούμε να γράψουμε 100 γραμμές κώδικα για εξαγωγή, τότε πώς εξάγουμε;

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

Κώδικας:

Sub Left_Example2 () Dim FirstName As String Dim i As Integer For i = 2 to 9 FirstName = Left (Cells (i, 1). Value, InStr (1, Cells (i, 1). Value, "") - 1) Κελιά (i, 2). Value = FirstName Next i End Sub