speech lib konuşan excel

[abdullahss]

ekteki dosyada b2 hücresi degiştiginde konuşturmayı yapamadım yardımcı olabilicek arkadaşlar bir bakabiirseniz çok mutlu olurum teşekkürler.

 

[efeksk]

Tam olarak istediğinizi anlamış değilim. İstediğiniz b2 hücresine yazılan metni, Örn; Apple kelimesini sesli olarak okunuş şeklindeki "epıl" gibi bilgisayar tarafından seslendirilmesini mi istiyorsunuz?

 

[abdullahss]

her soru sor adlı dügmeye bastıgımızda b2 hücresine gelen kelimenin seslendirilmesi çünkü ingilizce sadece ezberle olmuyor kulak alışkanlıgıda çok önemli umarım yapılır herkez için güzel bir kaynak olacak.

 

[abdullahss]

bu şekilde yaptım oldu umarım bi çok arkadaşımızın işine yarar

Dim konus As New SpeechLib.SpVoice
Private Sub CommandButton5_Click()
Set sayfa = Sayfa1
Ssatır = 3640
Başla:
Range("b2:b10") = ""

Randomize
Cells(3, "b") = sayfa.Cells(Int(Ssatır * Rnd + 1), "c")
Cells(4, "b") = sayfa.Cells(Int(Ssatır * Rnd + 1), "c")
Cells(5, "b") = sayfa.Cells(Int(Ssatır * Rnd + 1), "c")
Cells(6, "b") = sayfa.Cells(Int(Ssatır * Rnd + 1), "c")
'---------------------------------------------------------------
Satır = Int(Ssatır * Rnd + 1)
Range("b1") = sayfa.Cells(Satır, "a") 'doğru cevabı şıkka yerleştir
'konus.Speak Range("b1")
Range("b1").Speak
Range("b2") = sayfa.Cells(Satır, "b")
dogru = Fix(Rnd * 5) + 2
If dogru = 2 Then GoTo Başla
Cells(dogru, "b") = sayfa.Cells(Satır, "c")
CommandButton1.Enabled = True
CommandButton2.Enabled = True
CommandButton3.Enabled = True
CommandButton4.Enabled = True
End Sub

 

[abdullahss]

yanlış olmuş eksik kod var diyor d butonu hata verdi bu defa

 

[abdullahss]

konu günceldir