حسين مامون قام بنشر أبريل 6, 2017 مشاركة قام بنشر أبريل 6, 2017 السلام عليكم اخواني خبراء الاكسيل من فظلكم اريد كود مثلا عنما انتهي من ادخال بيانات في الكومبوبوكس ثم النقر على زر انتر في لوحة المفاتيح يحدد زر كومند بوطون جزاكم الله خيرا وادامكم في خدمتنا رابط هذا التعليق شارك More sharing options...
شوقي ربيع قام بنشر أبريل 6, 2017 مشاركة قام بنشر أبريل 6, 2017 Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then ' هنا ضع الامر الذي تريد تنفيذه بعد الضغط على زر انتر End If End Sub 1 رابط هذا التعليق شارك More sharing options...
حسين مامون قام بنشر أبريل 6, 2017 الكاتب مشاركة قام بنشر أبريل 6, 2017 2 ساعات مضت, شوقي ربيع said: Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then ' هنا ضع الامر الذي تريد تنفيذه بعد الضغط على زر انتر End If End Sub السلام عليكم استاذ شوقي ربيع الف الف شكر اخي حبدا لو تكرمت وانهيت الكود اعني بعد ادخال بيانات في الكومبوبوكس ثم النقر على زر انتر في لوحة المفاتيح اريد تنشيط commandbutton1 كيف ذلك بلغة vba اكسيل رابط هذا التعليق شارك More sharing options...
حسين مامون قام بنشر أبريل 6, 2017 الكاتب مشاركة قام بنشر أبريل 6, 2017 3 ساعات مضت, حسين مامون said: السلام عليكم استاذ شوقي ربيع الف الف شكر اخي حبدا لو تكرمت وانهيت الكود اعني بعد ادخال بيانات في الكومبوبوكس ثم النقر على زر انتر في لوحة المفاتيح اريد تنشيط commandbutton1 كيف ذلك بلغة vba اكسيل اخي هل الموضوع مغهوم رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر أبريل 6, 2017 مشاركة قام بنشر أبريل 6, 2017 بعد اذن اخي الحبيب / شوقي ربيع .. جزاه الله خيرا هل هذا هو المقصود اخي الكريم ma7mon.rar 1 رابط هذا التعليق شارك More sharing options...
حسين مامون قام بنشر أبريل 7, 2017 الكاتب مشاركة قام بنشر أبريل 7, 2017 اخي اشكرك على اهتمامك ساجرب وارد انشاء الله تحياتي رابط هذا التعليق شارك More sharing options...
حسين مامون قام بنشر أبريل 7, 2017 الكاتب مشاركة قام بنشر أبريل 7, 2017 (معدل) منذ ساعه, حسين مامون said: اخي اشكرك على اهتمامك ساجرب وارد انشاء الله تحياتي استاذى الفاضل جزاك الله خيرا هذا ما اريد طرحت الموضوع لانني اريده في فورم انشاته لادخال بيانات عدادات الماء واريد الانتقال من combobox الى commandbutton دون الحاجة الماوس لان الموضوع يتعلق بادخال بيانتات كثيرة عموما طلبي من حضرتكم طرح مثل هذا في موضوعاتكم لنستفيذ الف الف شكر لك اخي حمادة عمر واخي شوقي ربيع ومهما قلنا وكتبنا لن تعطيكم حقكم فى الشكر والتقدير ياريت اخواني تشرحو لي هذه If KeyCode = 13 Then تحياتي تم تعديل أبريل 7, 2017 بواسطه حسين مامون 1 رابط هذا التعليق شارك More sharing options...
شوقي ربيع قام بنشر أبريل 7, 2017 مشاركة قام بنشر أبريل 7, 2017 السلام عليكم الشكر موصول لاخي حمادة بخصوص شرح الكود في حدث KeyDown الخاص بالكمبوبكس (يقصد به عند الصغط على اي زر من ازرار الكيبورد) يوجد متغير افتراض معرف داخل هذا الحدث اسمه KeyCode وضيفته الرجوع لكل حرف او رقم ...اي زر من ازرار الكببورد برقم معين بحيث هذا الرقم يكون افتراضي لا يمكن تغيره في هذا الرابط جدول لكل ازرار الكيبور وما يقابلها من ارقام https://msdn.microsoft.com/en-us/library/aa243025(v=vs.60).aspx اما بخصوص الكود If KeyCode = 13 Then كما نعام ان If دالة شرطية فمعنى هذا الكود هو كأنك تقول للفيوجل عند الضغط على زر 13 و هو نفسه الزر ENTER نفذ لى كذا ارجو ان يكون الشرح واصح تحياتي 2 رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر أبريل 7, 2017 مشاركة قام بنشر أبريل 7, 2017 جزاكم الله خيرا وتقبلوا خالص تحياتي 2 رابط هذا التعليق شارك More sharing options...
حسين مامون قام بنشر أبريل 7, 2017 الكاتب مشاركة قام بنشر أبريل 7, 2017 (معدل) الف شكر لاساتذة شوقي ربيع و حمادة عمر الشرح واضح وان شاء الله تجزون باعمالكم هذه تحياتي تم تعديل أبريل 7, 2017 بواسطه حسين مامون 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها