الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

هل ممكن عمل قائمة منسدلة وباختيارها يتم الاختيار من قائمة اخري منسدلة

مغلق
بدأه المشاعر14 في 24 أبريل 2007 · 8 رد · 3,776 مشاهدة · في طلب و دراسة وشرح البرامج
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

اخواني واخواتي

لدي برنامج علي الاكسل واود ان اعمل به التالي

فهل يوجد حل في اكسل لعمل هذي الطريقة فاتمنى ان تدلوني عليا

وهي لدي قائمة بها 6 شركات

وبمجرد الاختيار من هذي القائمة

يتم الانتقال الي القائمة المنسدلة الاخري لاختيار منها

قائمة الفروع المنتيه لهذي الشركة

مثال بسيط

لو فرضنا شركة المجد بها 3 فروع بالدمام والرياض وجدة

وشركة العلا بها 2 فرعان

وما اريده

عندي اختياري من القائمة المنسدله اسم الشركة 00المجد تطهر بالقائمة الاخري التي يمكن من خلالها اختيار اي فرع

واريد شرح لعمل هذه الطريقة

وتقبلوا مني كل الاحترام والتقدير

#2

بسم الله الرحمن الرحيم

شاهد الملف المرفق يوجد به طلبك

السلام عليكم

Company.rar

#3

ما شاء الله عليك اخي..

حل جميل..

وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ

مواضيعي ومشاركاتي

#4

فعلا هذا هو طلبي لكن يا اخي الغالي

ماهي الطريقة لعمل ذلك

تقبل مني كل الاحترام والتقدير

#5

بسم الله الرحمن الرحيم

ما هو الذى لم تفهمه فى الكود

السلام عليكم

#6

اخي الغالي

الذي لم افهمه بالكود

كيف تمت العملية بالخطوات عزيزي

اما من ناحية الكود

فهو حيرني من ناحية محاولة نقله

تقبل مني كل الاحترام والتقدير

#7

بسم الله الرحمن الرحيم

اخى الكريم

لقد كان سؤالك لانشاء قائمتان , القائمه الأولى للشركات و القائمه الثانيه للفروع , و حتى لا يختلط الامر معك سوف اشرح لك الان طريقه انشاء القائمه الاولى

ستقوم برسم ComboBox عن طريق شرط أدوات "Control ToolBox"

قم انشاء Module ثم اكتب فيه هذا الكود


Sheets("Add").ComboBox1.Clear
For i = 1 To 2
Sheets("Add").ComboBox1.AddItem (Sheets("Add").Cells(2, i))
Next
End Sub
Sub Auto_open()

هذا الكود يقوم بالتفعيل التلقائى عند فتح الملف كما هو ظاهر من العنوان

السطر الاول لمسح محتويات ComboBox1 الموجود داخل ورقه عمل "Add"

ثم استخدمت جمله For.....Next التكراريه لاضافه الشركات الموجوده بالصف الاول و الثانى "لاحظ اذا اردت زياده مجال الاعمده الخاصه بالشركات استبدل الرقم 2 الموجود بعد To الى 3 او 4 كما تريد" 0

ثم الكود الاساسى

		Sheets("Add").ComboBox1.AddItem (Sheets("Add").Cells(2, i))

يقوم هذا الكود باضافه بيان الخليه بالصف الثانى و العمود الاول "i" ثم يكرر هذه الاضافه فيضيف بيان الخليه بالصف الثانى و العمود الثانى "i" , و كذا حتى ينتهى عداد "i"

و تحياتى لك

السلام عليكم

#8

أخي الغالي

هادي سالم

يعطيك العافيه

واسال الله العلي القدير

ان يكون هذا العمل والمساعدة

في موازين حسناتك وان ينفع بك

وان يكثر الله من امثالك

تقبل مني كل الاحترام والتقدير

#9

الله يعطيك العافية

شيء جميل وطريقة ذكية

قالَ رَسُولُ الله صلى الله عليه وسلم:

"مَنْ لم يَشْكُرِ النّاسَ لَمْ يَشكُرِ الله "

حديث حسن صحيح

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…