الكومب بوكس

[Akram Galal]

السادة الأفاضل

أرجو منكم ظهور الأرقام التي لا تحتوي علي حرف P في الـ ComboBox1 الموجودة في العمود A

في ورقة 1

ولكم منا كل الإحترام والتقدير .

وإليكم المرفقات

كارنية1.rar

[الـعيدروس]

السلام عليكم

الغي RowSource من خصائص الـ ComboBox1

ثم انسخ الكود التالي في حدث UserForm_Activate

With Me.ComboBox1

For i = 4 To 100

If IsNumeric(Cells(i, 1)) Then

.AddItem Cells(i, 1).Value

End If

Next

End With

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

بعذ إذن أخي الحبيب : / أبو نصار

اريد إضافة بعض الملاحظات :

ـ 1 ) يجب مسح النطاق المبين في خصائص الكمبوبكس و الذي كان : A4:A10000

ـ 2 ) وضع كود أبو نصار في الحدث : UserForm_Activate

ـ 3 ) لتفادي تحميل الفراغات الموجودة يمكن إضافة الجملة

And Not IsEmpty(Cells(i, 1))

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

If IsNumeric(Cells(i, 1)) And Not IsEmpty(Cells(i, 1)) Then

بهذه الطريقة يصبح الكود كالتالي :

With Me.ComboBox1

For i = 4 To 100

If IsNumeric(Cells(i, 1)) And Not IsEmpty(Cells(i, 1)) Then

.AddItem Cells(i, 1).Value

End If

Next

End With

تم تعديل ديسمبر 24, 2012 بواسطه أبو حنين

[Akram Galal]

الأساتذة الأفاضل

جزاكم الله خيرا و الف شكر علي الرد

كود رائع جدا