الوظيفة VBA: Choose

وصف

ترجع الدالة VBA Choose قيمة من قائمة الوسائط برقم معين.

بناء الجملة Choose

Choose (رقم ، قيمة_1 ، قيمة_2 ، قيمة_3 ، إلخ.)

مثال VBA Choose

عرض إحدى القيم الثلاث بالرقم المكتوب في متغير "الاختيار":

Sub ChooseExample1()
    
     choice = 1
    
     course = Choose(choice, "Excel", "VBA", "Google Sheets")
    
     MsgBox "الدورة المختارة:" & course 'إرجاع الرسالة: "الدورة المختارة: Excel"
    
End Sub

بديل للدالة Choose هو استخدام مصفوفة (Array):

Sub ChooseExample2()
    
     choice = 1
    
     course = Array("Excel", "VBA", "Google Sheets")(choice)
    
     MsgBox "الدورة المختارة:" & course 'إرجاع الرسالة: "الدورة المحددة: VBA"
    
End Sub