مطلوب : كود لظهور قيم عمود معين في كومبوبكس دون فراغات او تكرار

[هاني مصطفي]

الاساتذة الكرام

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

والمطلوب موضح داخل الملف

برجاء وضع الكود في الفورم لعمل المطلوب

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

 

 

HANY.rar

[حمادة عمر]

السلام عليكم

الاخ الكريم / هاني مصطفي

 

بارك الله فيك

استخدم اخي الكود التالي في حدث الفورم Initialize كالتالي :

Private Sub UserForm_Initialize()
On Error Resume Next
Sheets("Sheet1").Select
Dim mycol As Collection
Dim myrng As Range

Set mycol = New Collection
For Each myrng In Range("a1:a10000")
mycol.Add myrng.Value, myrng.Text
Next myrng
For i = 1 To mycol.Count
Me.ComboBox1.AddItem mycol(i)
Next i
End Sub

ارجو ان يكون هذا هو طلبك كما تريد

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

 

 

HANY++.rar

[هاني مصطفي]

بالفعل هذا هو المطلوب

ايها الاستاذ القدير جدا / حمادة عمر

بالفعل وعن حق وعن جدارة  تستحق ان تكون اكثر من خبير معتمد

شكرا جزيلا لك علي سرعة الرد الراائعة

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

[حمادة عمر]

السلام عليكم
الاخ الكريم / هاني مصطفي

بارك الله فيك
وجزيل شكري وامتناني علي كلماتك الراائعة وثقتك الغاليه
جزاك الله خيرا

تم تعديل أبريل 26, 2013 بواسطه حمادة عمر

[هاني مصطفي]

الاستاذ القدير / حمادة عمر

هل لي ان اطمع في كرمك واطلب منك طلب آخر او استفسار آخر

اجد في بعض الملفات في الفورم لاضخاص لا اعرفهم شكل زر الكومبوبكس متغير وليس بالشكل المعتاد ( سهم لاسفل )

هل هذا هو كائن آخر غير الكومبوبكس العادي ام يتم ذلك باستخدام كود

ارجو التوضيح

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

[حمادة عمر]

السلام عليكم

الاخ الكريم / هاني مصطفي

 

بارك الله فيك

اولا : هو نفس الكومبوبكس العادي الذي استخدمته في ملفك ولكن يتم تغيير خصائصه باستخدام الخيار DropButtonStyle

       من Properties الخاصة بالكومبوبكس نفسه واليك الصورة التاليه توضح الاشكال الاربعة لزر الكومبوبكس

ثانيا : الصورة المرفقة 

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

 

[هاني مصطفي]

هو المطلوب تماما

استاذي الحبيب الكبير /  حمادة عمر

انت حقا شخص راائع و ذو  اخلاق رفيعة جدا

مساعدتك لها طعم خاص

شاكر جدا سرعة تعاونك وردك علي

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

[حمادة عمر]

السلام عليكم

الاخ الكريم / هاني مصطفي

 

بارك الله فيك

وكل الشكر والتقدير لشخصكم الكريم

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

[احمد عبد الناصر]

السلام عليكم

 

استاذ حمادة تحياتي لك كود مميز 

 

هذا حل اخر لاثراء الموضوع 

Private Sub UserForm_Initialize()

Dim arr As Variant
ReDim arr(1 To Application.WorksheetFunction.CountA([a:a]))
For Each c In Range("a1:a" & Range("a" & Rows.Count).End(xlUp).Row)
x = c.Row - 1
If Not IsEmpty(c) Then
 If x = 0 Then GoTo 1
 If Application.WorksheetFunction.CountIf(Range("a1:a" & x), c.Value) = 0 Then
1:  arr(i + 1) = c.Value
  i = i + 1
 End If
End If
Next
ReDim Preserve arr(1 To i)
ComboBox1.List = arr

End Sub

تحياتي

HANY+-+.rar

تم تعديل أبريل 27, 2013 بواسطه احمد عبد الناصر

[حمادة عمر]

السلام عليكم

اخي احمد عبد الناصر ... جزاك الله خيرا

بالفعل كود في غاية الجمال