طلب شرح select case في vba

[gamalin2]

الاخوة الافاضل هل ممكن التكرم وشرح استخدام 

select case 

في الاكواد 

بمثال لو امكن او امثلة في ملف اكون شاكر

[محمد حسن المحمد]

السلام عليكم أخي الكريم

أي تحديد (اختيار ) حالة حسب الكود المطلوب

مثال: تحديد حالة ( نعم أو لا أو إلغاء الأمر)
  تعريف متغير باسم nResult كنتيجة VbMsgBoxResult أي مربع رسالة بعرض النتيجة
    
مربع رسالة بعرض النتيجة = رسالة  ( نعم أو لا أو إلغاء الأمر)   
     نحدد حالة nResult كما يلي:
         في حالة nResult  النتيجة نعم
             أظهر  "نعم"
         في حالة nResult  النتيجة لا
             أظهر "لا"
         في حالة nResult  النتيجة إلغاء
             أظهر "إلغاء"
     ثم نهاية التحديد في الكود ثم إتمام الكود
 

Sub Select_Case_Yes_No_Cancel()
    Dim nResult As VbMsgBoxResult
    
    nResult = MsgBox("...", vbYesNoCancel)
    
    Select Case nResult
        Case vbYes
            MsgBox "Yes"
        Case vbNo
            MsgBox "No"
        Case vbCancel
            MsgBox "Cancel"
    End Select
End Sub

تقبل تحياتي العطرة

والسلام عليكم

[gamalin]

اشكرك اخي الكريم جزاك الله خيرا لاهتمامك ارجوا لو في مزيد من التفاصيل والشروحات اكون شاكر