شكرا لك
الزر الاول
Sub magdi()
Application.Speech.Speak Cells(2, 1).Value, speakasync:=True, purge:=True
End Sub
الزر الثانى
Sub magdi1()
Application.Speech.Speak Cells(3, 1).Value, speakasync:=True, purge:=True
End Sub
الزر الحر
Sub magdi()
DoEvents
Application.Speech.Speak "alsalam alaykom we rahmat allh webrakato", speakasync:=True, purge:=True
MsgBox "السلام عليكم ورحمة الله وبركاته "
End Sub