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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
khaled alborene مجدى يونس-- لا تميز خلال هذه الفترة YasserKhalil سؤال احتاج كود يقوم بكتابة تاريخ اليوم فى خلية بناءا على اذا كانت الخلية المقابة غير فارغة اكسيل اسئله واجابات


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



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





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

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



16-04-2018 07:52 مساء
أباالحسن
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 259
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
يتابعهم : 4
يتابعونه : 12
قوة السمعة : 498
الاعجاب : 0
 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 مرات التحميل :(10)
الحجم :(215.26) KB








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

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

MzU4OTkxMQ24243



 
 







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






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






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






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






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
قائمة منسدلة بدون تكرار وبدون فراغات sami872
22 620 رمضان بكري
قائمة منسدلة مفلترة khaled alborene
33 3063 sami872
قائمة منسدلة مرتبة أبجديا بدون تكرار وبدون فراغات sami872
17 480 yousifaziz
قائمة بما قمت بتحديده salim
14 650 محمود محمود احمد
طلب كود عمل قائمة منسدلة مطاطية بدون فرغات ابااسماعيل
8 418 خالد تبن ابورتاج

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


 







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



الساعة الآن 04:27 صباحا

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