مساعدة: إنتقال تلقائي بين الخلايا حسب الإجابة

[Candle]

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

 

أخواني الإعزاء.. بداية اهنيكم على هذا المنتدى الأكثر من رائع وافتخر بتواجدي معاكم.

 

سؤالي هو كيف اجعل المؤشر ينتقل لخلية حسب الأجابة المدخله؟

 

ارفقت لكم ملف توضيحي.

 

 

شكراً مقدماً

Sample.zip

[عبدالله باقشير]

السلام عليكم

 

استخدم الكود التالي في موديل الورقة Sheet1

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A5:A17")) Is Nothing Then
    If Target.Value = 1 Then
        Target.Offset(0, 1).Select
    ElseIf Target.Value = 0 Then
        Target.Offset(0, 2).Select
    End If
End If
End Sub

شاهد المرفق 2010

Sample.rar

[Candle]

السلام عليكم

 

استخدم الكود التالي في موديل الورقة Sheet1

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A5:A17")) Is Nothing Then
    If Target.Value = 1 Then
        Target.Offset(0, 1).Select
    ElseIf Target.Value = 0 Then
        Target.Offset(0, 2).Select
    End If
End If
End Sub

شاهد المرفق 2010

 

 

شكراً جزيلاً اخي عبدالله باقشير.. جزاك الله الف خير.

بس يا اخي أذا اجيت امس الخلية حق إجابة (نعم او لا) تظهر لي هذي الرسالة اللي بالمرفق.

 

حصلت كود بس اشتي افهمه.. في مسج بوكس وشروط بس با ياخذ مني وقت.

 

إذا حصلت حل للرسالة بايكون احسن.

تم تعديل فبراير 4, 2014 بواسطه Candle

[عبدالله باقشير]

السلام عليكم

 

ضع هذا السطر بداية الكود

If Target.Cells.Count <> 1 Then Exit Sub

تحياتي

[Candle]

السلام عليكم

 

ضع هذا السطر بداية الكود

If Target.Cells.Count <> 1 Then Exit Sub

تحياتي

 

ميه ميه ياباشا...

 

اشكرك بعنف. :)