تفعيل الاختصارات في اوامر حدث الفورم

[أنس دروبي]

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

أساتذتنا وعلمائنا الكرام في عالم اكسل المتميز

الموضوع من عنوانه نرجو أن يكون واضحاً ومفهوماً للجميع فقد تعبت صراحة من البحث حول الموضوع في الموقع وفي المواقع العربية والأجنبية الأخرى

وكانت النتائج هي تفعيل الاختصارات بالنسبة للماكرو في حدث فتح الملف وليس في حدث الفورم

 وهذا لانريده 

الذي نريده لو تكرمتم وتفضلتم علي به هو كالأتي :

في الملف المرفق لدينا:

1- يوزر فورم عدد (2) 

2- في اليوزر فورم الاول موجود فيه (فريم عدد (1)) وفي اليوزر فورم الثاني موجود فيه (فريم عدد(2))

3-بداخل كل فريم في اليوزر فورم الثاني موجود (ليبيل وتكست بوكس)

المطلوب علمائنا وأساتذتنا الكرام تعديل الكود الذي قمت بأنشاءه أو أنشاء فكرة جديدة في اليوزر فورم الاول بحيث عند الضغط على مفتاح (ctrl+a) يقوم باظهار اليوزر فورم الثاني

وفي نفس الوقت يقوم بتنفيذ عمل الليبيل

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

نسأل الله عزوجل أن يكون الشرح في المطلوب واضح 

تقبلو تحياتي 

 

تفعيل الأختصارات في أوامر الفورم.rar

تم تعديل أكتوبر 16, 2015 بواسطه أنس دروبي
تعديل

[ياسر العربى]

تفضل اخي هل يفي هذا بالغرض

اضغط انتر بعد فتح الفورم واحد

سيظهر الفورم اتنين اضغط الزر يظهر الفريم

 

تفعيل الأختصارات في أوامر الفورم.rar

[أنس دروبي]

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

بارك الله فيك وجزاك الله كل خير أخي ياسر العربي على المشاركة 

لكن طلبي كان أن نقوم بتفعيل اختصارات لوحة المفاتيح وليس زر انتر فقط وانما الاختصار مشترك بين زرين في لوحة المفاتيح(ctrl+a)

الكود الذي قدمته يفيد في اشياء اخرى

بارك الله فيك مرة أخرى

نريد فكرة أخرى حول الحل بالاختصارات مع اكثر من زر في لوحة المفاتيح

تقبل تحياتي ومروري

 

تم تعديل أكتوبر 16, 2015 بواسطه أنس دروبي
تنسيق

[الـعيدروس]

السلام عليكم

اخي الفاضل انس دروبي اطلع على المرفق

مجرد تحايل على خاصيه Application.OnKey

علها تفي بالغرض

 

 

تفعيل الأختصارات في أوامر الفورم111.rar

تم تعديل أكتوبر 17, 2015 بواسطه الـعيدروس

[ياسر خليل أبو البراء]

أخي الغالي العيدروس

منور المنتدى بمشاركاتك الرائعة والمدهشة

صراحة عمل رائع وفي منتهى الدقة

ممكن بس أعرف فايدة الجزء دا في الكود

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    A = KeyCode: B = Shift
    If B <> 0 Then
        If B = 2 And A <> 17 Then
            Call SetControlFocus(A, B)
        End If
    End If
End Sub

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

وأين هو الإجراء المسمى

SetControlFocus

[الـعيدروس]

الاخ الحبيب ياسر خليل

الكود الذي اشرت اليه كان ضمن الملف المرفق الاساسي لدى الاخ انس

 

[أنس دروبي]

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

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

كود أكثر من رائع واحترافي في العمل 

طريقة دمج الوقت مع الاختصار شي جميل جداً

 اخي الحبيب العيدروس لو تكرمت عليي وتفضلت توجد ملاحظتين حول الكود:ف

الملاحظة الأولى: عند تشغيل الفورم الأول والضغط على مفتاح الاختصار (ctrl+a) يتم تنفيذ عمل الكود بشكل صحيح وهو ظهور الفورم الثاني والفريم ايضاُ

ولكن عند اغلاق الفورم الثاني والظغط مرة أخرى على مفتاح الاختصار لا يظهر شي ولا يتم العمل

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

لو سمحت نرجو الاهتمام حول الملاحظتين اذا كان يوجد لهم حل وفكرة حول حلهم 

الملاحظة الاولى مهمة جداً جرب ملفك ولاحظ عدم الاستجابة عند الضغط مرة اخرى

نريد حل توجد فيه الدنميكية والعمل الاحترافي 

بارك الله فيك عمل أكثر من رائع بصراحة ولكن طويل بعض الشيء

[أنس دروبي]

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

هل من أفكار جديدة اساتذتنا وعلمائناً حول الموضوع ِ

الموضوع قيم وجميل للجميع لديه تكلمة تجعله مهم في البرامج على اكسل

تقبلو تحياتي ومروي 

 

[الـعيدروس]

السلام عليكم

اخي الفاضل انس دروبي

ارجوا ان تكون فهمت عمل الكود

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

عند فتح الفورم كي يعمل معنا Application.onkey واضافه بسيطه

تأخير ثانيه لفتح الفورم الثاني كي يعمل امر اظهار Frem2

على العموم جرب المرفق امل ان يعمل معك بكلتا الحالات

تفعيل الأختصارات في أوامر الفورم222.rar

[أنس دروبي]

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

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

