نقل المؤشر تلقائيا بعد اكتمال صف محدد

[ماجدجلال]

اخواني الاعزاء

لدي ملف ويمثل كل صف سجل واجد صعوبة عند الانتقال من نهاية الصف السابق الي بداية الصف الجديد وذلك طبعا عند ادخال سجل جديد

ولتوضيح السؤال اكثر : ابدا الكتابة من الخلية B وانتهي الي الخلية M مرورا ببقية الخلايا بينهما وذلك باستخدام السهم الذي يشير الي جهة اليسار . وما اطمع الية هو كود يعمل عندما انقر علي هذا السهم يعمل علي نقل التركيز من الخلية M الي الخلية B وكانة يفتح لي سجل جديد .

شكر لكم

[محمد حجازي]

السلام عليكم ...

مشكلتك يا أخي ليست بحاجة لكود ، فقط ألغي قابلية خلايا الجدول للحماية ومن ثم احمي الورقة مع إزالة قابلية تحديد الخلايا المؤمنة ، تماماً كما في المثال الموجود في الرابط التالي:

http://www.officena.net/ib/index.php?showtopic=5496

وعلى أية حال فإذا كنت تريد كود لمعالجة هذه المشكلة أخبرني لأكتبه لك.

[ماجدجلال]

شكرا لك استاذي العزيز

وارجو منك التكرم بواضع الكود فهذا سيهل عملي كثير

جزاك اللة كل خير وفرج اللة عنك هموم الدنيا والاخرة

[محمد حجازي]

السلام عليكم ...

للأسف الحدث KeyDown غير متاح في الهدف Worksheets ، ولكن وعلى أية حال فقد يفيدك الكود التالي (رغم عدم قناعتي به):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo 1
Static LastCells As Range
If LastCells.Row = Target.Row And LastCells.Column = 13 And Target.Column = 14 Then
 Cells(Target.Row + 1, 2).Select
End If
1 Set LastCells = Target
End Sub

ولا تنسى لصقه في الورقة المطلوب تطبيق الإجراء عليها.

تم تعديل فبراير 5, 2005 بواسطه محمد حجازي

[ماجدجلال]

سيدي الفاضل

الكود نجح وقام بعمل المطلوبة منة علي اكمل وجة والحمد للة

ولكن لماذا انت غير مقتنع بة ؟

هل لعدم توفر خاصية KeyDown في الاكسيل .

جزاك اللة عنا كل خير

[محمد حجازي]

السلام عليكم ...

السبب في عدم قناعتي بالكود هو أنه لا يتأثر فقط بالضغط على الأسهم وإنما يتأثر أيضاً عندما تقوم بتحديد الخلايا بواسطة الفأرة.