نادر سليم قام بنشر نوفمبر 23, 2013 قام بنشر نوفمبر 23, 2013 السلام عليكم ورحمة الله اخواننا الكرام المطلوب عمل يوزر فورم فى النموذج المرفق مرة بأستخدام comboboxواخرى بالlistbox قائمة منسدلة.rar 1
هادى محمد المامون سالم قام بنشر نوفمبر 27, 2013 قام بنشر نوفمبر 27, 2013 بسم الله الرحمن الرحيم لعمل combobox ل Userform استخدم الكود التالى Private Sub UserForm_Activate() cmb1 cmb2 End Sub Private Sub cmb1() For i = 3 To 6 ComboBox1.AddItem (Sheets("Sheet1").Cells(i, "C")) Next i End Sub Private Sub cmb2() For i = 3 To 5 ComboBox2.AddItem (Sheets("Sheet1").Cells(i, "J")) Next i End Sub مرفق ملف السلام عليكم قائمة منسدلة_1.rar 1
حمادة باشا قام بنشر نوفمبر 28, 2013 قام بنشر نوفمبر 28, 2013 السلام عليكم ورحمة الله اخواننا الكرام المطلوب عمل يوزر فورم فى النموذج المرفق مرة بأستخدام comboboxواخرى بالlistbox الأستاذ الفاضل/ هادى محمد المامون سالم السلام عليكم ورحمة الله وبركاته الكود راقي ومنمق - تقبل تحياتي الأخ الكريم/ ابو السوالم السلام عليكم ورحمة الله وبركاته وبعد إستئذان الأستاذ الفاضل/ هادى محمد المامون سالم المرفق عدة قوائم منسدلة مرنة - ومرتبطة ببعضها مع إمكانية التعديل والإضافة من خلال جدول داخل الورقة تقبل تحياتي قائمة منسدلة.rar
نادر سليم قام بنشر نوفمبر 28, 2013 الكاتب قام بنشر نوفمبر 28, 2013 الى أستاذ هادى محمد المامون سالم الشكر كل الشكر على ردك وأهتمامك وجعل الله ذلك فى ميزان حسناتك
نادر سليم قام بنشر نوفمبر 28, 2013 الكاتب قام بنشر نوفمبر 28, 2013 الاستاذ حمادة باشا هذا هو الحل المطلوب ويزيد ايضا كل الشكر لكل اساتذة المنتدى الذين يقفوا دائما فى المقدمة لحل المشكلات يارك الله فيكم جميعا وجعلكم مصباح منير فى طريق المعرفة
هادى محمد المامون سالم قام بنشر نوفمبر 28, 2013 قام بنشر نوفمبر 28, 2013 بسم الله الرحمن الرحيم اخى حمادة باشا ربنا يبارك لك السلام عليكم
نادر سليم قام بنشر نوفمبر 28, 2013 الكاتب قام بنشر نوفمبر 28, 2013 السلام عليكم ورحمة الله اعلم انى اثقلت عليكم اساتذتى الكرام القائمة التى قام بعملها أستاذ حمادة لا توصف الا بانها روعة ولكن اريد التعديل بحيث استطيع اضافة بلد جديدة فى عامود البلد وتظهر فى combo box وايضا بالنسبة للمحافظات والمناطق وهنا سؤال ايضا عن طريق جلب الكود المقابل لللاسم كاملا وبنفس التنسيقات التى قام بها الاستاذ حمادة بارك الله فيكم قائمة2.rar
حمادة عمر قام بنشر نوفمبر 28, 2013 قام بنشر نوفمبر 28, 2013 السلام عليكم الاخ الحبيب / ابو السوالم بارك الله فيك كنت اعددت لك الرد علي هذا الطلب في وقت سابق منذ وضعه في موضوع الفاتورة ولكن نظرا لبعض الظروف لدي لم استطع ارفاق الملف وعندما دخلت للموضوع وجدت ان التأخير عليك جاء بأكبر فائدة ... فلقد جاءك الحل من الكبير القدير / هادى محمد المامون سالم ... جزاه الله خيرا ... الغائب الحاضر عنا واقول له طالت غيبتك عنا استاذنا العزيز ... لعله خيرا ان شاء الله وايضا الحل الرائع للمتميز دائما صاحب الردود الرائعة الحبيب / حمادة باشا ... جزاه الله خيرا وبعد اذن الاساتذة ... احب ان اشارك الموضوع بالنسبة لطلبك اخي الكريم ** بالنسبة لاضافة بلد جديد قم باضافة اسم البلد في عمود الدول سيظهر معك في ComboBox1 وقمت بزيادة امتداد القائمة في العمود الاول والخاص بالبلاد الي 100 دوله في الكود Private Sub UserForm_Initialize() في السطر myList1 = .Range("A2:A100") ثم اضافتها في حدث الـ ComboBox1 والموجود بالاكواد في Private Sub ComboBox1_Change() وذلك باضافة السطرين التالين كما في الملف المرفق ... وذلك مع تحديد العمود المحدد للقائمة للمحافظات من السطر الثاني col = "P" حيث ان المقصود هنا هو العمود P Case Is = "الامارات" col = "P" ونفس الحال بالنسبة للمحافظات ولكن في الـ ComboBox2 وذلك ايضا في الكود الخاص به Private Sub ComboBox2_Change() وذلك من خلال الاسطر التالية ايضا كما في السابق وكما في المرفق Case Is = "امارات1" col = "R" Case Is = "امارات2" col = "T" حيث ان كل عامود يمثل المحافظات المقصود فالعمود R يمثل محافظات امارات 1 والعمود T يمثل محافظات امارات2 وهكذا .... ارجو ان اكون قدمت شيئا ولو بسيط للافادة تقبلوا خالص تحياتي واعتذر عن الاطاله وجزاكم الله خيرا قائمة منسدلة11.rar 1
نادر سليم قام بنشر نوفمبر 28, 2013 الكاتب قام بنشر نوفمبر 28, 2013 أستاذ حمادة عمر بارك الله فيك مما تقدمونة يطلق علية درر ومقتنيات لا ينساها احد قمت برفع قائمة من نوع اخر ارجو المساعدة فيها لان البيانات التى سأ طبق عليها ذلك النموذج طويله جدا مما يصعب عمل كل بيان فى عمود ولكم جزيل الشكر على سعة صدركم
نادر سليم قام بنشر نوفمبر 28, 2013 الكاتب قام بنشر نوفمبر 28, 2013 السلام عليكم الاخ الحبيب / ابو السوالم بارك الله فيك كنت اعددت لك الرد علي هذا الطلب في وقت سابق منذ وضعه في موضوع الفاتورة ولكن نظرا لبعض الظروف لدي لم استطع ارفاق الملف وعندما دخلت للموضوع وجدت ان التأخير عليك جاء بأكبر فائدة ... فلقد جاءك الحل من الكبير القدير / هادى محمد المامون سالم ... جزاه الله خيرا ... الغائب الحاضر عنا واقول له طالت غيبتك عنا استاذنا العزيز ... لعله خيرا ان شاء الله وايضا الحل الرائع للمتميز دائما صاحب الردود الرائعة الحبيب / حمادة باشا ... جزاه الله خيرا وبعد اذن الاساتذة ... احب ان اشارك الموضوع بالنسبة لطلبك اخي الكريم ** بالنسبة لاضافة بلد جديد قم باضافة اسم البلد في عمود الدول سيظهر معك في ComboBox1 وقمت بزيادة امتداد القائمة في العمود الاول والخاص بالبلاد الي 100 دوله في الكود Private Sub UserForm_Initialize() في السطر myList1 = .Range("A2:A100") ثم اضافتها في حدث الـ ComboBox1 والموجود بالاكواد في Private Sub ComboBox1_Change() وذلك باضافة السطرين التالين كما في الملف المرفق ... وذلك مع تحديد العمود المحدد للقائمة للمحافظات من السطر الثاني col = "P" حيث ان المقصود هنا هو العمود P Case Is = "الامارات" col = "P" ونفس الحال بالنسبة للمحافظات ولكن في الـ ComboBox2 وذلك ايضا في الكود الخاص به Private Sub ComboBox2_Change() وذلك من خلال الاسطر التالية ايضا كما في السابق وكما في المرفق Case Is = "امارات1" col = "R" Case Is = "امارات2" col = "T" حيث ان كل عامود يمثل المحافظات المقصود فالعمود R يمثل محافظات امارات 1 والعمود T يمثل محافظات امارات2 وهكذا .... ارجو ان اكون قدمت شيئا ولو بسيط للافادة تقبلوا خالص تحياتي واعتذر عن الاطاله وجزاكم الله خيرا قائمة منسدلة11.rar أستاذ حمادة عمر لك كل الشكر على اهتمامك واعانك الله ووفقك فيما تريد
حمادة باشا قام بنشر نوفمبر 29, 2013 قام بنشر نوفمبر 29, 2013 أخي الحبيب أستاذنا/ حمادة عمر السلام عليكم ورحمة الله وبركاته حضرتكم دائما صاحب الردود الأجمل - جزاك الله ألف خير أوضحت الأمر بما لا يدع مجال لمزيد قول تقبل تحياتي الأخ الكريم/ابو السوالم علي نحو ماقال أستاذنا/ حمادة عمر - يمكنك الزيادة كما تشاء في كافة البنود بتعديل النطاقات ومن ثم وضع كود الإجراء المطلوب داخل جملة Select Case - والخيار لك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.