ولكن يمكن شرحي كان غير واضح في  المشاركة السابقة 

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

شاهد الملف المرفق عند فتحه سوف تغلق واجهة اكسل ويظهر الفورم الاول وعند الضغط على مفتاح الاختصار تكون النتيجة صفر ولا يتم تنفيذ الامر المطلوب

مثالك واضح ومفهوم من البداية حول تفعيل واجهة اكسل بدل من واجهة الفورم ولكن اريد العكس 

في الملف المرفق عدلت الخاصية في الفورم الاول show model:false وتم تنفيذ الكود مرة واحدة فقط وعند النقر على الفورم تكون النتيجة سلبية

اتمنى ان تكون وصلت الفكرة واعتذر عن الاطالة 

بارك الله فيك مرة أخرى

 

تفعيل الأختصارات في أوامر الفورم2.rar

تم تعديل أكتوبر 17, 2015 بواسطه أنس دروبي
تعديل

[الـعيدروس]

السلام عليكم

شاهد تجربتي على ملفك

 

تجربه.rar

انت استخدمت خاصية الاخفاء

Application.Visible = False

والكود يتعامل مع Application 

بهذه الحاله لن يعمل الكود

لي محاولات اخرى ان زبطت سوف ارفقها

[أنس دروبي]

السلام عليكم 

أخي وحبيبي العيدروس 

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

أتعبتك معاي سامحني ولكن نظراً لاهمية الموضوع للجميع وهو أن كافة مواضيع الاختصارات في الموقع كانت مبدأ تنفيذها على حدث الملف وليس حدث تشغيل الفورم من غير واجهة اكسل 

الفيديو الذي ارفقته غير واضح في التطبيق ........... سامحني 

الذي نريده تشغيل الاختصار في حدث الفورم وواجهة اكسل مخفية ليست ظاهرة  (مثل اختصارات البرامج الاخرى في أجهزة الكمبيوتر )

أرجو أن تكون وصلت الفكرة بشكل صحيح 

نرجو عرض الافكار والمحاولات حول الموضوع لو سمحت 

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

 

 

تم تعديل أكتوبر 17, 2015 بواسطه أنس دروبي
تعديل

[الـعيدروس]

السلام عليكم

اطلع على المرفق اخي انس ان شاء الله يفي بالغرض

تفعيل الأختصارات في أوامر الفورم3.rar

[أنس دروبي]

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

الله اكبر هذا هو الكود الذي نريده بكل معنى الكلمة 

والله يعجز اللسان عن وصف الاداء والنظام والاحترافية وكل شي

علماً الكود يوجد صعوبات في الفهم ولكن كود على مستوى احترافي في العمل 

بارك الله فيك أخي واستاذنا العيدروس على هذا العمل الرائع 

الان نقول ان الموضوع اصبح مجاب واستطنعا اجبار اكسل واخضاعه لمجال الاختصارات 

أحببت أن أرفع طريقة اخرى تفي بالغرض وهي تعديل كودك السابق بحيث يعمل في حال اخفاء واجهة اكسل وظهور الفورم

التعديل هو باضافة الكود في حدث الفورم الاول 

Private Sub Frame1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
A = KeyCode: B = Shift
    If B <> 0 Then
        If B = 2 And A <> 17 Then
           Acz True
Else
Exit Sub
End If
End If
End Sub

 

بحيث نستطيع تنفيذ أكثر من أختصار على الفورم الواحد 

أخي لوسمحت أن تشرحلي بعض من الكود الذي ارفقته في الملف السابق

كيف نستطيع أن نغير مفتاح الاختصار مثلا بدال حرف(a) حرف (c or d or g or any key other)

شاهد الملف المرفق فيه التعديل الذي وضعته في المشاركة

تقبل تحياتي ومروري والله أنه كود رائع وجبار

أذا كان يوجد أفكار اخرى حول الموضوع نرجوعرضها لكي تعم الاستفادة

 

 

تفعيل الأختصارات في أوامر الفورم222.rar

[الـعيدروس]

السلام عليكم

 

كيف نستطيع أن نغير مفتاح الاختصار مثلا بدال حرف(a) حرف (c or d or g or any key other)

 

في حدث UserForm_Activate

حطيت اشاره 

Call RegisterHotKey(mlngHwnd, HOTKEY_ID1, MOD_CONTROL, vbkeyA) ' Ctrl+A

غير vbkeyA  الى  vbKeyB

وباامكانك اضافة اوامر اخرى 

اضن تعديلك للكود السابق مختصر وافضل

 

[ياسر خليل أبو البراء]

أخي الحبيب العيدروس

جربت ملفك ولكن على أوفيس 64 بت . قمت ببعض التغييرات في أسطر الإعلان حتى يتوافق مع نظام 64 بت ولكن يبدو أنه بحاجة إلى تعديلات أخرى

بعد التعديلات الملف لا يعمل وتأتي رسالة إغلاق التطبيق ..

هل من الممكن العمل على نظام 64 بت ؟؟

[الـعيدروس]

اخي الفاضل ياسر خليل

نظامي 64 بت والكود يعمل

[ياسر خليل أبو البراء]

أنا أعمل على نظام الويندوز 10  64 بت

والأوفيس أيضاً نسخة 2013 64 بت ..

[الـعيدروس]

السلام عليكم

الاخ الحبيب ياسر خليل

جرب المرفق ان شاء الله يعمل معك

تفعيل الأختصارات في أوامر الفورم4.rar