المساعدة في التحكم في قيم الكومبوبكس

[سعيد 1428]

أيها الإخوة السلام عليكم 

عيدكم مبارك 

أريد المساعدة في تصحيح الكود بالملف المرفق بحيث تكون قيم الكومبوبكس 2 مرتبطة بقيمة الكومبوبكس 1

وشكرا 

ComboBox.xlsm

[هانى محمد]

وعليكم السلم -من فضلك ممكن توضيح اكثر ؟

يعنى ايه مرتبطة ,مساويا له ام يذكر الشهر الذى يتبع الشهر الموجود فى الكمبوبوكس 1 ؟

ايضا لماذا الشهور غير مرتبة بالترتيب الطبيعى لها ؟

بارك الله فيك

تم تعديل أغسطس 21, 2018 بواسطه هانى محمد

[سعيد 1428]

عند اختيار الشهر في الكومبوكس 1 يصبح متاح للمستخدم أختيار نفس الشهر أو احد الاشهر الواقعة بعده في الكومبوكس 2 حسب الترتيب 

مثلا عند اختيار ربيع الاول في الكومبوكس 1 يصبح متاح  للمستخدم اختيار ربيع الأول أو ربيع الثاني أو جمادى الاولى وهكذا في الكومبوكس 2 حسب ترتيب القائمة 

ولا يمكن اختيار صفر مثلا في هذا الكومبوكس لانه قبل ربيع أول في القائمة 

وشكرا 

 

[سليم حاصبيا]

 

جرب هذا الماكرو (يحب ان تضع الارقام من 1 الى 12 ) في العامود  S ابتداء من S1

Private Sub ComboBox1_Change()
Dim x%, i%
ComboBox2.Clear
x = Application.VLookup(ComboBox1.Text, Range("r1:s12"), 2, 0)
For i = x To 12
ComboBox2.AddItem Range("r" & i).Value
Next
End Sub

 

[سعيد 1428]

جزاكم الله خيرا وبارك فيكم 

 

تم تعديل أغسطس 21, 2018 بواسطه سعيد 1428

[سليم حاصبيا]

ماكرو مختصر اكثر (بدون أرقام)

Private Sub ComboBox1_Change()
Dim x%
x = Application.Match(ComboBox1.Text, Range("r1:r12"), 0)
ComboBox2.ListFillRange = Range("R" & x & ":R" & 12).Address
End Sub

 

[سعيد 1428]

جميل بارك الله فيكم ونفع بكم