الثلاثاء، 27 أغسطس 2019

اكسل vba تعبئة اكثر من combobox اوتوماتيكيا بدون تكرار البيانات Auto Fill Combobox Automaticaly without dupplicat data

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

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

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

هناك تعليق واحد:

من نحن

authorمرحبا، أسمي عماد غازى وهذه مدونتي أسعى دائما لأقدم لكم أفضل المواضيع الخاصة بالاوفيس
المزيد عني →

التصنيفات

نموذج الاتصال

الاسم

بريد إلكتروني *

رسالة *

إجمالي مرات مشاهدة الصفحة