SendKeys F4 / F2

[mahmoud nasr alhasany]

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

تحية طيبة وبعد

اريد مساعدتى فى تشغيل

تشغيل مفتاح F4 في حدث فورم VBA Excel والانتقال الى القائمة فى LISTBOX1

وايضا تشغيل مفتاح F2 في حدث فورم VBA Excel والانتقال الى Userform1 الى حدث combobox1 من خلال تحديد الاسم الموجود فى LISTBOX1 فى Userform2

كمثال فى Userform2

يوجد textbox3  اضع اول حرف او اسم فى textbox3   وعند الضغط على مفتاح F4 ينتقل الى اول الاسماء فى   LISTBOX1

وعند تحديد اسم فى LISTBOX1 وعند الضغط على مفتاح F2 ينتقل بعد تحديد الاسم فى LISTBOX1  الى Userform1 الى حدث combobox1

وشكرا

 

شاشة عميل بحث.xlsm

[أبومروان]

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

اتفضل استاذ @mahmoud nasr alhasany ارجو ان يكون هذا هو المطلوب وليك الاكواد المستخدمه 

 

لتفعيل f4 يجب الوفقوف علي textbox3 وسيتم تشغيل الكود المجود فيه كما ترا ادناه

Private Sub TextBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 115 Then
CommandButton1_Click
' هنا ضع الامر الذي تريد تنفيذه بعد الضغط على زر انتر
End If
End Sub

لتفعيل f4 يجب الوفقوف علي ListBox1 وسيتم تشغيل الكود المجود فيه كما ترا ادناه

Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 113 Then
CommandButton2_Click
' هنا ضع الامر الذي تريد تنفيذه بعد الضغط على زر انتر
End If
End Sub

 

 

شاشة عميل بحث.xlsm

شاشة عميل بحث.xlsm

[mahmoud nasr alhasany]

الف شكر استاذ / أبومروان  انه يعمل

 

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

شاشة عميل بحث(1).xlsm

تم تعديل نوفمبر 25 بواسطه mahmoud nasr alhasany

[أبومروان]

شغاله عندي بدون ادني مشكله 

[mahmoud nasr alhasany]

تم عمل المطلوب

قنم بوضع الاسم   فى الفورم 2     textbox3 ثم قم باختيار من لوحة المفاتيح الامر  F4 للانتقال بوضع الاسم الذى تم اختيارة فى listbox1 من خلال انتقال الاسهم من لوحة المفاتيح بعد الامر مباشرة F4  وعند اختيار الاسم المحدد  قم باختيار الامر  F2 للانتقال الى الفورم 1 وشكرا

شاشة عميل بحث(1).xlsm

تم تعديل نوفمبر 26 بواسطه mahmoud nasr alhasany