اكمال الكود : المطلوب تحديد الخلية التالية للادخال بعد الضغط على Enter بدون استخدام الماوس

[أبوأحمد]

السادة جهابذة الإكسل ..

مرفق ملف اكسل بكود قمت بتصميمه لطباعة طلبية بشكل منسق باستخدام طريقة الاستدعاء للأصناف التي أتعامل بها من ملف اكسيل أخر ( مرفق الملفين ) .

 

طريقة عمل الملف :

- عندما ادخل كود الصنف ( مثلا : 11 ، 12 ، 13 ، 14 ، 15 ) يقوم بتعبئة خانة اسم الصنف و الوحدة تلقائيا .

- لإضافة أسطر اضافية للجدول اضغط على السهم بالأسفل فيضيف أسطر إضافية للجدول بنفس البرمجة و بنفس التنسيق.

 

المطلوب  :

أريد أنه بعد أن أقوم بتعبئة خلية (كود الصنف) و أضغط زر Enter أن يتوجه التحديد لخلية ( الكمية ) بنفس الصف ثم عندما أدخل الكمية و أضغط Enter أن يتوجه التحديد لخلية ( كود الصنف ) بالسطر التالي و هكذا تلقائيا بدون أن أستخدم الماوس في كل مرة لتحديد الخلية المطلوبة ...

 

 

آمل عمل المطلوب على نفس الملف  المرفق بدون أن يؤثر ذلك على طريقة عمل الملف و بدون أي تغير في تنسيقات الملف .. مع الشكر سلفا للجميع .

طلبية.rar

[أبو إيمان]

أخى الفاضل نأمل تغيير أسمك للغة العربية  حتى يسهل التواصل بيننا حيث أنه تم الإشارة إلى ذلك من قبل وقام الأستاذ القدير / رجب جاويش بالتأكيد على ذلك أيضا 

وشكرا

[صلاح الصغير]

الموضوع مهم وجديد

اعتقد يمكن عمله بكود

و اساتذة الاكواد ما اكثرهم و انفعهم

[محمود_الشريف]

أخى الكريم

نؤكد على ما طلبه الأستاذ القدير // رجب جاويش

بضرورة تغيير اسم الظهور الى اللغة العربية تطبيقا والتزاما بقوانين وسياسات المنتدى

وما أكده أيضا الأستاذ الكريم / ابو ايمان

 

واليكم اخى الكريم

تجربة لما طلبتم بالمرفقات

يجب ادخال بيانات حتى يعمل الكود

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

طلبية.rar

[سليم حاصبيا]

السلام عليكم 

اليك الحل بأبسط الأمور

اليك ما يجب عمله
1-	اضغط على file
2-	Option>>> advanced
3-	في الخانة  a fter pressing enter ,move selection
4-	اختر ما تراه مناسباً

[طارق محمود]

السلام عليكم

أخي الكريم

ضع الكود التالي في حدث الورقة

 

Private Sub Worksheet_Change(ByVal Target As Range)
 r = Target.Row

 If Target.Column = 3 Then Cells(r, 6).Activate
 If Target.Column = 6 Then Cells(r + 1, 3).Activate
     
End Sub

تفضل الملف وبه الكود

 

===============================

شرح سريع

الكود في حدث التغيير بالورقة Worksheet_Change

نسمي صف الخلية التي حدث بها تغيير r

ثم من خلال سؤالين شرطيين

1- إذا كان عمود الخلية المتغيرة =3 أي أنه العمود C فلتنشط الخلية التي بنفس الصف في العمود 6 أي أنه العمود F اللي به الكمية

2- إذا كان عمود الخلية المتغيرة =6 أي أنه العمود F فلتنشط الخلية التي بالصف التالي r + 1 في العمود 3 أي أنه العمود C اللي به كود الصنف

 

 الإحتمالات الأخري غير هذين العمودين سيخرج الكود عن العمل ولايفعل شيئا ، أي أن الأمور تظل طبيعية

طلبية.rar

[أبو إيمان]

كود رائع وجميل للأستاذ الجليل طارق محمود جزاه الله خيرا

وبعد إذنه

لمزيد من المعرفة وإثراءاً للموضوع

أكواد متنوعة لطريقة إدخال في الخلايا المتتالية للأستاذ القدير رجب جاويش

http://www.officena.net/ib/index.php?showtopic=53767&hl=

[أبوأحمد]

الأستاذ / محمود الشريف

بارك الله فيك و شكر الله لك و بارك لك في وقتك و حياتك

 

أستاذنا المهندس / طارق محمود

 

كودك رائع جدا .. و هو المطلوب بالضبط

و الأجمل منه طريقة شرحك الواضحة و المنظمة جزاك الله خيرا ،،

أنت بطريقة الشرح هذه لا تعطينا السمك فقط بل تعلمنا كيف نصطاده أيضا

أسأل الله أن يجعل كل كود و شرح تكتبله أن يحسب لك عند الله علماً نافعا ينتفع به .

 

سلمت يمينك و بارك الله لك في علمك و أشربك الله شربة هنية من نبينا محمد صلى الله عليه و سلم .