مساعدة بعمل UserForm

[itch_az]

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

الرجاء من الاخوة بالمنتدي المساعدة

 

 

1- كييفية تخصيص زر في الكيبورد يجعل اليزور فورم تفتح مثلا F5 أو + 

2 - شرح المالتي بيدج في اليوزر فورم و كيفية التحكم فيها و نقل أزرار التنقل بين صفحات المالتي بيدج من أعلي الصفحة إلي جانب اليوزر 

أي تصبح أسماء صفحات المالتي بيدج فوق بعض مش جنب بعض

 

و جعل الجزء المتبقي أسفل أسماء صفحات المالتي بيدج بلون مختلف

 

 

[شوقي ربيع]

انضر الصور

[itch_az]

جزاك الله خيراً 

و شكراً علي سرعة الرد الاستاذ / شوقي ربيع

 

و أرجو الإفادة بشأن الطلب الأول و هو إستدعاء اليوزر فورم بزر من الكيبورد مثل F5 أو + 

و أيضاً إزاي أمنع المستخدم من الضغط علي أزرار معينة بالكيبورد

[حمادة عمر]

السلام عليكم

الاخ الكريم / itch_az

 

بارك الله فيك

اولا كل الشكر والتقدير للاخ الحبيب / شوقي ربيع ... جزاه الله خيرا

يمكنك اخي الكريم من استخدام زر مخصص او معين لفتح الفورم بالطريقة التاليه

قم بعمل كود لاظهار الفورم في مودل ليكون الكود كالتالي ( مثلا ) :-

Sub sama()
UserForm1.Show
End Sub

ثم قم بوضع الكود التالي في حدث الملف عند الفتح لحجز الاختصار خاصتك

ملاحظة : حيث ان هذه الازرار التي تقصدها محجوزة من قبل مايكروسوفت لاختصارات الاكسيل العادية (( يفضل استخدام اختصارات اخري مثل Ctrl+Shift+اي حرف آخر ))

 

يتم وضع الكود التالي لاستدعاء الحجز لزر المختار عند فتح الملف بوضع الكود التالي في حدث الملف ThisWorkbook كما يلي

وفي الكود التالي سيكون الاختصار هو الزر  F3  لاظهار الفورم المحدد ... ويمكنك تغييره كما تريد

Private Sub Workbook_Open()
Application.OnKey "{F3}", "sama"
End Sub

ارجو ان يفي هذا بطلبك

جزاك الله خيرا

 

 

زر مخصص لفتح اليوزرفورم.rar

[itch_az]

جزاك الله خيراً و الله ما قصرت

الأستاذ / حمادة عمر 

عايز اتقل عليكوا شوية 

و أسئل عن منع إستخدام أزار معينة بالكيبورد للمستخدم

مثل زر start windows

[حمادة عمر]

السلام عليكم

الاخ الكريم / itch_az

 

بارك الله فيك

حيث ان هذه الازرار التي تقصدها محجوزة من قبل الشركات المصممه للنسخ windows

وكذلك ايضا هناك اختصارات كثيرة محجوزة لشركة مايكروسوفت في الاوفيس

وهذا علي حسب علمي .... وبالفعل انا لم احاول استخدام زر مثل start windows

وسأقوم بالمحاوله في عمل كود بهذا الغرض ... وابلغك بالنتيجة ... او يكون الرد من احد الاساتذة الآخرين الكبار

جزاك الله خيرا

[شوقي ربيع]

السلام عليكم

اشكر الاخ حمادة لتلبيت طلب الثاني  الاخ itch_az

كما اعتذر من الاخ itch_az

لاني لم البي طلبه الثاني  وذالك لمشكلت النت عندي فلم ارى الطلب بصدق

اما الطلب الاخير بخصوص  start windows

يوجد كود vb6على  ما اذركر   سأحاول تركيبه في الاكسل ان استطعت

[itch_az]

الاستاذ / شوقي ربيع لا داعي للإعتذار فكل الشكر لك و للأستاذ / حمادة عمر للمساعدة و علي طول صبركم

و انا في إنتظار محاولتكم 

و مرة أخري كل الشكر لكم

تم تعديل مايو 2, 2013 بواسطه itch_az

[itch_az]

أيه أخبار المحاولات 

و شكراً لتعبكم معايا