استخدام ال keypress

[rahekk]

هل يمكن استخدام الضغط على مفتاح واحد فقط ليتم تنفيذ ماكرو بمعنى لا نستخدم زر ال shift او ctr+shift فقط اريد استخدام مفتاح وليكن حرف p مثلا

if keypress=112 then

[rahekk]

هل من رد اكرمكم الله

[omar elhosseini]

الاخ rahekk

طيعا يمكن ذلك

شاهد المرفق

ويجب ملاحظة خطوتين هامتين هما :

1 - عند تعين احد الاحرف الهجائية يجب ان يكتب بالاحرف الصغيرة وليس الكبيرة كالاتى :

a b p = صح

A B P = خطأ

Sub Test_Key_P()
Application.OnKey "p", "MyMacro"
End Sub

Sub MyMacro()
ActiveCell.Offset(2, 1).Select
End Sub

2 - يجب وضع اسم ماكرو تعين المفاتيح فى حدث فتح الملف حتى تعمل المفاتيح المحدده عند فتح الملف كالاتى :

Private Sub Workbook_Open()
Test_Key_P
End Sub

OnKey.rar

[rahekk]

بارك الله فيك دائما ياأبو تامر يامبدع شكرا