اريد كود لادخال بيانات الفورم

[إبراهيم ابوليله]

الاخوه الافاضل

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

اريد كود

يقوم بادخال بيانات الفورم

الى الشيت

بواسطة الضغط على مفتاح

ctrl+enter

[إبراهيم ابوليله]

اخى واستاذنا عبدالله

اشكرك على الاهتمام

بارك الله فيك

بالفعل

انى اريد ان اعرف كيفيه استخدام

ctr+int

---------------

تم عمل ملف تجريبى

اريد عند فتح الفورم

والضغط على ctr+int

يتم تفعيل الزر

ctr+int.rar

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

السلام عليكم

 

جرب هذا

Private Sub CommandButton1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 10 Then
    MsgBox "hima"
End If
End Sub

تحياتي

[إبراهيم ابوليله]

اخى واستاذنا عبد الله باقشير

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

اشكرك على الاهتمام

بارك الله فيك

بالفعل هذا ما كنت اريده

دائما ما يظهر العظماء فى الاوقات المناسبه

اشكرك من اعماق قلبى

--------------------------------------

ولكن اسمح لى بان تضيف لنا بعض الاكواد

والازرار الخاصه بها

يعنى مثلا لو استخدمنا الرقم

1--- اى الازرار الخاصه به

وهكذا بالنسبه لبقيه الارقام ان امكن

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

السلام عليكم

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

 

هكذا تقدر تعرف رقم اي زر تضغط عليه

Private Sub CommandButton1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    MsgBox KeyAscii
End Sub

جرب واشعرنا بالنتيجة

 

تحياتي

[إبراهيم ابوليله]

اخى واستاذنا عبدالله

بارك الله فيك اخى على

امدادنا بالمعلومات الجميله دى

اشكرك من اعماق قلبى

واسأل الله ان يزيدك من فضله وعلمه

ويديم عليك الصحه والعافيه

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

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

وكل عام وانتم بخير

[إبراهيم ابوليله]

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

اخى واستاذنا

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

لقد تفضلت انت سابقا بوضع كود

لاستخدام ازرار الكى بورد فى ادخال البيانات

Private Sub CommandButton1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 10 Then
    MsgBox "hima"
End If
End Sub

ولكنى عند التنفيذ الفعلى

واجهتنى مشكله

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

بمعنى اننى لو لدى تيكست بوكس

اقوم بادخال البيانات فيها

وما زال مؤشر الماوس بداخل التيكست

كيف يتم تنفيذ الكود

ارجو المساعده