Λειτουργίες συμβολοσειράς VBA | Λίστα κορυφαίων συναρτήσεων 6 συμβολοσειρών (παραδείγματα)

Λειτουργίες συμβολοσειράς Excel VBA

Οι λειτουργίες συμβολοσειράς VBA δεν αντικαθιστούν τη συμβολοσειρά, αλλά το αποτέλεσμα αυτών των λειτουργιών δημιουργεί τη νέα συμβολοσειρά. Υπάρχουν πολλές συναρτήσεις συμβολοσειράς στο VBA και όλες κατηγοριοποιούνται σε λειτουργίες συμβολοσειράς ή κειμένου, μερικές από τις σημαντικές συναρτήσεις είναι η ΑΡΙΣΤΕΡΑ συνάρτηση για να λάβετε την τιμή από αριστερά και η ΔΕΞΙΑ για να λάβετε την τιμή από δεξιά ή η συνάρτηση MID, η λειτουργία LEN και INSTR .

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

Είναι σημαντικό να έχουμε αρκετή γνώση για όλες αυτές τις λειτουργίες VBA σε αυτά ως μέρος του μεγάλου έργου.

Λίστα των κορυφαίων 6 λειτουργιών συμβολοσειράς στο VBA

  1. Λειτουργία LEN
  2. ΛΕΙΤΟΥΡΓΙΑ ΛΕΙΤΟΥΡΓΙΑ
  3. ΔΕΞΙΑ Λειτουργία
  4. Λειτουργία MID
  5. Λειτουργία TRIM
  6. Λειτουργία Instr

Ένα πράγμα που θα ήθελα να πω ότι «οι συναρτήσεις συμβολοσειράς VBA είναι συναρτήσεις κειμένου στο φύλλο εργασίας».

Πρέπει να έχετε ήδη χρησιμοποιήσει τις λειτουργίες LEN, LEFT, RIGHT, MID, SUBSTITUTE excel για αναπαραγωγή των δεδομένων. Και στο VBA μπορούμε να τα χρησιμοποιήσουμε για να παίξουμε τα δεδομένα.

Θα συζητήσουμε μερικές από τις σημαντικές λειτουργίες αυτού του άρθρου.

Μπορείτε να κάνετε λήψη αυτού του προτύπου VBA String Functions Excel εδώ - Πρότυπο VBA String Functions Excel

# 1 - Λειτουργία LEN

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

Ο παρακάτω κώδικας θα δείξει το παράδειγμα.

Κώδικας:

 Sub LEN_Example () Dim TotalCount as String TotalCount = Len ("Hello") MsgBox TotalCount End Sub 

Αυτό θα δείξει το αποτέλεσμα στο πλαίσιο μηνύματος ως 5.

# 2 - ΑΡΙΣΤΕΡΑ Λειτουργία

Για να εξαγάγουμε τους χαρακτήρες από την αριστερή πλευρά της συμβολοσειράς, πρέπει να χρησιμοποιήσουμε τη συνάρτηση VBA LEFT. Ρίξτε μια ματιά στη σύνταξη της συνάρτησης ΑΡΙΣΤΕΡΑ.

  • Η συμβολοσειρά είναι αυτή που προσπαθούμε να εξαγάγουμε.
  • Το μήκος δεν είναι τίποτα άλλο από πόσους χαρακτήρες χρειάζεστε από την αριστερή πλευρά της παρεχόμενης συμβολοσειράς .

Κώδικας:

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

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

# 3 - ΔΕΞΙΑ Λειτουργία

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

Η σύνταξη της συνάρτησης ΔΕΞΙΑ είναι ακριβώς η ίδια με τη συνάρτηση ΑΡΙΣΤΕΡΑ.

  • Η συμβολοσειρά είναι αυτή που προσπαθούμε να εξαγάγουμε.
  • Το μήκος δεν είναι τίποτα άλλο από πόσους χαρακτήρες χρειάζεστε από τη δεξιά πλευρά της παρεχόμενης συμβολοσειράς .

Κώδικας:

 Υπο RIGHT_Example () Dim LastName ως String LastName = Δεξιά ("Sachin Tendulkar", 9) MsgBox LastName End Sub 

Αυτό θα εξαγάγει 9 χαρακτήρες από τη συμβολοσειρά "Sachin Tendulkar". Έτσι το αποτέλεσμα θα έχει το επώνυμο, δηλαδή "Tendulkar".

# 4 - Λειτουργία MID

