VBA - Χρησιμοποιώντας τον χειριστή Like με το Select Case

VBA - Χρησιμοποιώντας τον χειριστή Like με το Select Case

Εισαγωγή

Υπό κανονικές συνθήκες, η δήλωση Select Case δεν λειτουργεί με τον παροχέα Like . Σε αυτό το άρθρο θα μάθετε πώς να ξεπεραστεί αυτός ο περιορισμός (Εάν, άλλωστε, ...)

Επιλέξτε Case & Like - Test

Ο ακόλουθος κώδικας καταδεικνύει ότι η Επιλογή Περίπτωση δεν λειτουργεί με τον παροχέα παρόμοιων:

 Sub Select_Case_Like () λέξη = "KAKAO" Επιλογή Περίπτωση λέξη Περίπτωση mot Όπως "* K * K *" MsgBox "Καλή" υπόθεση Else MsgBox "Δεν είναι καλό" 

Όποια και αν είναι το περιεχόμενο της λέξης μεταβλητή, θα επιστρέφει πάντα "όχι καλό" ...

Χρησιμοποιώντας την αληθινή έκφραση -Test

Για να χρησιμοποιήσετε τον παροχέα Like σε μια επιλογή Select, θα πρέπει να προσθέσετε την αληθινή έκφραση.

 Υποεπιλογή Select_Case_True_Like () word = "KAO" Επιλογή Περίπτωση Αληθινή λέξη περίπτωσης Όπως "* K * K *" MsgBox "Καλό" Περίπτωση Else MsgBox " K * "MsgBox" Good "Περίπτωση Else MsgBox" Not Good "Τέλος Επιλογή Τέλος Sub 

Μια χρήσιμη λειτουργία Boolean

Η λειτουργία

 Λειτουργία Case_True_Like (λέξη ως String) Ως Boolean Select Case Αληθινή λέξη περίπτωσης Όπως "* K * K *" Case_True_Like = Αληθινή υπόθεση Else Case_True_Like = False End Επιλογή Τέλος Λειτουργία 

Κλήση της λειτουργίας

 Sub Test () MsgBox Case_True_Like ("KAKAO") End Sub 

συμπέρασμα

Αυτό το άρθρο προσφέρει μια εναλλακτική λύση στη χρήση του If ElseIf.