VBA - Like işlecini Select Case ile kullanma
VBA - Like işlecini Select Case ile kullanma
Giriş
Normal şartlar altında, Select Case deyimi Like işleci ile çalışmıyor. Bu makalede, bu sınırlamanın üstesinden nasıl geleceğini öğreneceksiniz (If, ElseIf, ...)Harf ve Beğen - Test Seç
Aşağıdaki kod, Select Case'in Like işleciyle çalışmadığını gösterir:Alt Select_Case_Like () word = "KAKAO" Vaka kelimesini seçin Vaka mot Like "* K * K *" MsgBox "İyi" Vaka Başka MsgBox "İyi Değil" End Seç Son Sub
Değişken kelimesinin içeriği ne olursa olsun, her zaman "iyi değil" döndürür ...
Gerçek ifadeyi kullanarak -Test
Bir Seçim Durumunda Beğen işlecini kullanmak için, Gerçek ifadesini eklemeniz gerekir.Alt Select_Case_True_Like () word = "KAO" Büyük Harf Durumunu Seçin "* K * K *" MsgBox "İyi" Büyük Harf Başka Durumunu Seçin K * "MsgBox" İyi "Durum Başka MsgBox" İyi Değil "Bitiş Seç Son Alt
Yararlı bir Boolean işlevi
İşlev
İşlev Case_True_Like (Dize Olarak Kelime) Boolean Olarak Seçin Örnek Seçin Gerçek Durum kelimesi "* K * K *" Case_True_Like = Gerçek Durum Başka Durum Case_True_Like = Yanlış Sonu Seç Son İşlev
İşlevi çağırmak
Alt Test () MsgBox Case_True_Like ("KAKAO") Son Alt