Αυτό το σεμινάριο θα δείξει πώς να χρησιμοποιήσετε τις λειτουργίες UCASE, LCASE και STRCONV στο VBA.
Ενώ εργάζεστε στο VBA, συχνά χρειάζεται να μετατρέψετε τις συμβολοσειρές σε πεζά, κεφαλαία ή κατάλληλα γράμματα. Αυτό είναι δυνατό με τη χρήση τουUCase, LCase και StrConv λειτουργίες.
Αυτές οι συναρτήσεις είναι σημαντικές όταν χειρίζεστε συμβολοσειρές στο VBA, όπως είναι το VBA διάκριση πεζών -κεφαλαίωνΤο Εάν θέλετε να κάνετε το VBA χωρίς διάκριση πεζών-κεφαλαίων, πρέπει να προσθέσετε Option Σύγκριση κειμένου στην κορυφή της ενότητας σας. Μπορείτε να μάθετε περισσότερα για αυτό εδώ: Prevent VBA Case Sensitive
UCase - Μετατροπή συμβολοσειράς σε κεφαλαία
ο UCase συνάρτηση στο VBA μετατρέπει όλα τα γράμματα μιας συμβολοσειράς σε κεφαλαία. Υπάρχει μόνο ένα όρισμα, το οποίο μπορεί να είναι συμβολοσειρά, μεταβλητή με συμβολοσειρά ή τιμή κελιού. Αυτή η συνάρτηση χρησιμοποιείται συχνά εάν θέλετε να συγκρίνετε δύο συμβολοσειρές. Ακολουθεί ο κώδικας για τη συνάρτηση UCase:
| 12345678 | Dim strText As StringDim strTextUCase As StringstrText = "εκτέλεση συνάρτησης κεφαλαίων"strTextUCase = UCase (strText)MsgBox strTextUCase |
Στο παράδειγμα, θέλουμε να μετατρέψουμε όλα τα γράμματα του strText μεταβλητή σε κεφαλαία γράμματα και αντιστοιχίστε τη μετατρεπόμενη συμβολοσειρά στο strTextUCase μεταβλητός. Στο τέλος καλούμε το πλαίσιο μηνυμάτων με τη μετατρεπόμενη συμβολοσειρά:
LCase - Μετατροπή συμβολοσειράς σε πεζά
Εάν θέλετε να μετατρέψετε όλα τα γράμματα μιας συμβολοσειράς σε πεζά, πρέπει να χρησιμοποιήσετε το LCase λειτουργία. Αυτή η συνάρτηση έχει ένα όρισμα, το ίδιο με το UCase. Αυτός είναι ο κωδικός για τη συνάρτηση LCase:
| 12345678 | Dim strText As StringDim strTextLCase As StringstrText = "ΤΡΕΧΟΝΤΑΣ ΛΕΙΤΟΥΡΓΙΑ με πεζά"strTextLCase = LCase (strText)MsgBox strTextLCase |
Σε αυτό το παράδειγμα, μετατρέπουμε όλα τα γράμματα της συμβολοσειράς από Α1 σε πεζά. Μετά από αυτό, η μετατρεπόμενη συμβολοσειρά εκχωρείται στο κελί A1.
StrConv - Μετατροπή συμβολοσειράς σε κατάλληλη περίπτωση
ο StrConv η λειτουργία σας επιτρέπει να μετατρέψετε μια συμβολοσειρά κειμένου σε κατάλληλη περίπτωση. Η συνάρτηση έχει δύο ορίσματα. Πρώτα είναι η συμβολοσειρά που θέλετε να μετατρέψετε. Το δεύτερο είναι ο τύπος της μετατροπής που θέλετε. Για να μετατρέψετε μια συμβολοσειρά σε κατάλληλη περίπτωση, πρέπει να την ορίσετε σε vbProperCaseΤο Ο κωδικός για τη συνάρτηση είναι:
| 12345678 | Dim strText As StringDim strTextProperCase As StringstrText = "εκτέλεση σωστής συνάρτησης περίπτωσης"strTextProperCase = StrConv (strText, vbProperCase)MsgBox strTextProperCase |
Στο παράδειγμα θα δείτε πώς λειτουργεί η συνάρτηση. Παίρνει τη συμβολοσειρά από το κελί Β1, τη μετατρέπει σε κατάλληλη περίπτωση και επιστρέφει την τιμή στο κελί Α1.
StrConv - Μετατροπή συμβολοσειράς σε κεφαλαία ή κεφαλαία γράμματα
Χρησιμοποιώντας τη συνάρτηση StrConv, μπορείτε επίσης να μετατρέψετε μια συμβολοσειρά σε κεφαλαία ή πεζά. Για να γίνει αυτό, απλά πρέπει να ορίσετε το δεύτερο όρισμα στο vbUpperCase ή vbLowerCase:
| 1 | strTextConverted = StrConv (strText, vbUpperCase) |
| 1 | strTextConverted = StrConv (strText, vbLowerCase) |
VBA Επάνω, Κάτω και σωστή θήκη - Λειτουργίες περίπτωσης στην πρόσβαση
Όλα τα παραπάνω παραδείγματα λειτουργούν ακριβώς το ίδιο στην Access VBA όπως στο Excel VBA.
| 1234 | Private Sub ClientName_AfterUpdate ()"αυτό θα μετατρέψει το κείμενο στο πλαίσιο ονόματος πελάτη σε κεφαλαίαMe.ClientName = UCase (Me.ClientName)Τέλος υπο |
