لدى ملف به اربع اكواد اريد تنفيذ الكود بقائمة منسدلة بدل الازرار

[abouelhassan]

اساتذتى لدى ملف به اكواد بموديول وتعمل جيدا بالازار

اريد طريقة استدعاء الكود من خلال القائمة المنسدلة بدل الزر مع الشكر 

اخيكم

قائمة منسدلة.xls

[ابراهيم الحداد]

السلام عليكم ورحمة الله

بفرض جعل القائمة المنسدلة قى الخلية "E3"

ضع الكود التالى فى حدث الورقة و تغيير الاكواد  Code1 , Cod2 .... الخ باسماء الاكواد التى لديك

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$E$3" Then Exit Sub
If Target.Value = "اجمالى" Then
Call Code1
ElseIf Target.Value = "دراسة" Then
Call Code2
ElseIf Target.Value = "بحث" Then
Call Code3
ElseIf Target.Value = "صح" Then
Call Code4
Else
Exit Sub
End If
End Sub

 

[abouelhassan]

بارك الله فيك استاذى الفاضل

نفذت الكود والنتيجة تم تم

ربنا يحفظك اشكرك للرد والله

احترامى

الله ينور استاذى

تم  تم بس انا مش عارف اعمل قائمة منسدلة فى E3

حفظك الله وبار لك وبك  كل عام وحضرتك بكل الخير

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

[ابراهيم الحداد]

السلام عليكم ورحمة الله

الملف و به القائمة المنسدلة جاهزة

قائمة منسدلة.xls

[abouelhassan]

الحمد لله استاذى تم عملها اشكرك والله من كل قلبى 

بارك الله فيك  كل الشكر والتقدير

احترامى اخيك

استاذى ابراهيم الحداد

سامحنى حاولت تطبيق الكود لفتح يوزر فورم لم يعمل

اليوزر فورم به كود اسمه aaa طبقت الكود ولكنه لم يفتح الفورم

احتاج مساعدتك مع خالص شكرى وتقديرى واحترامى لشخصكم الكريم

[ابراهيم الحداد]

السلام عليكم ورحمة الله

اخى لا يمكن العمل دائما على التخمين فقد كان لابد من ارسال ملف

و تعاملت معك رغم ان هذا مخالف لقواعد المنتدى

اذا لم تستطغ حل المشكلة يرجى ارسال نسخة من مصغرة من الملف الاصلى لحل المشكلة

هذا و الله ولى التوفيق

[abouelhassan]

انا اسف استاذى ابراهيم الحداد

والله حقك عليا انا الكود عجبنى جدا الفكرة واردت اظهار الفورم من خلال القائمة المنسدلة وحاولت وفشلت

انا اسف والله استاذى بارك الله فيك وبك

1.xls

[ابراهيم الحداد]

السلام عليكم ورحمة الله

استبدل الكود السابق فى حدث الورقة بهذا الكود

لاحظ ان القائمة المنسدلة فى الملف الاخير اصبحت فى الخلية "E1" و ليس الخلية "E3"

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

اليك الكود

{Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$E$1" Then Exit Sub
If Target.Value = "اجمالى" Then
Call Code1
ElseIf Target.Value = "دراسة" Then
Call Code2
ElseIf Target.Value = "بحث" Then
Call Code3
ElseIf Target.Value = "صح" Then
Call Code4
ElseIf Target.Value = "اظهار الفورم" Then
Call aaa
Else
Exit Sub
End If
End Sub

 

[abouelhassan]

حفظك الله استاذنا بارك الله لك وبك 

كل عام وحضرتك بكل خير واسرتك الكريمة

حفظك الله

احترامى