سؤال بخصوص COMBOBOX

[إبراهيم ابوليله]

الاخوه الافاضل

تحيه طيبه وبعد

ارجو ادراج الاسماء فى كومن بوكس

عن طريق تسمية النطاقاتCOMB.rar

[رجب جاويش]

السلام عليكم

هذا هو الكود المطلوب

Private Sub UserForm_Activate()

With Me.ComboBox1

    .Column = Range("list").Value

End With

End Sub

COMB.rar

[rahekk]

الاخ العزيز رجب جاويش نريد المثال بأكسيل2003 لو أمكن

[رجب جاويش]

تفضل أخى الفاضل

نسخة على 2003

COMB2003.rar

[إبراهيم ابوليله]

الاخ رجب

والله ياخى العزيز

لا اجد من الكلمات ما تستحق

غير ان اقول لك

جعل الله مشاركاتك فى ميزان حسناتك

وجعلك نافعلا بعلمك

ولكن ماذا لو اردنا تغير النطاق

ليكون من b4 الى b12

اى ان النطاق سيكون رأسى

ماذا سيكون شكل الكود

تم تعديل أكتوبر 31, 2012 بواسطه إبراهيم ابوليله

[رجب جاويش]

أخى ابراهيم

أشكرك جزيل الشكر على هذه الكلمات الطيبة

فى الحالة الثانية سيكون الكود بالشكل التالى

Private Sub UserForm_Activate()

With Me.ComboBox1

    .RowSource = "list2"

End With

End Sub

COMB2.rar

[rahekk]

جزاك الله خير

[إبراهيم ابوليله]

الاخ رجب

بارك الله فيك

ولكنى لا حظت انه مع استخدام معادله OFFSET

يحدث خطأ وذلك فى حالة وجود اى خليه من خلايا المدى فارغه

شاهد المرفق

COMB2(1).rar

تم تعديل أكتوبر 31, 2012 بواسطه إبراهيم ابوليله

[رجب جاويش]

أخى ابراهيم

مع تعديل بسيط فى معادلة offset يعمل الفورم بشكل طبيعى

=OFFSET(Sheet1!$B$3;0;0;1;SUBTOTAL(3;Sheet1!$B$3:$G$3))

COMB2.rar

[إبراهيم ابوليله]

الاخ رجب

عزرا على الاطاله

ولكن يحدث خطأ فى حاله تفريغ البيانات

ما عدا خليه واحده

لاحظ المرفقCOMB2(2).rar

[رجب جاويش]

تفضل أخى

COMB22222.rar

[إبراهيم ابوليله]

الاخ رجب

بارك الله

ولكن ارجو ان تصبر على طلباتى

انا اريد عند ضهور الكومو بوكس تكون فارغه

وهذا لا يحدث الا اذا كانت هناك اكثر من خليه مملؤه بالبيانات

[رجب جاويش]

أخى ابراهيم

اطلب كما تشاء

ايه رأيك فى هذه الفكرة

COMB22222.rar

[إبراهيم ابوليله]

الاخ رجب

هيا فكره جميله

بس انا كل غرضى ان ميكونش فيه فراغات عند الاختيار

[رجب جاويش]

تفضل أخى ابراهيم

COMB22222.rar

[إبراهيم ابوليله]

الاخ رجب

بارك الله فيك

كود جميل ورائع

[إبراهيم ابوليله]

الاخ رجب

لى سؤال بسيط انشاء الله

بالنسبه لهذا الكود

Private Sub UserForm_Activate()

Dim cl As Range, x As Integer

x = Application.WorksheetFunction.Count(Range("B3:G3"))

If x > 1 Then

Me.ComboBox1.Column = Range("list2").Value

Else

For Each cl In [b3:G3]

If cl <> "" Then

Me.ComboBox1.Value = cl

End If

Next

End If

End Sub

ماذا لو اردنا وضع الزر فى شيت اخر

وليكن شيت 2

والابقاء على تسمية النطاق فى شيت واحد

كيف سيكون شكل الكود

COMB22222_2.rar

[رجب جاويش]

سيكون بالشكل التالى

Private Sub UserForm_Activate()

Dim cl As Range, x As Integer

x = Application.WorksheetFunction.Count(Range("List"))

If x > 1 Then

Me.ComboBox1.Column = Range("list2").Value

Else

For Each cl In Range("List")

If cl <> "" Then

  Me.ComboBox1.Value = cl

  End If

Next

End If

End Sub

COMB22222.rar

[إبراهيم ابوليله]

الاخ رجب

فعلا والله كان حديثا شيقا وممتع

ولقد استفدت منه الكثير

وأسأل الله ان يوفققك لما يحبه ويرضاه

والا يحرمنا من علم

ويجعل دائما صبورا كما انت فى مشاركاتك

ليستفيد منك الكل

[رجب جاويش]

أخى ابراهيم

ألف شكر أخى الفاضل على هذه الكلمات الطيبة

وجزاك الله كل خير