طلب مساعدة في ادراج قيمة combobox

[محمد القمجي]

مساعدة يا اخواني كيف ادرج قيمة في combobox في userform

[عبدالله المجرب]

طلب غير واضح

[محمد القمجي]

شكرا اخي على اهتمامك بالموضوع

اقصد لدي برنامج يحتوي على تيكست بوكس وكومبو بوكس في الفورم

المطلوب كيف اضع خيارات في الكومبوبوكس مثلا

عند الضغط على الكومبو بوكس تظهر لي خيارات على سبيل المثال

احمد

عﻻء

علي

وهكذا

انتظر الرد بفارغ الصبر

[محمد القمجي]

up

[Xima Alfadni]

السلام عليكم

 

مرفق ملف يوجد به اسهل طريقتين لعمل خيارات القائمة المنسدلة

 

وشكرا

ComboMox.zip

[محمد القمجي]

شكرا اخي مقصرت والله جزاك الله الف خير

[محمد القمجي]

اخ ixme ممكن شرح بسيط للطريقتين وشكرا لك مقدما

[Xima Alfadni]

السلام عليكم

 

اولا : بالنسبة الى القائمة المنسدلة رقم 1 و التى اسمها ComboBox1  كما في الصورة رقم 1 :

1 - في الفورم الخاص بها يتم وضع الكود التالى في حدث عند الانطلاق Private Sub UserForm_Initialize كما في الصورة رقم 2

و التى تعنى عمل متغير Dim وهذا المتغير نوعه Variant اى متغير متنوع ( مرفق ملف يشرح بطريقة مبسطة ووافية انواع المتغيرات )

2 - يكون اسم هذا المتغير ( في هذا المثال ) هو vUsers

3 - يكون قيم هذا المتغير ( الذى سيكون قيم الخيارات المتاحة للقائمة المنسدلة ) هى :

    vUsers = Array("على", "علاء", "احمد")
    

4 - واخير يتم الربط ما بين المتغير vUsers و القائمة المنسدلة كالتالى :

Me.ComboBox1.List = vUsers 

ثانيا بالنسبة الى القائمة المنسدلة رقم 2  و التى اسمها ComboBox2  كما في الصورة رقم 3 :

1- في ورقة العمل Sheet يتم الضغط على Ctrl+F3 لفتح محرر اسماء النطاقات .

2 - يتم عمل نطاق اسمه Names  كما هو موضح في الصورة رقم 4

3 - واخير يتم الربط ما بين النطاق Names و القائمة المنسدلة بواسطة الخصائص وتحديدا RowSource كما في الصورة رقم 5

 

ارجوا ان اكون قد وفقت في شرح المعلومة و شكرا

المتغيرات والثوابت.zip

[محمد القمجي]

اخي العزيز xime لقد افدتني كثيرا كثيرا في عملي جزاك الله على ما تقوم به وجعله في ميزان حسناتك شكرررا جزيﻻ وفقت بالشرح

[Xima Alfadni]

مشكووور ... الله يوفقك