عمل قائمة منسدلة في فوروم ادخال

[أبو عبد الملك السوفي]

السلام عليكم

أساتذتي الكرام كيف يتم عمل قائمة منسدلة في فوروم ادخال

[أبو حنــــين]

السلام عليكم

شاهد المرفق

111.rar

[أبو عبد الملك السوفي]

السلام عليكم

ماشاء الله عليك أستاذ أبو حنين دائما حاضر شكرا جزيلا الشرح مفهوم

[أبو عبد الملك السوفي]

السلام هليكم

أأخي الحبيب أبو حنين الكود واضح لكنه لم يشتغل معي بماذا تنصحني

[أبو حنــــين]

بالنسبة للطريقة الاولى تصبح بهذا الشكل مع مراعات تسمية ورقة البيانات

في هذا المثال ورقة البيانات هي  sheets("data")

Private Sub UserForm_Initialize()
'   '**************************************************************************************************************
ComboBox1.Clear
With Sheets("Data")
.Activate
ComboBox1.List = .Range("A2:A" & Cells(Application.Rows.Count, 1).End(xlUp).Row).Value
End With
End Sub

بالنسبة للطريقة الثانية تبقى كما هي

 

بالنسبة للطريقة الثالثة يصبح الكود كالتالي

Private Sub UserForm_Initialize()

ComboBox3.Clear
With Sheets("Data")
.Activate
ComboBox3.RowSource = "A2:A12"
End With

End Sub

[أبو عبد الملك السوفي]

السلام عليكم

أخي الحبيب يا حبذا لو يكون هنالك شرح بالفديو والله طوال اليوم وأنا احاول ولم افلح

[أبو حنــــين]

السلام عليكم

هذا الملف يحتوي على الشرح

222.rar

[أبو عبد الملك السوفي]

السلام عليكم

أخي أبو حنين لما أضغط على شكل القائمة المنسدلة مرتين لأضيف الكود يخرج هذا السطر Private Sub ComboBox1_Change() بدلا من السطرPrivate Sub UserForm_Initialize()

[أبو حنــــين]

السلام عليكم

انظر الصورة

111.rar