Λειτουργία VBA StrConv (Παραδείγματα) - Πώς να χρησιμοποιήσετε το StrConv;

Πίνακας περιεχομένων

Λειτουργία Excel VBA StrConv

Η συνάρτηση StrConv στο VBA κατηγοριοποιείται σε συναρτήσεις συμβολοσειράς που είναι συνάρτηση μετατροπής, η χρήση αυτής της συνάρτησης είναι ότι αλλάζει την περίπτωση της συμβολοσειράς με την είσοδο που παρέχεται από τον προγραμματιστή, τα επιχειρήματα αυτής της συνάρτησης είναι η συμβολοσειρά και η είσοδος για περίπτωση σαν 1 για να αλλάξετε τη συμβολοσειρά σε πεζά.

Το StrConv σημαίνει "String Conversion". Χρησιμοποιώντας αυτήν τη λειτουργία VBA, μπορούμε να μετατρέψουμε την παρεχόμενη συμβολοσειρά στην καθορισμένη μορφή. Ένα πράγμα που πρέπει να καταλάβετε εδώ είναι ότι μπορούμε να χρησιμοποιήσουμε αυτόν τον τύπο μόνο ως συνάρτηση VBA και όχι ως συνάρτηση φύλλου εργασίας του Excel. Σε αυτό το άρθρο, θα κάνουμε μια περιήγηση σε πλήρη λεπτομερή παραδείγματα του τύπου " VBA StrConv ".

Εντάξει, δείτε τη σύνταξη της συνάρτησης StrConv .

String: Αυτό δεν είναι παρά το κείμενο που προσπαθούμε να μετατρέψουμε.

Μετατροπή: Τι είδους μετατροπή πρέπει να κάνουμε. Έχουμε μια μεγάλη ποικιλία επιλογών εδώ παρακάτω είναι η λίστα των μετατροπών που μπορούμε να πραγματοποιήσουμε.

  • vbUpperCase ή 1: Αυτή η επιλογή μετατρέπει την παρεχόμενη τιμή κειμένου σε κεφαλαίο χαρακτήρα. Αυτό λειτουργεί παρόμοια με τη συνάρτηση UCASE. Για παράδειγμα, εάν παρέχετε τη λέξη "Excel", θα μετατραπεί σε "EXCEL".
  • vbLowerCase ή 2: Αυτή η επιλογή μετατρέπει την παρεχόμενη τιμή κειμένου σε πεζά γράμματα στο excel. Αυτό λειτουργεί παρόμοια με τη συνάρτηση LCASE. Για παράδειγμα, εάν παρέχετε τη λέξη "Excel", θα μετατραπεί σε "excel".
  • vbProperCase ή 3: Αυτή η επιλογή μετατρέπει την παρεχόμενη τιμή κειμένου στον χαρακτήρα ορθής θήκης. Κάθε πρώτος χαρακτήρας της λέξης θα μετατραπεί σε κεφαλαία και όλα τα υπόλοιπα γράμματα μετατρέπονται σε πεζά. Για παράδειγμα, εάν παρέχετε τη λέξη "excEL", θα μετατραπεί σε "Excel".
  • vbUniCode ή 64: Αυτή η επιλογή μετατρέπει τη συμβολοσειρά σε κώδικα Unicode.
  • vbFromUnicode ή 128: Αυτό μετατρέπει τη συμβολοσειρά Unicode στον προεπιλεγμένο κωδικό συστήματος.

Ακόμα κι αν έχουμε πολλές άλλες επιλογές με το όρισμα Μετατροπή παραπάνω, τρεις είναι αρκετά καλές για εμάς.

LCID: Αυτό είναι το τοπικό αναγνωριστικό. Από προεπιλογή, παίρνει το αναγνωριστικό συστήματος. Αυτό δεν θα χρησιμοποιεί το 99% του χρόνου.

Παραδείγματα συνάρτησης StrConv στο VBA

Παράδειγμα # 1

Τώρα ρίξτε μια ματιά στο παράδειγμα της μετατροπής της συμβολοσειράς σε UPPER CASE χαρακτήρα. Χρησιμοποιώ τη λέξη "Excel VBA" εδώ. Παρακάτω είναι ο κωδικός VBA.

Κώδικας:

Sub StrConv_Example1 () Dim TextValues ​​As String Dim Result as String TextValues ​​= "Excel vba" Result = StrConv (TextValues, vbUpperCase) MsgBox Αποτέλεσμα End Sub

Αυτό θα μετατρέψει τη συμβολοσειρά "Excel VBA" σε κεφαλαία.

Εκτελέστε αυτόν τον κωδικό χρησιμοποιώντας το πλήκτρο F5 ή χειροκίνητα και δείτε το αποτέλεσμα του ίδιου.

Παράδειγμα # 2

Τώρα ρίξτε μια ματιά στην ίδια συμβολοσειρά με πεζά μετατροπή. Παρακάτω είναι ο κωδικός.

Κώδικας:

Sub StrConv_Example2 () Dim TextValues ​​As String Dim Result as String TextValues ​​= "Excel vba" Result = StrConv (TextValues, vbLowerCase) MsgBox Αποτέλεσμα Sub Sub

Αυτό θα μετατρέψει τη συμβολοσειρά "Excel VBA" σε πεζά.

Μπορείτε να εκτελέσετε χειροκίνητα ή μέσω του πλήκτρου συντόμευσης excel F5. Παρακάτω είναι το αποτέλεσμα του ίδιου.

Παράδειγμα # 3

Τώρα ρίξτε μια ματιά στην ίδια συμβολοσειρά με σωστή μετατροπή πεζών-κεφαλαίων. Παρακάτω είναι ο κωδικός.

Κώδικας:

Sub StrConv_Example3 () Dim TextValues ​​As String Dim Result as String TextValues ​​= "Excel vba" Result = StrConv (TextValues, vbProperCase) MsgBox Result End Sub

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

Παράδειγμα # 4

Τώρα ρίξτε μια ματιά στο παράδειγμα του χαρακτήρα Unicode. Κοιτάξτε τον παρακάτω κώδικα.

Κώδικας:

Sub StrConv_Example4 () Dim i As Long Dim x () As Byte x = StrConv ("ExcelVBA", vbFromUnicode) For i = 0 To UBound (x) Debug.Print x (i) Next End Sub

Αυτό θα εκτυπώσει όλους τους χαρακτήρες Unicode στο άμεσο παράθυρο.

Στον κώδικα ASCII, το "E" Unicode είναι 69, το "x" Το Unicode είναι 120 και ούτω καθεξής. Έτσι, χρησιμοποιώντας το VBA StrConv, μπορούμε να μετατρέψουμε τη συμβολοσειρά σε Unicode.

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