السلام عليكم ورحمة الله وبركاته
حاولت بهذا الكود عمل تدريب على جدول الضرب فإن تمت الاجابة يسمع صوت رسالة اما بالصواب او الخطا
ولكن في الواقع يظهر الصوت عند تغيير اي خلية ويظل يتكرر فضلا التكرم بالحل
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