JavaScript is not enabled!...Please enable javascript in your browser

جافا سكريبت غير ممكن! ... الرجاء تفعيل الجافا سكريبت في متصفحك.

-->
الصفحة الرئيسية

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

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

تعليقات
  • Sobhi esa photo
    Sobhi esa29 أغسطس 2019 في 6:11 ص

    بارك الله في حضرتك.ونفع بك

    إرسال تعليقحذف التعليق
    • Unknown photo
      Unknown11 مارس 2021 في 9:56 م

      السلامعليكم
      قم للمعلم وفه التبخيلا كاد المعلم أن يكون رسولا
      شكرا حبيبي على هذه الفيديوهات الهامة و المفيدة جدا نفع الله بكم الأمة و زاد رصيد حسناتكم
      العلم النافع لكم به حسنات الى يوم الدين

      إرسال تعليقحذف التعليق
      • Unknown photo
        Unknown25 نوفمبر 2021 في 5:36 ص

        السلام عليكم

        أولاً شكرا لك على هذه المعلومات والدروس التي يستفيد منها الجميع حقاَ وأنا واحد منهم.
        أخي الكريم كنت ارسلت تعليق واستفسار من قبل على هذا الموضوع ولم ألقى جوابا لغاية الان ! عسى المانع خيرا ان شاء الله.
        سؤالي هو كيف نستطيع فلترة البيانات بأكثر من معيار واحد من الكومبوبوكس الثلاثة على نفس اليوزرفورم مع بعض وليس تحديد كومبوبوكس واحد فقط ذلك لاستطيع الفلترةأكثر دقة.

        لكم مني كل التحيات
        وشكراً لتعاونكم سلفاً

        إرسال تعليقحذف التعليق
        الاسمبريد إلكترونيرسالة