أكاديمية الصقر للتدريب

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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز
المشرف المتميز
المراقب المتميز
المدير المتميز
الموضوع المتميز
القسم المتميز
بكار للأبد Eslam Abdullah لا تميز خلال هذه الفترة YasserKhalil الداله الجديده المعرفه alsqrdate - حسام خطاب اكسيل اسئله واجابات




أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





الاختيار من قائمة منسدلة من يوزرفورم

السلام عليكم قمت بتصمييم UserForm بغرض ادخال البيانت واريد اختيار بيان خاص بعدد التذاكر (ComboBox4) من قائمة منسدلة ، ..



16-04-2018 07:52 مساء
أباالحسن
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 210
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
يتابعهم : 4
يتابعونه : 9
قوة السمعة : 357
الاعجاب : 129
 offline 

السلام عليكم
قمت بتصمييم UserForm بغرض ادخال البيانت 

واريد اختيار بيان خاص بعدد التذاكر (ComboBox4) من قائمة منسدلة ، لكن المشكلة أن القائمة لا تظهر
على الرغم اننى حددت مصدرها ، كما اريد اجبار المستخدم على الاختيار منها وعدم ترك هذا البيان فارغ
وقد استخدمت هذا الكود ، لكنه لا يعمل

x3 = WorksheetFunction.CountIf(Sheets("Teachers Data").Range("BX37:BX44"), Me.ComboBox4.Value)
If Me.ComboBox4 = "" Or x3 = 0 Then
    Me.ComboBox4.BackColor = &HFF&
    MsgBox "اختر من القائمة المنسدلة", 64 + vbMsgBoxRight, "  "
    Me.ComboBox4.Value = ""
    Me.ComboBox4.SetFocus
    Me.ComboBox4.BackColor = &HFFFFFF
    Exit Sub
End If


-------------------------
والجزئية الاخري المشابهه لها ، اريد من المستخدم أن يختار حافز التميز (ComboBox7)
لكن هنا يمكن للمستخدم أن يتركه فارغا ، فهو بيان غير الزامى
ولو كتب اى نص غير الموجود فى القائمة المنسدلة ، لا يقبله البرنامج


وهذا هو الكود الذى استخدمته ، لكن لا يفى بالغرض


If Me.OptionButton1.Value = True Then
x6 = WorksheetFunction.CountIf(Sheets("Teachers Data").Range("BU79:BU89"), Me.ComboBox7.Value)
    If x6 = 0 Then
        Me.ComboBox7.BackColor = &HFF&
        MsgBox "اخترمن القائمة المنسدلة", 64 + vbMsgBoxRight, "  "
        Me.ComboBox7.Value = ""
        Me.ComboBox7.SetFocus
        Me.ComboBox7.BackColor = &HFFFFFF
        Exit Sub
    End If
End If
وشــــــــــــكــــــــــــــــــــرا لــــــــــــــــــكــــــــــــــــــم 
هذا هو الملف المرفق   لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  الاختيار من قائمة منسدلة من يوزرفورم.rar   تحميل rar مرات التحميل :(9)
الحجم :(215.26) KB


أثارت هذه المشاركة إعجاب: الغزال الشارد، ABDOU.fah،





16-04-2018 09:41 مساء
مشاهدة مشاركة منفردة [1]
محمد الدسوقى
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 453
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 54
يتابعهم : 8
يتابعونه : 377
قوة السمعة : 5368
الاعجاب : 1100
 offline 
look/images/icons/i1.gif الاختيار من قائمة منسدلة من يوزرفورم
أستاذ / أبا الحسن
مما فهمت من المشاركة قم بالآتى :
1ـ  عمل تعريف للنطاق المراد إظهاره فى  ComboBox4 وليكن Tickets
2 ـ فى خصائص  ComboBox4 اكتب فى  Row source اسم هذا النطاق ـ يتم ادراج جميع النطاق فى الكمبوبوكس4
كما بالصورة

NDM0ODQxMQ62621
وهذه الصورة بعد ادراج النطاق للكمبوبوكس4

MzU4OTkxMQ24243
 
 


أثارت هذه المشاركة إعجاب: YasserKhalil،




16-04-2018 10:44 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14756
الاعجاب : 5509
 offline 
look/images/icons/i1.gif الاختيار من قائمة منسدلة من يوزرفورم
بارك الله فيك أخي الحبيب محمد الدسوقي وجزيت خيراً

أثارت هذه المشاركة إعجاب: محمد الدسوقى،




17-04-2018 08:24 صباحا
مشاهدة مشاركة منفردة [3]
أباالحسن
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 210
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
يتابعهم : 4
يتابعونه : 9
قوة السمعة : 357
الاعجاب : 129
 offline 
look/images/icons/i1.gif الاختيار من قائمة منسدلة من يوزرفورم
جزاكم الله خيرا
لكن لماذا لم يعمل الكود 
على الرغم انه عمل مع ComboBox1





17-04-2018 09:05 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14756
الاعجاب : 5509
 offline 
look/images/icons/i1.gif الاختيار من قائمة منسدلة من يوزرفورم
ممكن توضيح أكتر أخي الكريم أبا الحسن
كيف لم يعمل ؟ وضح المشكلة بشيء من التفصيل واستخدم الصور إذا أمكن





21-04-2018 11:14 مساء
مشاهدة مشاركة منفردة [5]
أباالحسن
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 210
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
يتابعهم : 4
يتابعونه : 9
قوة السمعة : 357
الاعجاب : 129
 offline 
look/images/icons/i1.gif الاختيار من قائمة منسدلة من يوزرفورم
جزاكم الله خيرا
اقصد انه لم يعمل فى الحالة الأولي فقط






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
الاهداف المرجوه من اعداد قائمة الدخل - حسام خطاب الصقر
9 897 obadadarweesh
قائمة منسدلة مرتبة أبجديا بدون تكرار وبدون فراغات sami872
14 123 مالك ماريه
قائمة منسدلة جديد salim
18 331 med031
تحديث وتغيير محتوى القائمة المنسدلة تلقائيا ali mohamed ali
17 631 kby
قائمة منسدلة مفلترة khaled alborene
25 2342 mohmed_moustafa_2006

الكلمات الدلالية
الاختيار ، قائمة ، منسدلة ، يوزرفورم ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 10:04 مساء

أعلن هنا
أعلن هنا
أعلن هنا