VBA - استخدام عامل التشغيل Like مع Select Case

VBA - استخدام عامل التشغيل Like مع Select Case

المقدمة

في الظروف العادية ، لا يعمل بيان Select Case مع عامل التشغيل Like . في هذه المقالة سوف تتعلم كيفية التغلب على هذا القيد (إذا ، ElseIf ، ...)

حدد Case & Like - Test

توضح التعليمة البرمجية التالية أن Select Case لا يعمل مع عامل التشغيل Like:

 Sub Select_Case_Like () word = "KAKAO" حدد Case case Case mot Like "* K * K *" MsgBox "Good" Case Else MsgBox "Not Good" End حدد End Sub 

أيا كان محتوى كلمة متغير ، فإنه سيعود دائما "ليست جيدة" ...

باستخدام التعبير الحقيقي-اختبار

لاستخدام عامل التشغيل Like في حالة تحديد ، ستحتاج إلى إضافة تعبير True.

 Sub Select_Case_True_Like () word = "KAO" حدد Case True Case Case Like "* K * K *" MsgBox "Good" Case Else MsgBox "Not Good" End حدد word = "KAKAO" حدد Case True Case Case Like "* K * K * "MsgBox" حالة جيدة "Else MsgBox" غير جيد "End حدد End Sub 

وظيفة منطقية مفيدة

الوظيفة

 Function Case_True_Like (الكلمة كسلسلة) باسم منطقية ، حدد Case True Case Case Like "* K * K *" Case_True_Like = True Case Else Case_True_Like = False End Select End Function 

استدعاء الوظيفة

 اختبار Sub () MsgBox Case_True_Like ("KAKAO") End Sub 

استنتاج

تقدم هذه المقالة بديلاً لاستخدام If ElseIf.