بسم الله الرحمن الرحيم
اهلا بحضراتكم متابعيى موقع ومدونة عالم الاوفيس
وهى كيفية تعبئة اكثر من 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
وبهذا نكون قد انتهينا من هذا الكود وباذن الله فى الدرس القادم نكمل استعمال الكود فى درس مهم جدا انتظرونا
لمعرفة عمل الكود يرجى مشاهدة الفيديو