sesli mesaj hakkında

[fıratugur_]

merhaba,ekteki dosyada a sütunundaki dolu hücreleri sesli mesajla sırayla okunmasını istiyorum ben sadece bi hücreyi yapabildim amatüm dolu hücreleri sırayla nasıl yapılacak yada yapılabilirmi öğrenmek istedim.

teşekkürler

 

[gokhanbek]

Sub SİNYAL()
On Error Resume Next
If Cells(Target.Row, "A11") <> "" Then
For i = 7 To 77
msg = Range("A" & i).Value
CreateObject("WScript.Shell").RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\" & _
"Ext\Stats\{22D6F312-B0F6-11D0-94AB-0080C74C7E95}\iexplore\AllowedDomains\212.15.10.146\", Empty

Set ie = CreateObject("internetexplorer.application")

ie.navigate "http://212.15.10.146:8877/demo.aspx"

Do While ie.Busy: DoEvents: Loop
Do Until ie.ReadyState = 4: DoEvents: Loop

ie.document.all.TextBox1.Value = msg

ie.document.all.Button1.Click
Next i
End If

End Sub

 

[Korhan Ayhan]

Merhaba,

Foruma kod eklerken lütfen "code" tagını kullanın. Mesaj yazdığınız penceredeki "#" işaretine tıkladığınızda otomatik olarak eklenecektir.

Kodlar bu şekilde daha düzenli görünmektedir.

 

[fıratugur_]

teşekkürler

teşekkürler,ama malesef sesler aynı anda başlıyor birbirine giriyor.Her mesaj arasında 5 er saniye olabilirmi.

 

[gokhanbek]

Application.Wait (Now + TimeValue("0:00:05"))

uygun bir yere bu kodu ekleyiniz.

 

[fıratugur_]

çözüldü

Teşekkür ederim.Elinize sağlık.

 

[gokhanbek]

ne önemi var bu siteden öğrendiğimizi bu sitede paylaşıyoruz.