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

Excel VBA αριστερά

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

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

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

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

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

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

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

Μπορείτε να κατεβάσετε αυτό το Πρότυπο Αριστεράς Λειτουργίας VBA εδώ - Πρότυπο Αριστεράς Λειτουργίας VBA

Παράδειγμα # 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: Ανοίξτε τη λειτουργία ΑΡΙΣΤΕΡΑ.

Κώδικας:

 Υπο 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 σας.

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

Αυτό είναι όπου η ομορφιά άλλων λειτουργιών θα έρθει στην εικόνα. Προκειμένου να παρέχουμε δυναμικά τον αριθμό χαρακτήρων, μπορούμε να χρησιμοποιήσουμε τη λειτουργία "VBA Instr".

Στο παραπάνω σύνολο ονομάτων, χρειαζόμαστε όλους τους χαρακτήρες από τα αριστερά μέχρι να φτάσουμε στο διαστημικό χαρακτήρα. Έτσι η συνάρτηση Instr μπορεί να επιστρέψει αυτούς τους πολλούς χαρακτήρες.

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

Κώδικας:

 Υπο Left_Example2 () Dim FirstName ως συμβολοσειρά End Sub 

Βήμα 2: Αντιστοιχίστε την τιμή στη μεταβλητή μέσω της συνάρτησης ΑΡΙΣΤΕΡΑ.

Κώδικας:

 Υπο Left_Example2 () Dim FirstName ως συμβολοσειρά FirstName = Left (End Sub 

Βήμα 3: Εδώ πρέπει να παραπέμψουμε το κελί για να πάρουμε την τιμή από τα κελιά. Γι 'αυτό γράψτε τον κωδικό ως CELLE (2,1). Αξία.

Κώδικας:

 Sub Left_Example2 () Dim FirstName As String FirstName = Left (Cells (2,1). Τιμή, End Sub 

Βήμα 4: Το επόμενο  είναι πόσους χαρακτήρες χρειαζόμαστε. Αφού εφαρμόσετε τη συνάρτηση LEFT μην εισαγάγετε το μήκος των χαρακτήρων χειροκίνητα, Εφαρμόστε τη συνάρτηση Instr.

Κώδικας:

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

Βήμα 5: Αποθηκεύστε αυτό το αποτέλεσμα στο κελί B2. Έτσι ο κωδικός είναι CELLS (2,2). Value = FirstName

Κώδικας:

 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 

Σημείωση: Η  συνάρτηση Instr επιστρέφει επίσης χαρακτήρα διαστήματος, επομένως πρέπει να μείνουμε 1 από το αποτέλεσμα Instr.

Εάν εκτελέσετε αυτόν τον κωδικό, θα λάβουμε τιμές πρώτου ονόματος.

Παραγωγή:

Πράγματα που πρέπει να θυμάστε

  • Το αριστερό μπορεί να εξαγάγει μόνο από αριστερά.
  • Η συνάρτηση VBA Instr βρίσκει τη θέση του παρεχόμενου χαρακτήρα στη συμβολοσειρά.