كود تفعيل اختصار في إكسل (ctrl+)

[أنس دروبي]

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

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

 

 مثلاً اختصار ما مركب من (ctrl+a) مثلاً لكي يقوم بإظهار تكست بوكس في الفورم

بحيث يكون الإختصار مركب من ctrl أو alt او shift

بحثت في المنتدى ولكن وجدت كود إختصار من رقم واحد فقط ليس مركب من زرين في لوحة المفاتيح

مثلاً (حرف A) فقط يقوم بإظهار فورم أو يقوم بتفيذ كود معين

نريد كود اختصار مركب من CTRL + حرف أخر

 

ارجو ان تكون وضحت الفكرة والمطلوب وشكراً

أخوكم أنس دروبي 

تفعيل إختصار ctrl+.rar

[أنس دروبي]

السلام عليكم

اساتذتي هل من مجيب على الموضوع

[عبدالله باقشير]

السلام عليكم

 

جرب الكود التالي

اضغط   (ctrl+a)

Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 1 Then MsgBox KeyAscii
End Sub

[أنس دروبي]

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

أخي عبد الله الله يجزيك الخير 

فعلاً الكود اعطى المطلوب

لكن هذا في حالة أذا ضغطنا على زر ctrl مع حرف 

نريد بحالة إذا ضغطنا على زر alt مع حرف 

فماهو الكود

وشكراً

أخوكم أنس دروبي

[أنس دروبي]

أخي عبد الله جربت الكود وعدلته بحيث أنني أريد عند الضغط مثلاً على (ctrl+a) أن يظهر الفورم رقم 2 وانا في الفورم رقم 1

وفتحت الفورم رقم1 وضغطت على (ctrl+a)

ولم يظهر الفورم رقم2 

فما هو الحل

هذا هو التعديل :

 

Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If KeyAscii = 1 Then UserForm2.Show

End Sub

 

تم تعديل ديسمبر 6, 2013 بواسطه Creation World

[أبو حنــــين]

السلام عليكم

استعمل هذا بالضغط على كنترول  لظهور الفورم الثاني

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = 17 Then UserForm2.Show

End Sub

تم تعديل ديسمبر 7, 2013 بواسطه أبو حنين

[أنس دروبي]

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

أخي أبو حنين الله يبارك فيك 

عذراً عن التأخير ولكن وضعت الكود في اليوزرفورم رقم 1 

بحيث أذا فتحت الفورم رقم 1 وضغطت على كنترول + حرفa

لم يظهر لي الفورم رقم 2

لم أعرف ماهو العطل صراحة أو أين الخطأ أرجو التطبيق على المف المرفق في المشاركة رقم 1

وورفعه 

وشكراً

أخوكم أنس دروبي