اذهب الي المحتوي
أوفيسنا

القوائم المخصصه


2saad

الردود الموصى بها

إخواني أعضاء المنتدي الكرام بعد سلام الله عليكم ورحمته وبركاته

هل يوجد زر عند الضغط عليه ينبثق منه صندوق أو قائمة منسدلة بها أزرار عند الضغط علي أي زر منهم يستدعي كود معين

ولكم جزيل الشكر

رابط هذا التعليق
شارك

نعم يوجد هذا وأكثر في الأكسل ولكن 

سؤالك أخي فيه غموض , فالمرجو منك طرح مشكلتك مع الشرح والتفصيل وإرفاق ملف بالمشكلة ثم يتم حلها من قبل  الأعضاء بأي طريقة كانت وليس بالضرور أن يكون الحل كما ذكرت ( زر عن الضغط عليه ينتثق صندوق .... )

تقبل تحياتي

رابط هذا التعليق
شارك

 شكرا لرد حضرتك

يعني كما بالملف المرفق يوجد أزرار كثيرة في الورقة الأولي كلها لجلب أكواد لتنفيذ أمر معين

بس شكلها كثير في الورقة

أنا عايز كل الأزرار تكون في قائمة منسدلة أو اي شئ آخر  وأنا أختار من القائمة المنسدلة ما اريده ويتم التنفيذ

يا ريت يكون المطلوب وصلتجربة.xlsm

رابط هذا التعليق
شارك

تفضل 

Private Sub Worksheet_Change(ByVal Target As Range)
 
If Not Intersect(Target, Range("Q2")) Is Nothing Then
 'خلية التنفيد
    Select Case Range("Q2")
 'اسم الماكرو __________________تعريف الماكرو
           Case "Code1": بحث_واستبدل
 
           Case "Code2": معاينة_مع_الطباعة
 
           Case "Code3": نسخة_طبق_الأصل_من_الشيت

           Case "Code4": saad5
           
           Case "Code5": saad6

           Case "Code6": saad7

    
    End Select
    
End If
End Sub

 

تجربة V1.xlsm

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information