Λειτουργίες συμβολοσειράς 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, μπορούμε επίσης να τα χρησιμοποιήσουμε για να παίξουμε με τα δεδομένα.

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

# 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. Ρίξτε μια ματιά στη σύνταξη της συνάρτησης ΑΡΙΣΤΕΡΑ.

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

Κώδικας:

Sub 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η .

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

ενδιαφέροντα άρθρα...