تحميل مجانى شيت اكسل المخازن ( وارد – منصرف – مرتجعات – اهلاك – تقارير)

بسم الله الرحمن الرحيم 

اهلا بحضراتكم متابعيى موقع ومدونة عالم الاوفيس

درس جديد من درووس اكسل vba 
وهى كيفية تعبئة اكثر من  Combo box بدون تكرار للبيانات من خلال كود سهل جدا وبسيط 
كما تعودنا
1-  ندخل على تبويب المطور ( Developer)
2-نفتح نافذة محرر الاكواد  (visual basic )
3- نعمل ادراج لليوزرفورم  (Insert User Form)
4- نضع عليها عدد 3 كومبوبوكس  (Combobox)

 

5-تم نضغط دوبل كليك على الفورم ونفتح حدث التهيئة  (Initialize)
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
 

وبهذا نكون قد انتهينا من هذا الكود وباذن الله فى الدرس القادم نكمل استعمال الكود فى درس مهم جدا انتظرونا

لمعرفة عمل الكود يرجى مشاهدة الفيديو