اظهار الخلية فى التكست بوكس

[زهرة122]

اساتذتى الكرام السلام عليكم معى مشكلة بسيطة فى الملف المرفق ارجو مساعدتى ولكم خالص الشكر والتقدير 

التكست بوكس.xlsm

[lionheart]

Private Sub CommandButton1_Click()
    ActiveCell.FormulaR1C1 = "10"
    TextBox1.Text = ActiveCell.FormulaR1C1
    ActiveCell.Offset(1, 0).Select
End Sub

 

[زهرة122]

رااااااااااااائع جزاك الله خيرا

[زهرة122]

هل فى امكانية عند الضغط على البوتون يتم نطق القيمة المدخلة

[lionheart]

Private Sub CommandButton1_Click()
    ActiveCell.FormulaR1C1 = "10"
    TextBox1.Text = ActiveCell.FormulaR1C1
    ExcelSpeak TextBox1.Text
    ActiveCell.Offset(1, 0).Select
End Sub

Function ExcelSpeak(sIn As String) As Boolean
    Application.Speech.Speak sIn, 0, 0, 0
    ExcelSpeak = True
End Function

 

[زهرة122]

جميل جزاكم الله خيرا. اكثر من رائع

[زهرة122]

لو سمحتوا شىء بسيط فى المرفق جزاكم الله خيرا

التكست بوكس (1).xlsm

[lionheart]

Post a new question in new thread