الدالة Choose

ملاحظة: نرغب في تزويدك بأحدث محتوى تعليمات لدينا بأسرع ما يمكن وبلغتك الخاصة. وقد تمت ترجمة هذه الصفحة آلياً وقد تحتوي على أخطاء نحوية أو أخطاء تتعلق بالدقة. كما نهدف إلى أن يكون هذا المحتوى مفيداً لك. هل يمكنك إخبارنا إذا كانت المعلومات مفيدة لك في أسفل هذه الصفحة؟ إليك المقالة بالغة الإنجليزية لسهولة الرجوع إليها.

تقوم بتحديد قيمة من قائمة الوسيطات وإرجاعها.

بناء الجملة

اختيار ( الفهرس [ الاختيار-1 ، 2 الاختيار]... [، اختيار-n] )

يحتوي بناء جمله الداله Choose علي الوسيطات التاليه:

الوسيطة

الوصف

الفهرس

مطلوب. تعبير رقمي او حقل ينتج عنه قيمه بين 1 و# عدد الاختيارات المتاحه.

اختيار

مطلوب. تعبير متغير يحتوي علي احد الخيارات الممكنه.


ملاحظات

ارجاع اختيار قيمه من قائمه الاختيارات استنادا الي قيمه الفهرس. اذا كان فهرس 1، ترجع Choose الخيار الاول في القائمه; اذا كانت الفهرس 2، ترجع الخيار الثاني، و# ما الي ذلك.

يمكنك استخدام اختيار ل# البحث عن قيمه في قائمه ب# الامكانيات المتوفره. علي سبيل المثال، اذا تم تقييم الفهرس الي 3 و# اختيار-1 = "واحد"، اختيار-2 = "اثنين"، و# الخيار 3 = "ثلاثه"، ف# ترجع Choose القيمه "ثلاثه". هذه القدره مفيدا خاصه اذا فهرس تمثل القيمه الموجوده في مجموعه خيارات.

تقييم Choose كل خيار في القائمه، علي الرغم من ان تقوم ب# ارجاع واحد فقط. ل# ذلك، يجب متابعه تاثيرات جانبيه غير مرغوب فيه. علي سبيل المثال، اذا كنت تستخدم الداله MsgBox ك# جزء من تعبير في كافه الخيارات، مربع رساله سيتم عرض ل# كل اختيار كما يتم تقييمه، علي الرغم من ان ترجع Choose القيمه واحد فقط.

الداله Choose ترجع قيمه خاليه اذا كان الفهرس اقل من 1 او اكبر من عدد الخيارات المذكوره.

اذا لم يكن فهرس عددا صحيحا، يتم تقريبه الي اقرب عدد صحيح قبل ان يتم تقييمه.

مثال

ملاحظة: توضح الامثله التاليه استخدام هذه الداله في Visual Basic for Applications (VBA) الوحده النمطيه. ل# الحصول علي مزيد من المعلومات حول العمل ب# استخدام VBA، حدد مرجع المطور في القائمه المنسدله الموجود ب# جانب بحث و# ادخل شروط واحد او اكثر في مربع البحث.

يستخدم هذا المثال الداله Choose ل# عرض اسم استجابه ل# فهرس الممرره ضمن الاجراء في المعلمه Ind .

Function GetChoice(Ind As Integer)
GetChoice = Choose(Ind, "Speedy", "United", "Federal")
End Function
تعزيز مهارات Office
استكشاف التدريب
الحصول على الميزات الجديدة أولاً
الانضمام إلى Office Insider

هل كانت المعلومات مفيدة؟

نشكرك على ملاحظاتك!

شكراً لك على الملاحظات! يبدو أنه من المفيد إيصالك بأحد وكلاء دعم Office لدينا.

×