بسم الله الرحمن الرحيم
اهلا بحضراتكم متابعيى موقع ومدونة عالم الاوفيس
وهى كيفية تعبئة اكثر من Combo box بدون تكرار للبيانات من خلال كود سهل جدا وبسيط
كما تعودنا
1- ندخل على تبويب المطور ( Developer)
2-نفتح نافذة محرر الاكواد (visual basic )
3- نعمل ادراج لليوزرفورم (Insert User Form)
4- نضع عليها عدد 3 كومبوبوكس (Combobox)
6-نكتب فية الكود التالى
Private Sub User Form_Initialize()
Dim i As Long
For i = 3 To 2000
If Worksheet Function.Count If(Range("b3:b" & i), Range("b" & i)) = 1 Then
Me.ComboBox1.Add Item Range("b" & i)
End If
Next
For i = 3 To 2000
If Worksheet Function.Count If(Range("j3:j" & i), Range("j" & i)) = 1 Then
Me.ComboBox2.Add Item Range("j" & i)
End If
Next
For i = 3 To 2000
If Worksheet Function.Count If(Range("d3:d" & i), Range("d" & i)) = 1 Then
Me.ComboBox3.Add Item Range("d" & i)
End If
Next
End Sub
Dim i As Long
For i = 3 To 2000
If Worksheet Function.Count If(Range("b3:b" & i), Range("b" & i)) = 1 Then
Me.ComboBox1.Add Item Range("b" & i)
End If
Next
For i = 3 To 2000
If Worksheet Function.Count If(Range("j3:j" & i), Range("j" & i)) = 1 Then
Me.ComboBox2.Add Item Range("j" & i)
End If
Next
For i = 3 To 2000
If Worksheet Function.Count If(Range("d3:d" & i), Range("d" & i)) = 1 Then
Me.ComboBox3.Add Item Range("d" & i)
End If
Next
End Sub
وبهذا نكون قد انتهينا من هذا الكود وباذن الله فى الدرس القادم نكمل استعمال الكود فى درس مهم جدا انتظرونا
لمعرفة عمل الكود يرجى مشاهدة الفيديو
بارك الله في حضرتك.ونفع بك
ردحذفالسلامعليكم
ردحذفقم للمعلم وفه التبخيلا كاد المعلم أن يكون رسولا
شكرا حبيبي على هذه الفيديوهات الهامة و المفيدة جدا نفع الله بكم الأمة و زاد رصيد حسناتكم
العلم النافع لكم به حسنات الى يوم الدين
السلام عليكم
ردحذفأولاً شكرا لك على هذه المعلومات والدروس التي يستفيد منها الجميع حقاَ وأنا واحد منهم.
أخي الكريم كنت ارسلت تعليق واستفسار من قبل على هذا الموضوع ولم ألقى جوابا لغاية الان ! عسى المانع خيرا ان شاء الله.
سؤالي هو كيف نستطيع فلترة البيانات بأكثر من معيار واحد من الكومبوبوكس الثلاثة على نفس اليوزرفورم مع بعض وليس تحديد كومبوبوكس واحد فقط ذلك لاستطيع الفلترةأكثر دقة.
لكم مني كل التحيات
وشكراً لتعاونكم سلفاً