Το VBA έχει πολλές λειτουργίες συμβολοσειράς που θα σας επιτρέψουν να χειριστείτε και να εργαστείτε με κείμενο και συμβολοσειρές στον κώδικά σας. Σε αυτό το σεμινάριο, θα καλύψουμε συναρτήσεις που θα σας επιτρέψουν να εξαγάγετε υποσύμβολα από συμβολοσειρές, να αφαιρέσετε κενά από συμβολοσειρές, να μετατρέψετε την περίπτωση ενός κειμένου ή συμβολοσειράς, να συγκρίνετε συμβολοσειρές και άλλες χρήσιμες συναρτήσεις συμβολοσειρών.
Εξαγωγή μιας υποχορδής
Η συνάρτηση VBA Left String
Η αριστερή συνάρτηση VBA σάς επιτρέπει να εξαγάγετε μια υπο -συμβολοσειρά από ένα κείμενο ή συμβολοσειρά ξεκινώντας από την αριστερή πλευρά. Η σύνταξη της συνάρτησης VBA Left String είναι:
Αριστερά (String, Num_of_characters) όπου:
- String - Το αρχικό κείμενο.
- Αριθμός_χαρακτήρων - Ένας ακέραιος αριθμός που καθορίζει τον αριθμό των χαρακτήρων που θα εξαχθούν από το αρχικό κείμενο ξεκινώντας από την αρχή.
Ο ακόλουθος κώδικας σάς δείχνει πώς να χρησιμοποιήσετε τη Λειτουργία Αριστερής συμβολοσειράς για να εξαγάγετε τους τέσσερις πρώτους χαρακτήρες της δεδομένης συμβολοσειράς:
| 1234567891011 | Sub UsingTheLeftStringFunction ()Dim valueOne As StringDim valueTwo As StringvalueOne = "AutomateExcel"valueTwo = Αριστερά (valueOne, 4)MsgBox valueTwoΤέλος υπο |
Το αποτέλεσμα είναι:
Η αριστερή συνάρτηση έχει εξαγάγει τα τέσσερα πρώτα γράμματα του AutomateExcel, τα οποία είναι αυτόματα.
Η συνάρτηση VBA Right String
Η δεξιά συνάρτηση VBA σάς επιτρέπει να εξαγάγετε μια υπο -συμβολοσειρά από ένα κείμενο ή συμβολοσειρά ξεκινώντας από τη δεξιά πλευρά. Η σύνταξη της συνάρτησης δεξιάς συμβολοσειράς VBA είναι:
Δεξιά (String, Num_of_characters) όπου:
- String - Το αρχικό κείμενο.
- Αριθμός_χαρακτήρων - Ένας ακέραιος αριθμός που καθορίζει τον αριθμό των χαρακτήρων που θα εξαχθούν από το αρχικό κείμενο ξεκινώντας από το τέλος.
Ο ακόλουθος κώδικας σάς δείχνει πώς να χρησιμοποιήσετε τη συνάρτηση Right String για να εξαγάγετε τους τέσσερις τελευταίους χαρακτήρες της συμβολοσειράς:
| 1234567891011 | Sub UsingTheRightStringFunction ()Dim valueOne As StringDim valueTwo As StringvalueOne = "AutomateExcel"valueTwo = Δεξιά (valueOne, 4)MsgBox valueTwoΤέλος υπο |
Το αποτέλεσμα είναι:
Η σωστή συνάρτηση έχει εξαγάγει τα τέσσερα τελευταία γράμματα του AutomateExcel, τα οποία είναι xcel.
Η λειτουργία VBA Mid String
Η μέση συνάρτηση VBA σάς επιτρέπει να εξαγάγετε μια υπο -συμβολοσειρά από ένα κείμενο ή συμβολοσειρά, ξεκινώντας από οποιαδήποτε θέση μέσα στη συμβολοσειρά που καθορίζετε. Η σύνταξη της συνάρτησης VBA Mid String είναι:
Μεσαίο (String, Starting_position, [Num_of_characters]) όπου:
- String - Το αρχικό κείμενο.
- Starting_position - Η θέση στο αρχικό κείμενο, από όπου θα αρχίσει να εξάγεται η συνάρτηση.
- Num_of_characters (Προαιρετικός) - Ένας ακέραιος αριθμός που καθορίζει τον αριθμό των χαρακτήρων που θα εξαχθούν από το αρχικό κείμενο ξεκινώντας από την αρχική θέση. Εάν είναι κενό, η συνάρτηση MID θα επιστρέψει όλους τους χαρακτήρες από την αρχική θέση.
Ο ακόλουθος κώδικας σάς δείχνει πώς μπορείτε να χρησιμοποιήσετε τη λειτουργία Mid String για εξαγωγή τεσσάρων χαρακτήρων, ξεκινώντας από τη δεύτερη θέση ή χαρακτήρα της συμβολοσειράς:
| 1234567891011 | Sub UsingTheMidStringFunction ()Dim valueOne As StringDim valueTwo As StringvalueOne = "AutomateExcel"valueTwo = Mid (valueOne, 2, 4)MsgBox valueTwoΤέλος υπο |
Το αποτέλεσμα εξάγεται σε ένα msgbox:
Η λειτουργία Mid έχει εξαγάγει τα τέσσερα γράμματα του AutomateExcel ξεκινώντας από τον δεύτερο χαρακτήρα/θέση/γράμμα που είναι utom.
Εύρεση της θέσης μιας υποχορδής
Η συνάρτηση συμβολοσειράς VBA Instr
Η συνάρτηση VBA Instr επιστρέφει την αρχική θέση μιας υπο -συμβολοσειράς σε μια άλλη συμβολοσειρά. Αυτή η λειτουργία έχει διάκριση πεζών-κεφαλαίων. Η σύνταξη της συνάρτησης συμβολοσειράς VBA Instr είναι:
Instr ([Start], String, Substring, [Compare]) όπου:
- Έναρξη (Προαιρετικός) - Αυτό καθορίζει την αρχική θέση για τη λειτουργία προς αναζήτηση. Εάν είναι κενό, χρησιμοποιείται η προεπιλεγμένη τιμή 1.
- String - Το αρχικό κείμενο.
- Υποχορδές- Η υποκατηγορία στο αρχικό κείμενο στην οποία θέλετε να βρείτε τη θέση.
- Συγκρίνω (Προαιρετικός)- Αυτό καθορίζει τον τύπο σύγκρισης που πρέπει να γίνει. Εάν είναι κενό, χρησιμοποιείται δυαδική σύγκριση.
-vbBinaryCompare - Δυαδική σύγκριση (τα κεφαλαία και πεζά θεωρούνται διαφορετικά)
-vbTextCompare - Σύγκριση κειμένου (τα κεφαλαία και πεζά θεωρούνται ως τα ίδια)
-vbDatabaseCompare - Σύγκριση βάσεων δεδομένων (Αυτή η επιλογή χρησιμοποιείται μόνο στη Microsoft Access και είναι μια σύγκριση με βάση τη βάση δεδομένων)
Ο ακόλουθος κώδικας σάς δείχνει πώς να χρησιμοποιήσετε τη συνάρτηση συμβολοσειράς Instr για να προσδιορίσετε την πρώτη εμφάνιση της υποχορδής "Th" εντός της κύριας συμβολοσειράς:
| 123456789101112 | Sub UsingTheInstrStringFunction ()Dim valueOne As StringDim positionofSubstring As IntegervalueOne = "Αυτό είναι το κείμενο"positionofSubstring = InStr (1, valueOne, "Th")Εντοπισμός σφαλμάτων. Θέση εκτύπωσηςΤέλος υπο |
Το αποτέλεσμα (εξάγεται στο άμεσο παράθυρο) είναι:
Η συνάρτηση Instr επέστρεψε τη θέση της πρώτης εμφάνισης του υποτομέα "Th" που είναι 1. Σημειώστε ότι αυτή η συνάρτηση περιλαμβάνει τα κενά στην καταμέτρηση.
Η συνάρτηση συμβολοσειράς VBA InstrRev
Η συνάρτηση VBA InstrRev επιστρέφει την αρχική θέση μιας υποσύμβασης σε μια άλλη συμβολοσειρά, αλλά αρχίζει να μετρά τη θέση, από το τέλος της συμβολοσειράς. Αυτή η λειτουργία έχει διάκριση πεζών-κεφαλαίων. Η σύνταξη της συνάρτησης συμβολοσειράς VBA InstrRev είναι:
InstrRev (String, Substring, [Start], [Compare]) όπου:
- String - Το αρχικό κείμενο.
- Υποχορδές- Το υποσύστημα στο αρχικό κείμενο στο οποίο θέλετε να βρείτε τη θέση.
- Έναρξη (Προαιρετικός) - Αυτό καθορίζει τη θέση από την οποία ξεκινά η αναζήτηση. Εάν είναι κενό, η λειτουργία ξεκινά την αναζήτηση από τον τελευταίο χαρακτήρα.
- Συγκρίνω (Προαιρετικός)- Αυτό καθορίζει τον τύπο σύγκρισης που πρέπει να γίνει. Εάν είναι κενό, χρησιμοποιείται δυαδική σύγκριση.
-vbBinaryCompare - Δυαδική σύγκριση (τα κεφαλαία και τα πεζά θεωρούνται διαφορετικά)
-vbTextCompare - Σύγκριση κειμένου (τα κεφαλαία και πεζά θεωρούνται ως τα ίδια)
-vbDatabaseCompare - Σύγκριση βάσεων δεδομένων (Αυτή η επιλογή χρησιμοποιείται μόνο στη Microsoft Access και είναι μια σύγκριση με βάση τη βάση δεδομένων)
Ο ακόλουθος κώδικας σάς δείχνει πώς να χρησιμοποιήσετε τη συνάρτηση συμβολοσειράς InstrRev για να προσδιορίσετε την πρώτη εμφάνιση της υποχορδής "Th" εντός της κύριας συμβολοσειράς, ξεκινώντας από το τέλος της συμβολοσειράς:
| 1234567891011 | Sub UsingTheInstrRevStringFunction ()Dim valueOne As StringDim positionofSubstring As IntegervalueOne = "Αυτό είναι το κείμενο"positionofSubstring = InStrRev (valueOne, "Th")Εντοπισμός σφαλμάτων. Θέση εκτύπωσηςΤέλος υπο |
Το αποτέλεσμα εξάγεται στο άμεσο παράθυρο:
Η συνάρτηση InstrRev επέστρεψε τη θέση της πρώτης εμφάνισης του υποτομέα "Th", αλλά ξεκινώντας την καταμέτρηση από το τέλος που είναι 9. Σημειώστε ότι αυτή η συνάρτηση περιλαμβάνει τα κενά στην καταμέτρηση.
Αφαίρεση χώρων από μια συμβολοσειρά
Η συνάρτηση συμβολοσειράς VBA LTrim
Η λειτουργία VBA LTrim αφαιρεί όλους τους κεντρικούς χώρους από ένα κείμενο ή συμβολοσειρά. Η σύνταξη της συνάρτησης συμβολοσειράς VBA LTrim είναι:
LTrim (String) όπου:
- String - Το αρχικό κείμενο.
Ο παρακάτω κώδικας σάς δείχνει πώς να χρησιμοποιήσετε τη συνάρτηση VBA LTrim για να αφαιρέσετε τα κενά διαστήματα στη δεδομένη συμβολοσειρά:
| 123456789101112 | Sub UsingTheLTrimStringFunction ()Dim valueOne As StringDim valueTwo As StringvalueOne = "Αυτή είναι η διεύθυνση του ιστότοπου https://easyexcel.net/excel/"valueTwo = LTrim (valueOne)MsgBox valueOneMsgBox valueTwoΤέλος υπο |
Τα αποτελέσματα είναι:
Η συνάρτηση LTrim έχει αφαιρέσει τους κορυφαίους χώρους για το valueetwo, που εμφανίζεται στο δεύτερο πλαίσιο μηνυμάτων.
Η συνάρτηση συμβολοσειράς VBA RTrim
Η λειτουργία VBA RTrim αφαιρεί όλα τα κενά διαστήματα από ένα κείμενο ή συμβολοσειρά. Η σύνταξη της συνάρτησης συμβολοσειράς VBA RTrim είναι:
RTrim (String) όπου:
- String - Το αρχικό κείμενο.
Ο παρακάτω κώδικας σάς δείχνει πώς να χρησιμοποιήσετε τη συνάρτηση VBA RTrim για να αφαιρέσετε τα κενά διαστήματα στη δεδομένη συμβολοσειρά:
| 123456789101112 | Sub UsingTheRTrimStringFunction ()Dim valueOne As StringDim valueTwo As StringvalueOne = "Αυτή είναι η διεύθυνση του ιστότοπου https://easyexcel.net/excel/"valueTwo = RTrim (valueOne)MsgBox valueOneMsgBox valueTwoΤέλος υπο |
Τα αποτελέσματα που παραδόθηκαν είναι:
Η συνάρτηση RTrim έχει καταργήσει τους πίσω χώρους για το valueetwo, το οποίο εμφανίζεται στο δεύτερο πλαίσιο μηνυμάτων.
Η συνάρτηση συμβολοσειράς VBA Trim
Η συνάρτηση περικοπής VBA αφαιρεί όλα τα κενά και τα κενά από ένα κείμενο ή συμβολοσειρά. Η σύνταξη της συνάρτησης συμβολοσειράς VBA Trim είναι:
Περικοπή (συμβολοσειρά) όπου:
- String - Το αρχικό κείμενο.
Ο ακόλουθος κώδικας σάς δείχνει πώς να χρησιμοποιήσετε τη συνάρτηση περικοπής VBA για να αφαιρέσετε τα κενά και τα κενά διαστήματα στη δεδομένη συμβολοσειρά:
| 123456789101112 | Sub UsingTheTrimStringFunction ()Dim valueOne As StringDim valueTwo As StringvalueOne = "Αυτή είναι η διεύθυνση του ιστότοπου https://easyexcel.net/excel/"valueTwo = Περικοπή (valueOne)MsgBox valueOneMsgBox valueTwoΤέλος υπο |
Τα αποτελέσματα είναι:
Η συνάρτηση Trim έχει αφαιρέσει τους κεντρικούς και πίσω χώρους για το valueetwo, το οποίο εμφανίζεται στο δεύτερο πλαίσιο μηνυμάτων.
Λειτουργίες θήκης VBA
Η συνάρτηση συμβολοσειράς VBA LCase
Η συνάρτηση VBA LCase μετατρέπει γράμματα σε κείμενο ή συμβολοσειρά σε πεζά. Η σύνταξη της συνάρτησης συμβολοσειράς VBA LCase είναι:
LCase (String) όπου:
- String - Το αρχικό κείμενο.
Ο ακόλουθος κώδικας σάς δείχνει πώς να χρησιμοποιήσετε τη συνάρτηση συμβολοσειράς LCase για να μετατρέψετε όλα τα γράμματα στη δεδομένη συμβολοσειρά σε πεζά:
| 1234567891011 | Sub UsingTheLCaseStringFunction ()Dim valueOne As StringDim valueTwo As StringvalueOne = "ΑΥΤΟ ΕΙΝΑΙ ΤΟ ΠΡΟDΟΝ"valueTwo = LCase (valueOne)MsgBox valueTwoΤέλος υπο |
Το αποτέλεσμα είναι:
Η συνάρτηση LCase έχει μετατρέψει όλα τα γράμματα της συμβολοσειράς σε πεζά.
Η συνάρτηση συμβολοσειράς VBA UCase
Η συνάρτηση VBA UCase μετατρέπει γράμματα σε κείμενο ή συμβολοσειρά σε κεφαλαία. Η σύνταξη της συνάρτησης συμβολοσειράς VBA UCase είναι:
UCase (String) όπου:
- String - Το αρχικό κείμενο.
Ο ακόλουθος κώδικας σάς δείχνει πώς να χρησιμοποιήσετε τη συνάρτηση συμβολοσειράς UCase για να μετατρέψετε όλα τα γράμματα στη δεδομένη συμβολοσειρά σε κεφαλαία:
| 1234567891011 | Sub UsingTheUCaseStringFunction ()Dim valueOne As StringDim valueTwo As StringvalueOne = "αυτό είναι το προϊόν"valueTwo = UCase (valueOne)MsgBox valueTwoΤέλος υπο |
Το αποτέλεσμα είναι:
Η συνάρτηση UCase έχει μετατρέψει όλα τα γράμματα της συμβολοσειράς σε πεζά.
Η συνάρτηση VBA StrConv
Η συνάρτηση VBA StrConv μπορεί να μετατρέψει γράμματα σε ένα κείμενο ή συμβολοσειρά σε κεφαλαία, πεζά, κατάλληλα πεζά ή μονόκωδους ανάλογα με τον τύπο μετατροπής που καθορίζετε. Η σύνταξη της συνάρτησης συμβολοσειράς VBA StrConv είναι:
StrConv (συμβολοσειρά, μετατροπή, [LCID]) όπου:
- String - Το αρχικό κείμενο.
- Μετατροπή - Ο τύπος μετατροπής που θέλετε.
- [LCID] (Προαιρετικός) -Μια προαιρετική παράμετρος που καθορίζει το LocaleID. Εάν είναι κενό, χρησιμοποιείται το σύστημα LocaleID.
Ο παρακάτω κώδικας σάς δείχνει πώς να χρησιμοποιήσετε τη συνάρτηση συμβολοσειράς StrConv για να μετατρέψετε τη συμβολοσειρά σε κατάλληλη περίπτωση:
| 1234567891011 | Sub UsingTheStrConvStringFunction ()Dim valueOne As StringDim valueTwo As StringvalueOne = "αυτό είναι το προϊόν"valueTwo = StrConv (valueOne, vbProperCase)MsgBox valueTwoΤέλος υπο |
Το αποτέλεσμα είναι:
Καθορίζετε τον τύπο μετατροπής που θέλετε να πραγματοποιήσετε χρησιμοποιώντας την παράμετρο μετατροπής:
- Το vbLowerCase μετατρέπει όλα τα γράμματα στο κείμενο σε πεζά.
- Το vbUpperCase μετατρέπει όλα τα γράμματα του κειμένου σε κεφαλαία.
- Το vbProperCase μετατρέπει το πρώτο γράμμα κάθε λέξης στο κείμενο σε κεφαλαία, ενώ όλα τα άλλα γράμματα διατηρούνται ως πεζά.
- Το vbUnicode μετατρέπει μια συμβολοσειρά σε unicode.
- Το vbFromUnicode μετατρέπει μια συμβολοσειρά από unicode στην προεπιλεγμένη σελίδα κώδικα του συστήματος.
Σύγκριση συμβολοσειρών
Η λειτουργία VBA StrComp
Η συνάρτηση συμβολοσειράς VBA StrComp σάς επιτρέπει να συγκρίνετε δύο συμβολοσειρές. Η συνάρτηση επιστρέφει:
- 0 αν ταιριάζουν οι δύο χορδές
- -1 εάν η συμβολοσειρά 1 είναι μικρότερη από τη συμβολοσειρά 2
- 1 εάν η συμβολοσειρά 1 είναι μεγαλύτερη από τη συμβολοσειρά 2
- Μια μηδενική τιμή εάν οποιαδήποτε από τις συμβολοσειρές ήταν Null
Ο παρακάτω κώδικας σάς δείχνει πώς να χρησιμοποιήσετε τη συνάρτηση StrComp για να συγκρίνετε δύο συμβολοσειρές:
| 123456789101112 | Sub UsingTheStrCompStringFunction ()Dim valueOne As StringDim valueTwo As StringΑμυδρό αποτέλεσμα σύγκρισης ως ακέραιοςvalueOne = "AutomateExcel"valueTwo = "AutomateExcel"resultofComparison = StrComp (valueOne, valueTwo)Debug. Εκτύπωση αποτέλεσμα σύγκρισηςΤέλος υπο |
Το αποτέλεσμα είναι:
Η συνάρτηση StrComp βρήκε μια ακριβή αντιστοίχιση μεταξύ των δύο συμβολοσειρών και επέστρεψε 0.
Ο VBA Like Operator
Το VBA Like Operator σάς επιτρέπει να συγκρίνετε ένα κείμενο ή συμβολοσειρά με ένα μοτίβο και να δείτε αν υπάρχει αντιστοίχιση. Συνήθως θα χρησιμοποιούσατε το Like Operator σε συνδυασμό με μπαλαντέρ. Ο ακόλουθος κώδικας σάς δείχνει πώς να χρησιμοποιήσετε το Like Operator:
| 123456789101112 | Sub UsingTheLikeOperatorInVBA ()Dim valueOne As StringvalueOne = "Ας δούμε την έξοδο"Εάν έχει αξίαΈνα Like "*προβολή*" ΤότεMsgBox "Υπάρχει αντιστοίχιση, αυτή η συμβολοσειρά περιέχει τη λέξη προβολή"ΑλλούMsgBox "Δεν βρέθηκε αντιστοίχιση"Τέλος εανΤέλος υπο |
Το αποτέλεσμα είναι:
Οι μπαλαντέρ που μπορείτε να χρησιμοποιήσετε με το Like Operator για να βρείτε αντιστοιχίσεις μοτίβου περιλαμβάνουν:
- ; που ταιριάζει με έναν μόνο χαρακτήρα
- # που ταιριάζει με ένα μονοψήφιο
- * που ταιριάζει με μηδέν ή περισσότερους χαρακτήρες
Ο παρακάτω κώδικας σας δείχνει πώς θα χρησιμοποιούσατε το Like Operator και το; μπαλαντέρ για να ταιριάζει με ένα μοτίβο στον κωδικό σας:
| 123456789101112 | Sub UsingTheLikeOperatorWithAWildcardInVBA ()Dim valueOne As StringvalueOne = "The"Αν τιμήΈνα Like "?? e" ΤότεMsgBox "Υπάρχει ένα ταίρι, βρέθηκε ένα μοτίβο που ταιριάζει"ΑλλούMsgBox "Δεν βρέθηκε αντιστοίχιση"Τέλος εανΤέλος υπο |
Το αποτέλεσμα που δόθηκε είναι:
Άλλες χρήσιμες λειτουργίες συμβολοσειράς VBA
Η λειτουργία VBA Replace String
Η λειτουργία αντικατάστασης VBA αντικαθιστά ένα σύνολο χαρακτήρων σε μια συμβολοσειρά με ένα άλλο σύνολο χαρακτήρων. Η σύνταξη της συνάρτησης συμβολοσειράς αντικατάστασης VBA είναι:
Αντικατάσταση (συμβολοσειρά, εύρεση, αντικατάσταση, [έναρξη], [μέτρηση], [σύγκριση]) όπου:
- String - Το αρχικό κείμενο.
- Εύρεση - Το υποσύνολο για αναζήτηση στο αρχικό κείμενο.
- Αντικατάσταση - Το υπό συμβολοσειρά με το οποίο θα αντικατασταθεί η Εύρεση υποχορδής.
- Έναρξη (Προαιρετικός)- Η θέση για να ξεκινήσετε την αναζήτηση μέσα από το αρχικό κείμενο. Εάν είναι κενό, χρησιμοποιείται η τιμή 1 και η συνάρτηση ξεκινά από την πρώτη θέση χαρακτήρων.
- Μετρώ (Προαιρετικός)- Ο αριθμός των εμφανίσεων της υποσύμβασης Εύρεση στο αρχικό κείμενο προς αντικατάσταση. Εάν είναι κενό, αντικαθίστανται όλες οι εμφανίσεις του Find Subring.
- Συγκρίνω (Προαιρετικός)- Αυτό καθορίζει τον τύπο σύγκρισης που πρέπει να γίνει. Εάν είναι κενό, χρησιμοποιείται δυαδική σύγκριση.
-vbBinaryCompare - Δυαδική σύγκριση
-vbTextCompare - Σύγκριση κειμένου
-vbDatabaseCompare - Σύγκριση βάσεων δεδομένων (Αυτή η επιλογή χρησιμοποιείται μόνο στη Microsoft Access και είναι μια σύγκριση με βάση τη βάση δεδομένων.)
Ο παρακάτω κώδικας σάς δείχνει πώς να χρησιμοποιήσετε τη λειτουργία αντικατάστασης συμβολοσειράς:
| 1234567891011 | Sub UsingTheReplaceStringFunction ()Dim valueOne As StringDim valueTwo As StringvalueOne = "ProductABC"valueTwo = Αντικατάσταση (valueOne, "ABC", "XYZ")MsgBox valueTwoΤέλος υπο |
Το αποτέλεσμα είναι:
Η συνάρτηση Αντικατάσταση βρήκε το υποσύμβολο ABC στο ProductABC και το αντικατέστησε με το υποσύμβολο XYZ.
Η συνάρτηση VBA StrReverse
Η συνάρτηση VBA StrReverse αντιστρέφει τους χαρακτήρες σε ένα δεδομένο κείμενο ή συμβολοσειρά. Η σύνταξη της συνάρτησης συμβολοσειράς VBA StrReverse είναι:
StrReverse (String) όπου:
- String - Το αρχικό κείμενο.
Ο ακόλουθος κώδικας σάς δείχνει πώς να χρησιμοποιήσετε τη συνάρτηση VBA StrReverse για να αντιστρέψετε τους χαρακτήρες στη συμβολοσειρά Προϊόν:
| 1234567891011 | Sub UsingTheStrReverseStringFunction ()Dim valueOne As StringDim valueTwo As StringvalueOne = "Προϊόν"valueTwo = StrReverse (valueOne)MsgBox valueTwoΤέλος υπο |
Το αποτέλεσμα είναι:
Η λειτουργία VBA Len String
Η λειτουργία VBA Len επιστρέφει τον αριθμό των χαρακτήρων σε μια συμβολοσειρά κειμένου. Η σύνταξη της συνάρτησης συμβολοσειράς VBA Len είναι:
Len (String) όπου:
- String - Το αρχικό κείμενο.
Ο παρακάτω κώδικας σάς δείχνει πώς να χρησιμοποιήσετε τη συνάρτηση Len String για να καθορίσετε το μήκος της συμβολοσειράς AutomateExcel:
| 1234567891011 | Sub UsingTheLenFunction ()Dim valueOne As StringDim stringΜήκος ως ακέραιοςvalueOne = "AutomateExcel"stringLength = Len (valueOne)Debug.Print stringLengthΤέλος υπο |
Το αποτέλεσμα είναι:
Η συνάρτηση Len έχει μετρήσει όλους τους χαρακτήρες του κειμένου AutomateExcel, που αποτελείται από 13 γράμματα.
