فضلا ما الخطأ في هذا الكود

[عاطف عبد العليم محمد]

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

حاولت بهذا الكود عمل تدريب على جدول الضرب فإن تمت الاجابة يسمع صوت رسالة اما بالصواب او الخطا

ولكن في الواقع يظهر الصوت عند تغيير اي خلية ويظل يتكرر      فضلا التكرم بالحل

Private Sub Worksheet_Change(ByVal Target As Range)

For Each cell In Range("f7:f500")
   If ActiveCell.Value = ActiveCell.Offset(-2, 0).Value * ActiveCell.Offset(-4, 0).Value Then
   Application.Speech.Speak "correct answer"
   
   Else
  Application.Speech.Speak "Wrong answer try again"

End If
Next
    End Sub

 

جدول الضرب.rar

تم تعديل يونيو 9, 2017 بواسطه عاطف عبد العليم محمد

[ياسر خليل أبو البراء]

وعليكم السلام

جرب الكود التالي وإذا لم يكن المطلوب ارفق ملف لتتضح الصورة

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell As Range
    
    If Not Intersect(Target, Range("F7:F500")) Is Nothing Then
        If Target.Value = Target.Offset(0, -2).Value * Target.Offset(0, -4).Value Then
            Application.Speech.Speak "Correct Answer"
        Else
            Application.Speech.Speak "Wrong Answer Try Again"
        End If
    End If
End Sub

 

[عاطف عبد العليم محمد]

اخي ابو البراء  

جزاك الله خيرا  ، حلك هو المطلوب ويكفي 

وان شئت ان تزيدنا كرما    فعند مسح الاجابات مثلا  يظهر رسالة type mismath فهل يوجد حل لمنع هذه الرسالة من الظهور

وكل عام وانتم بخير

[ياسر خليل أبو البراء]

ضع جملة On Error Resume Next في بداية الكود لتلافي الخطأ ...

أو يمكن معرفة سبب الخطأ ومعالجته برمجياً .. الخيار لك

[عاطف عبد العليم محمد]

وفقك الله أخي  ياسر خليل أبو البراء  وجزاك الله خيرا