vocal reading Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
Function seslioku(sy)
On Error Resume Next
sesx$ = ThisWorkbook.Path & "" & "numaralı cihazın kaydı yapılmıştır.wav" '--Eklenen kod----
dz1 = Array(" ", "bir", "iki", "üç", "dört", "beş", "altı", "yedi", "sekiz", "dokuz")
dz2 = Array(" ", "on", "yirmi", "otuz", "kırk", "elli", "altmış", "yetmiş", "seksen", "doksan")
dz3 = Array(" ", "", "bin", "milyon", "milyar", "trilyon", "katrilyon")
tur = Len(sy)  3
kalan = Len(sy) Mod 3
k = 2
sayı = ""
For i = 1 To tur
sya = Mid(sy, (Len(sy) - k), 3)
sy1 = dz1(Mid(sya, 3, 1)): sy2 = dz2(Mid(sya, 2, 1)): sy3 = dz1(Mid(sya, 1, 1))
Select Case Mid(sya, 1, 1)
Case 1
sy3 = "yüz"
Case Is > 1
sy3 = sy3 & " " & "yüz"
End Select
If i = 2 Then
Select Case Val(sya)
Case 0
sy1 = ""
Case 1
sy1 = "bin"
Case Is > 1
sy1 = sy1 & " " & "bin"
End Select
Else
birim = dz3(i)
End If
If Val(sya) > 0 Then
sayı = sy3 & " " & Trim(sy2) & " " & sy1 & " " & birim & " " & Trim(sayı)
k = k + 3
Else
k = k + 3
End If
Next i
If kalan = 0 Then
f = sayı
p = InStr(1, LTrim(f), " ")
Do While p > 0
s = Trim(Mid(f, 1, p))
f = LTrim(Mid(f, p, Len(f)))
p = InStr(1, f, " ")
ses$ = ThisWorkbook.Path & "" & s & ".wav"
Call PlaySound(ses$, 1, 0)
Loop
If f  "" Then
s = f
ses$ = ThisWorkbook.Path & "" & s & ".wav"
Call PlaySound(ses$, 1, 0)
End If
Call PlaySound(sesx$, 1, 0) '-------Eklenen kod------
Exit Function
Else
End If
syb = Mid(sy, 1, kalan)
sy11 = dz1(Mid(syb, kalan, 1)): sy22 = dz2(Mid(sy, kalan - 1, 1))
If tur = 1 Then
Select Case Val(Mid(syb, 1, 2))
Case 0
sy11 = ""
Case 1
sy11 = "bin"
Case Is > 1
sy11 = sy11 & " " & "bin"
End Select
Else
birim1 = dz3(tur + 1)
End If
sayı = sy22 & " " & sy11 & " " & birim1 & " " & sayı
f = LTrim(sayı)
p = InStr(1, f, " ")
Do While p > 0
s = Trim(Mid(f, 1, p))
f = LTrim(Mid(f, p, Len(f)))
p = InStr(1, f, " ")
ses$ = ThisWorkbook.Path & "" & s & ".wav"
Call PlaySound(ses$, 1, 0)
Loop
If f  "" Then
s = f
ses$ = ThisWorkbook.Path & "" & s & ".wav"
Call PlaySound(ses$, 1, 0)
End If
Call PlaySound(sesx$, 1, 0) '-------Eklenen kod------
End Function

No	Macro Name
1	vocal reading
2	excel operators hk
3	message box samples
4	download files from the internet
5	self-closing book perfect in 10 seconds
6	still inputbox
7	add toolbars to combo box and select from there
8	Create your own extensions and functions in excel
9	After entering data into a1 divided by 100
10	do not open excel file after a certain date
11	list all toolbars
12	yes and no macro execution
13	add sheet / page automatically in cell a1
14	opening and preparing text file 3
15	reading textbox aloud
16	reading history as text to macro.
17	names of all commandbars and their Turkish equivalents
18	Throwing data in the Clipboard and reading / inserting data into memory
19	is there a printer installed
20	Show / Hide custom Toolbars & Remove / Restore Excels Local Toolbars

Excel Free Macros (VBA)

Vocal Reading

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords