حسين مامون قام بنشر أبريل 6, 2017 قام بنشر أبريل 6, 2017 السلام عليكم اخواني خبراء الاكسيل من فظلكم اريد كود مثلا عنما انتهي من ادخال بيانات في الكومبوبوكس ثم النقر على زر انتر في لوحة المفاتيح يحدد زر كومند بوطون جزاكم الله خيرا وادامكم في خدمتنا
شوقي ربيع قام بنشر أبريل 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
حسين مامون قام بنشر أبريل 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 اكسيل
حسين مامون قام بنشر أبريل 6, 2017 الكاتب قام بنشر أبريل 6, 2017 3 ساعات مضت, حسين مامون said: السلام عليكم استاذ شوقي ربيع الف الف شكر اخي حبدا لو تكرمت وانهيت الكود اعني بعد ادخال بيانات في الكومبوبوكس ثم النقر على زر انتر في لوحة المفاتيح اريد تنشيط commandbutton1 كيف ذلك بلغة vba اكسيل اخي هل الموضوع مغهوم
حمادة عمر قام بنشر أبريل 6, 2017 قام بنشر أبريل 6, 2017 بعد اذن اخي الحبيب / شوقي ربيع .. جزاه الله خيرا هل هذا هو المقصود اخي الكريم ma7mon.rar 1
حسين مامون قام بنشر أبريل 7, 2017 الكاتب قام بنشر أبريل 7, 2017 اخي اشكرك على اهتمامك ساجرب وارد انشاء الله تحياتي
حسين مامون قام بنشر أبريل 7, 2017 الكاتب قام بنشر أبريل 7, 2017 (معدل) منذ ساعه, حسين مامون said: اخي اشكرك على اهتمامك ساجرب وارد انشاء الله تحياتي استاذى الفاضل جزاك الله خيرا هذا ما اريد طرحت الموضوع لانني اريده في فورم انشاته لادخال بيانات عدادات الماء واريد الانتقال من combobox الى commandbutton دون الحاجة الماوس لان الموضوع يتعلق بادخال بيانتات كثيرة عموما طلبي من حضرتكم طرح مثل هذا في موضوعاتكم لنستفيذ الف الف شكر لك اخي حمادة عمر واخي شوقي ربيع ومهما قلنا وكتبنا لن تعطيكم حقكم فى الشكر والتقدير ياريت اخواني تشرحو لي هذه If KeyCode = 13 Then تحياتي تم تعديل أبريل 7, 2017 بواسطه حسين مامون 1
شوقي ربيع قام بنشر أبريل 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
حسين مامون قام بنشر أبريل 7, 2017 الكاتب قام بنشر أبريل 7, 2017 (معدل) الف شكر لاساتذة شوقي ربيع و حمادة عمر الشرح واضح وان شاء الله تجزون باعمالكم هذه تحياتي تم تعديل أبريل 7, 2017 بواسطه حسين مامون 2
الردود الموصى بها