كود لزر التنقل بين الشيتات

[مجاهد2013]

السلام عليكم إخوتي

في الشاشة الرئيسية عندي أزرار و أريد عند الضغط على أي زر التنقل بين مجموعة من الشيتات

و ذلك بادراج كود vba داخل موديل كما هو مرفق

 لكن في هذه الحالة عند الضغط على زر قبل الامتحان  تظهر كل الشيتات علما أني أريد يكون ظهورها 
كالأتي :

Classeur1.xlsm

[أ / محمد صالح]

تفضل أخي الكريم

تم إنشاء إجراء لكل زر يقوم هذا الإجراء بإنشاء قائمة مختصرة حسب رقم العمود

وفي أثناء إنشاء القائمة المختصرة يقرأ الخلايا الموجودة في الصفوف 22 وما بعدها في العمود المحدد ويضيفها إلى القائمة

وتم إنشاء إجراء لكل شيت لفتحها

بالتوفيق

mas_Classeur1.xlsm

[مجاهد2013]

الف شكر أستاذ محمد صالح تحياتي

أستاذ صالح  هل يمكن تغيير تنسيق الخط في القواءم المتحصل عليها و كذا تغيير FaceId لكل قائمة مثال مرفق

[أ / محمد صالح]

أعتقد أن المطلوب الأول مرتبط بنمط القائمة المختصرة في اكسل عموما

وبالنسبة لتغيير faceid فهي مجموعة من الأرقام غير كما تشاء

ويمكنك استعمال هذا الملف للتعرف على أشكال وأرقام أول 4000 من رموز الاكسل

الرموز تظهر في تبويب جديد 

FaceID2.zip

[مجاهد2013]

جزاك الله كل خير أستاذ