اضافة ازرار انتقال وازرار لمعرفة الخانات الخالية الجزء 15

مشكور أستاذ مجدي

اى خدمة

شكرا

عفوا

الله يحفظك

الف شكر

thangs

thangs

الزر الاول



الكود:
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