Αυτό το σεμινάριο θα δείξει πώς να χρησιμοποιήσετε τη λειτουργία Left VBA.
Αριστερή συνάρτηση
Η συνάρτηση VBA Left επιστρέφει τους πρώτους n χαρακτήρες από μια συμβολοσειρά.
VBA Αριστερή συνάρτηση n Πρώτοι χαρακτήρες
Η συνάρτηση VBA Left επιστρέφει τους πρώτους n χαρακτήρες από μια συμβολοσειρά:
123456 | Sub LeftExample_1 ()MsgBox Αριστερά ("ABCDEFGHI", 4) "Αποτέλεσμα είναι:" ABCD "MsgBox Αριστερά ("ABCDEFGHI", 2) "Αποτέλεσμα είναι:" AB "MsgBox Αριστερά ("ABCDEFGHI", 1) "Αποτέλεσμα είναι:" A "MsgBox Αριστερά ("ABCDEFGHI", 100) "Το αποτέλεσμα είναι:" ABCDEFGHI "Τέλος υπο |
VBA Αριστερή συνάρτηση n Πρώτοι χαρακτήρες σε μια μεταβλητή
Όπως φαίνεται παραπάνω, μπορείτε να ορίσετε μια συμβολοσειρά απλά εισάγοντας κείμενο που περιβάλλεται από εισαγωγικά. Αλλά η συνάρτηση LEFT θα λειτουργεί επίσης με μεταβλητές συμβολοσειράς. Αυτά τα παραδείγματα θα εξάγουν τους πρώτους n χαρακτήρες από μια μεταβλητή συμβολοσειράς.
1234567891011 | Sub LeftExample_2 ()Dim StrEx As String 'Ορίστε μια μεταβλητή συμβολοσειράςStrEx = "ABCDEFGHI"MsgBox Αριστερά (StrEx, 4) 'Αποτέλεσμα είναι: "ABCD"MsgBox Αριστερά (StrEx, 2) 'Αποτέλεσμα είναι: "AB"MsgBox Αριστερά (StrEx, 1) 'Αποτέλεσμα είναι: "A"MsgBox Αριστερά (StrEx, 100) 'Αποτέλεσμα είναι: "ABCDEFGHI"Τέλος υπο |
VBA Left Function n First Characters in a Cell
Οι συμβολοσειρές μπορούν να οριστούν σε κώδικα VBA, αλλά μπορείτε επίσης να χρησιμοποιήσετε τιμές από κελιά. Διαβάστε την τιμή ενός κελιού, κρατήστε την σε μια μεταβλητή συμβολοσειράς και εξαγάγετε n πρώτους χαρακτήρες από αυτήν την τιμή κελιού φύλλου εργασίας.
12345678910111213 | Sub LeftExample_3 ()Dim StrEx As String 'Ορίστε μια μεταβλητή συμβολοσειράς«Διαβάστε την τιμή του κελιού A1 στο φύλλο εργασίας Sheet1StrEx = ThisWorkbook.Worksheets ("Sheet1"). Range ("A1"). Value"Για αυτό το παράδειγμα, η τιμή του κελιού Α1 είναι" A bCDEFGHI "MsgBox Αριστερά (StrEx, 4) 'Αποτέλεσμα είναι: "ABCD"MsgBox Αριστερά (StrEx, 2) 'Αποτέλεσμα είναι: "AB"MsgBox Αριστερά (StrEx, 1) 'Αποτέλεσμα είναι: "A"MsgBox Αριστερά (StrEx, 100) 'Αποτέλεσμα είναι: "ABCDEFGHI"Τέλος υπο |
VBA Left Function Trim off the Last Letter
Για να αφαιρέσετε γράμματα από το τέλος μιας συμβολοσειράς, χρησιμοποιήστε τη συνάρτηση LEFT μαζί με τη συνάρτηση LEN.
Η συνάρτηση VBA LEN μετρά τον αριθμό των χαρακτήρων σε μια συμβολοσειρά:
1 | Len (StrEx) |
Συνδυάζοντας τις συναρτήσεις, μπορούμε να αφαιρέσουμε έναν ορισμένο αριθμό χαρακτήρων από το τέλος της συμβολοσειράς:
123456789 | Sub LeftExample_4 ()Dim StrEx As String 'Ορίστε μια μεταβλητή συμβολοσειράςStrEx = "ABCDEF"MsgBox Αριστερά (StrEx, Len (StrEx)) 'Αποτέλεσμα είναι: "ABCDEF"MsgBox Αριστερά (StrEx, Len (StrEx) - 1) 'Αποτέλεσμα είναι: "ABCDE"MsgBox Αριστερά (StrEx, Len (StrEx) - 2) 'Αποτέλεσμα είναι: "ABCD"Τέλος υπο |
VBA Αριστερά για εξαγωγή ονόματος
Για να εξαγάγετε το πρώτο όνομα από μια συμβολοσειρά με ένα πλήρες όνομα, χρησιμοποιήστε την αριστερή συνάρτηση μαζί με τη συνάρτηση Instr.
Η συνάρτηση VBA Instr αναζητά μια υπο -συμβολοσειρά μέσα σε μια συμβολοσειρά και επιστρέφει τον αριθμό θέσης της υπο -συμβολοσειράς.
1 | InStr (StrEx, "") |
Συνδυάζοντας τις συναρτήσεις, μπορούμε να εξαγάγουμε την πρώτη λέξη από μια φράση:
12345678910111213141516171819 | Sub LeftExample_5 ()Dim StrEx As String 'Ορίστε μια μεταβλητή συμβολοσειράςStrEx = "Alexander Graham Bell"MsgBox Αριστερά (StrEx, InStr (StrEx, ""))'Αποτέλεσμα είναι: "Αλέξανδρος" (προσέξτε τον χώρο στο τέλος)MsgBox Αριστερά (StrEx, InStr (StrEx, "") - 1)'Αποτέλεσμα είναι: "Alexander" (ΔΕΝ υπάρχει χώρος στο τέλος)StrEx = "Λεονάρντο ντα Βίντσι"MsgBox InStr (StrEx, "")'Αποτέλεσμα είναι: 9 επειδή υπάρχει χώρος στη θέση 9MsgBox Αριστερά (StrEx, InStr (StrEx, "") - 1)Το αποτέλεσμα είναι: "Leonardo"Τέλος υπο |