انتهاء المؤشر عند خلية معينة

[skyblue]

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

الشكر والتقدير موصول لادارة الموقع .

اريد ان يبدا المؤشر من الخلية A1 ثم b1 ثم c1 الى d1 ثم ينتقل الى b2-a2..وهكذا ( على افتراض اننا حددنا لكل خلية 4 ارقام ) :)

وتقبلوا تحياتي

[محمد حجازي]

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

أرجو أن يكود الكود التالي هو ماتريد بالضبط:

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Column
  Case 1
    Cells(Target.Row, 2).Select
  Case 2
    Cells(Target.Row, 3).Select
  Case 3
    Cells(Target.Row, 4).Select
  Case 4
    Cells(Target.Row + 1, 1).Select
  End Select
End Sub

وبالنسبة لعدم السماح بإدخال أكثر من أربعة أرقام ، يمكنك معالجة ذلك عن طريق قاعدة التحقق من الصحة .

بالتوفيق

[skyblue]

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

أرجو أن يكود الكود التالي هو ماتريد بالضبط:

Private Sub Worksheet_Change(ByVal Target As Range)<!--QuoteEBegin-->Select Case Target.Column<!--QuoteEBegin-->  Case 1<!--QuoteEBegin-->    Cells(Target.Row, 2).Select<!--QuoteEBegin-->  Case 2<!--QuoteEBegin-->    Cells(Target.Row, 3).Select<!--QuoteEBegin-->  Case 3<!--QuoteEBegin-->    Cells(Target.Row, 4).Select<!--QuoteEBegin-->  Case 4<!--QuoteEBegin-->    Cells(Target.Row + 1, 1).Select<!--QuoteEBegin-->  End Select<!--QuoteEBegin-->End Sub

وبالنسبة لعدم السماح بإدخال أكثر من أربعة أرقام ، يمكنك معالجة ذلك عن طريق قاعدة التحقق من الصحة .

بالتوفيق

<{POST_SNAPBACK}>

نعم يااستاذي محمد حجازي هذا هو الكود اللي اطلبه وطبقته فاشتغل بشكل ممتاز وذهبت الى قائمة التحقق وحددت للخلية 4 اعداد فقط فاشتغل بشكل جيد .. ولكن من باب الاستفادة هل يمكن ان تعدل لي في الكود حتى ينتقل المؤشر اليا الى نفس الخلايا دون ان استخدم enter

واخيرا ان كلمة شكرا اعتبرها قليلة في حق انسان رائع مثلك سخر علمه لخدمة الناس عبر هذا الموقع الرائع .....اللهم بارك لمحمد حجازي ولجميع القائمين على هذا الموقع .

(y)

[محمد حجازي]

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

حسب علمي فإنه لا يمكن عمل ذلك ، ولكن هناك فكرة في ذهني سأجربها علها تنجح ولكني غير متفائل بنجاحها.