Όχι μόνο από την αριστερή και τη δεξιά πλευρά της συμβολοσειράς, αλλά και από τη μέση της συμβολοσειράς, μπορούμε επίσης να εξαγάγουμε τους χαρακτήρες. Ακολουθεί η σύνταξη της συνάρτησης VBA MID.

  • String to Search: Από ποια συμβολοσειρά χρειαζόμαστε τη μεσαία τιμή
  • Έναρξη θέσης: Ποιος είναι ο αρχικός αριθμός θέσης χαρακτήρα που θα εξαγάγετε;
  • Αριθμός χαρακτήρων προς εξαγωγή: Από την αρχική θέση πόσους χαρακτήρες θα εξαχθούν.

Για παράδειγμα, εάν το όνομα είναι "Sachin Ramesh Tendulkar" εδώ το μεσαίο όνομα είναι "Ramesh" σε αυτήν τη συμβολοσειρά η αρχική θέση του χαρακτήρα που θα εξαχθεί είναι 8 και χρειαζόμαστε 6 χαρακτήρες από την αρχική θέση. Ο παρακάτω κώδικας θα εξαγάγει τη μέση τιμή.

Κώδικας:

 Υπο MID_Example () Dim MiddleName As String MiddleName = Mid ("Sachin Ramesh Tendulkar", 8, 6) MsgBox MiddleName End Sub 

Αυτό θα εξαγάγει το "Ramesh" από τη μέση της συμβολοσειράς "Sachin Ramesh Tendulkar".

# 5 - Λειτουργία TRIM

Το TRIM είναι η λειτουργία καθαρισμού των δεδομένων. Θα εξαλείψει τους ανεπιθύμητους διαστημικούς χαρακτήρες από τη συμβολοσειρά. Ρίξτε μια ματιά στη σύνταξη της συνάρτησης TRIM.

Είναι ευθεία προς τα εμπρός ποια είναι η τιμή ή η συμβολοσειρά που θέλετε να κόψετε.

Για παράδειγμα, ας υποθέσουμε ότι έχετε τη συμβολοσειρά "Γεια σας πώς είστε;". Εδώ έχουμε περιττούς χαρακτήρες διαστήματος πριν από τη λέξη «Γεια», οπότε χρησιμοποιώντας το TRIM μπορούμε να το εξαλείψουμε.

Κώδικας:

 Sub TRIM_Example () Dim MyValue As String MyValue = Trim ("Hello How are you?") MsgBox MyValue End Sub 

Αυτό θα διαγράψει τους ανεπιθύμητους χαρακτήρες διαστήματος από την παρεχόμενη συμβολοσειρά.

Σημείωση: Το VBA TRIM διαφέρει ελαφρώς από τη λειτουργία φύλλου εργασίας. Για λεπτομερή εξήγηση αυτής της λειτουργίας VBA, ανατρέξτε στο άρθρο μας σχετικά με το "VBA TRIM"

Έχουμε επίσης λειτουργίες LTRIM και RTRIM στο VBA. Το LTRIM θα διαγράψει ανεπιθύμητα κενά από την αριστερή πλευρά της συμβολοσειράς και το RTRIM θα διαγράψει ανεπιθύμητα κενά από τη δεξιά πλευρά της συμβολοσειράς.

# 6 - Λειτουργία Instr

Η λειτουργία Instr είναι χρήσιμη για την εύρεση της θέσης του παρεχόμενου χαρακτήρα στη συμβολοσειρά. Η σύνταξη της συνάρτησης INSTR έχει ως εξής.

  • [Έναρξη] Από ποια θέση της παρεχόμενης συμβολοσειράς χρειαζόμαστε τη θέση.
  • [String1] Ποια είναι η συμβολοσειρά στην οποία αναφέρεται;
  • [String2] Ποιος είναι ο χαρακτήρας που ψάχνετε στο [String1].

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

Κώδικας:

 Sub INSTR_Example () Dim MyValue As String MyValue = InStr (1, "Recipe", "e") MsgBox MyValue End Sub 

Έτσι, από την πρώτη θέση του γράμματος "e" η θέση είναι 2.

Εάν θέλετε τη θέση της δεύτερης εμφάνισης του γράμματος «e» τότε πρέπει να χρησιμοποιήσετε το όρισμα Έναρξη ως 3.

Κώδικας:

 Sub INSTR_Example () Dim MyValue As String MyValue = InStr (3, "Recipe", "e") MsgBox MyValue End Sub 

Έτσι, σε αυτήν την περίπτωση, η θέση του γράμματος «e» μετά την πρώτη εμφάνιση είναι η 6η.

Αυτές είναι μερικές από τις σημαντικές συναρτήσεις συμβολοσειράς. Ελπίζω να το απολαύσατε.


$config[zx-auto] not found$config[zx-overlay] not found