Scribd
Upload
57 views11 pages

Coding

This document contains code for an Excel VBA macro that announces customer queue numbers out loud using sound files. It contains modules and subroutines that: 1) Reset data and display an intro message when a reset button is pressed. 2) Increment the queue number, extract the number components, and play the corresponding sound files to announce the number out loud (e.g. "one hundred twenty three"). 3) Similar to step 2 but for a second queue displayed in a different cell.

Uploaded by

Muhammad Nurhadi
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
57 views11 pages

Coding

This document contains code for an Excel VBA macro that announces customer queue numbers out loud using sound files. It contains modules and subroutines that: 1) Reset data and display an intro message when a reset button is pressed. 2) Increment the queue number, extract the number components, and play the corresponding sound files to announce the number out loud (e.g. "one hundred twenty three"). 3) Similar to step 2 but for a second queue displayed in a different cell.

Uploaded by

Muhammad Nurhadi
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 11

MODULE 1

SUB RESET()
Dim pes As String
pes = MsgBox("Anda akan reset data antrian?", vbYesNo, "Info")

[D2] = "LOKET 1"


[F2] = "LOKET 2"
If Int([z1] / 2) = ([z1] / 2) Then [d8] = "Informasi Lebih Lanjut Kunjungi: www.youtube.com/c/tutorassaif"
If Int([z1] / 2) <> ([z1] / 2) Then [d8] = "File ini dapat didownload dari: www.youtube.com/c/tutorassaif"
[d8:f8].Merge
[d8:f8].HorizontalAlignment = xlCenter
[d8].Font.ColorIndex = 2
[d8].Interior.ColorIndex = 9
Rows("8:8").RowHeight = 26
Range("d8:f8").Borders.Weight = xlThick

If pes = vbYes Then


[d4:l4] = ""
[z1] = ""
Else
Exit Sub
End If

SUB SETT()
UserForm1.Show

MODULE 2
SUB PANGGIL1()
[z1] = [z1] + 1
[d4] = [z1]
[d4].Select
If [z1] >= 1000 Then UserForm1.Show
If [z1] >= 1000 Then End
'1 s.d. 19
Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\nomor-urut.wav"")"
If [z1] = 1 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\satu.wav"")"
If Application.And(Right([z1], 1) = 2, [z1] < 20) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\dua.wav"")"
If Application.And(Right([z1], 1) = 3, [z1] < 20) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\tiga.wav"")"
If Application.And(Right([z1], 1) = 4, [z1] < 20) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\empat.wav"")"
If Application.And(Right([z1], 1) = 5, [z1] < 20) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\lima.wav"")"
If Application.And(Right([z1], 1) = 6, [z1] < 20) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\enam.wav"")"
If Application.And(Right([z1], 1) = 7, [z1] < 20) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\tujuh.wav"")"
If Application.And(Right([z1], 1) = 8, [z1] < 20) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\delapan.wav"")"
If Application.And(Right([z1], 1) = 9, [z1] < 20) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\sembilan.wav"")"
If [z1] = 10 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\sepuluh.wav"")"
If [z1] = 11 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\sebelas.wav"")"

If Application.And([z1] > 11, [z1] < 20) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\belas.wav"")"
If [z1] < 20 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\loket.wav"")"
If [z1] < 20 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\satu.wav"")"

If [z1] < 20 Then End

If Len([z1]) = 1 Then [aa1] = ""


If Len([z1]) = 1 Then [ab1] = ""
If Len([z1]) = 1 Then [ac1] = [z1]

If Len([z1]) = 2 Then [aa1] = ""


If Len([z1]) = 2 Then [ab1] = Left([z1], 1)
If Len([z1]) = 2 Then [ac1] = Right([z1], 1)

If Len([z1]) = 3 Then [aa1] = Left([z1], 1)


If Len([z1]) = 3 Then [ab1] = Mid([z1], 2, 1)
If Len([z1]) = 3 Then [ac1] = Right([z1], 1)

If [z1] = 10 Then [aa1:ac3] = ""


If [z1] = 11 Then [aa1:ac3] = ""

If [aa1] = 1 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\seratus.wav"")"


If [aa1] = 2 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\dua.wav"")"
If [aa1] = 3 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\tiga.wav"")"
If [aa1] = 4 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\empat.wav"")"
If [aa1] = 5 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\lima.wav"")"
If [aa1] = 6 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\enam.wav"")"
If [aa1] = 7 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\tujuh.wav"")"
If [aa1] = 8 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\delapan.wav"")"
If [aa1] = 9 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\sembilan.wav"")"

If [aa1] > 1 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\ratus.wav"")"

If Application.And([ab1] = 1, [ac1] = 0) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &


ActiveWorkbook.Path & "\sepuluh.wav"")"
If Application.And([ab1] = 1, [ac1] = 1) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\sebelas.wav"")"
If Application.And([ab1] = 1, [ac1] = 2) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\dua.wav"")"
If Application.And([ab1] = 1, [ac1] = 3) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\tiga.wav"")"
If Application.And([ab1] = 1, [ac1] = 4) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\empat.wav"")"
If Application.And([ab1] = 1, [ac1] = 5) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\lima.wav"")"
If Application.And([ab1] = 1, [ac1] = 6) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\enam.wav"")"
If Application.And([ab1] = 1, [ac1] = 7) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\tujuh.wav"")"
If Application.And([ab1] = 1, [ac1] = 8) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\delapan.wav"")"
If Application.And([ab1] = 1, [ac1] = 9) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\sembilan.wav"")"

If Application.And([ab1] = 1, [ac1] > 1) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &


ActiveWorkbook.Path & "\belas.wav"")"

'cek
If Application.And([ab1] = 1, [ac1] >= 0) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\loket.wav"")"
If Application.And([ab1] = 1, [ac1] >= 0) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\satu.wav"")"
If [ab1] = 1 Then End

If [ab1] = 2 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\dua.wav"")"


If [ab1] = 3 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\tiga.wav"")"
If [ab1] = 4 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\empat.wav"")"
If [ab1] = 5 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\lima.wav"")"
If [ab1] = 6 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\enam.wav"")"
If [ab1] = 7 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\tujuh.wav"")"
If [ab1] = 8 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\delapan.wav"")"
If [ab1] = 9 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\sembilan.wav"")"

If [ab1] > 1 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\puluh.wav"")"

If [ac1] = 1 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\satu.wav"")"


If [ac1] = 2 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\dua.wav"")"
If [ac1] = 3 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\tiga.wav"")"
If [ac1] = 4 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\empat.wav"")"
If [ac1] = 5 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\lima.wav"")"
If [ac1] = 6 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\enam.wav"")"
If [ac1] = 7 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\tujuh.wav"")"
If [ac1] = 8 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\delapan.wav"")"
If [ac1] = 9 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\sembilan.wav"")"
Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\loket.wav"")"
Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\satu.wav"")"

SUB PANGGIL2()
[z1] = [z1] + 1
[f4] = [z1]
[f4].Select
If [z1] >= 1000 Then UserForm1.Show
If [z1] >= 1000 Then End
'1 s.d. 19
Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\nomor-urut.wav"")"
If [z1] = 1 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\satu.wav"")"
If Application.And(Right([z1], 1) = 2, [z1] < 20) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\dua.wav"")"
If Application.And(Right([z1], 1) = 3, [z1] < 20) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\tiga.wav"")"
If Application.And(Right([z1], 1) = 4, [z1] < 20) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\empat.wav"")"
If Application.And(Right([z1], 1) = 5, [z1] < 20) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\lima.wav"")"
If Application.And(Right([z1], 1) = 6, [z1] < 20) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\enam.wav"")"
If Application.And(Right([z1], 1) = 7, [z1] < 20) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\tujuh.wav"")"
If Application.And(Right([z1], 1) = 8, [z1] < 20) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\delapan.wav"")"
If Application.And(Right([z1], 1) = 9, [z1] < 20) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\sembilan.wav"")"
If [z1] = 10 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\sepuluh.wav"")"
If [z1] = 11 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\sebelas.wav"")"

If Application.And([z1] > 11, [z1] < 20) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\belas.wav"")"
If [z1] < 20 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\loket.wav"")"
If [z1] < 20 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\dua.wav"")"

If [z1] < 20 Then End

If Len([z1]) = 1 Then [aa1] = ""


If Len([z1]) = 1 Then [ab1] = ""
If Len([z1]) = 1 Then [ac1] = [z1]

If Len([z1]) = 2 Then [aa1] = ""


If Len([z1]) = 2 Then [ab1] = Left([z1], 1)
If Len([z1]) = 2 Then [ac1] = Right([z1], 1)

If Len([z1]) = 3 Then [aa1] = Left([z1], 1)


If Len([z1]) = 3 Then [ab1] = Mid([z1], 2, 1)
If Len([z1]) = 3 Then [ac1] = Right([z1], 1)

If [z1] = 10 Then [aa1:ac3] = ""


If [z1] = 11 Then [aa1:ac3] = ""

If [aa1] = 1 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\seratus.wav"")"


If [aa1] = 2 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\dua.wav"")"
If [aa1] = 3 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\tiga.wav"")"
If [aa1] = 4 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\empat.wav"")"
If [aa1] = 5 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\lima.wav"")"
If [aa1] = 6 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\enam.wav"")"
If [aa1] = 7 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\tujuh.wav"")"
If [aa1] = 8 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\delapan.wav"")"
If [aa1] = 9 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\sembilan.wav"")"

If [aa1] > 1 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\ratus.wav"")"

If Application.And([ab1] = 1, [ac1] = 0) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &


ActiveWorkbook.Path & "\sepuluh.wav"")"
If Application.And([ab1] = 1, [ac1] = 1) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\sebelas.wav"")"
If Application.And([ab1] = 1, [ac1] = 2) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\dua.wav"")"
If Application.And([ab1] = 1, [ac1] = 3) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\tiga.wav"")"
If Application.And([ab1] = 1, [ac1] = 4) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\empat.wav"")"
If Application.And([ab1] = 1, [ac1] = 5) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\lima.wav"")"
If Application.And([ab1] = 1, [ac1] = 6) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\enam.wav"")"
If Application.And([ab1] = 1, [ac1] = 7) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\tujuh.wav"")"
If Application.And([ab1] = 1, [ac1] = 8) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\delapan.wav"")"
If Application.And([ab1] = 1, [ac1] = 9) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\sembilan.wav"")"

If Application.And([ab1] = 1, [ac1] > 1) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &


ActiveWorkbook.Path & "\belas.wav"")"

'cek
If Application.And([ab1] = 1, [ac1] >= 0) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\loket.wav"")"
If Application.And([ab1] = 1, [ac1] >= 0) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\dua.wav"")"
If [ab1] = 1 Then End

If [ab1] = 2 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\dua.wav"")"


If [ab1] = 3 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\tiga.wav"")"
If [ab1] = 4 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\empat.wav"")"
If [ab1] = 5 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\lima.wav"")"
If [ab1] = 6 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\enam.wav"")"
If [ab1] = 7 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\tujuh.wav"")"
If [ab1] = 8 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\delapan.wav"")"
If [ab1] = 9 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\sembilan.wav"")"

If [ab1] > 1 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\puluh.wav"")"

If [ac1] = 1 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\satu.wav"")"


If [ac1] = 2 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\dua.wav"")"
If [ac1] = 3 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\tiga.wav"")"
If [ac1] = 4 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\empat.wav"")"
If [ac1] = 5 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\lima.wav"")"
If [ac1] = 6 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\enam.wav"")"
If [ac1] = 7 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\tujuh.wav"")"
If [ac1] = 8 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\delapan.wav"")"
If [ac1] = 9 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\sembilan.wav"")"
Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\loket.wav"")"
Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\dua.wav"")"

SUB ULANGI1()
'[z1] = [z1] + 1
[d4] = [z1]
[d4].Select
If [z1] >= 1000 Then UserForm1.Show
If [z1] >= 1000 Then End
'1 s.d. 19
Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\nomor-urut.wav"")"
If [z1] = 1 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\satu.wav"")"
If Application.And(Right([z1], 1) = 2, [z1] < 20) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\dua.wav"")"
If Application.And(Right([z1], 1) = 3, [z1] < 20) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\tiga.wav"")"
If Application.And(Right([z1], 1) = 4, [z1] < 20) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\empat.wav"")"
If Application.And(Right([z1], 1) = 5, [z1] < 20) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\lima.wav"")"
If Application.And(Right([z1], 1) = 6, [z1] < 20) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\enam.wav"")"
If Application.And(Right([z1], 1) = 7, [z1] < 20) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\tujuh.wav"")"
If Application.And(Right([z1], 1) = 8, [z1] < 20) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\delapan.wav"")"
If Application.And(Right([z1], 1) = 9, [z1] < 20) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\sembilan.wav"")"
If [z1] = 10 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\sepuluh.wav"")"
If [z1] = 11 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\sebelas.wav"")"

If Application.And([z1] > 11, [z1] < 20) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\belas.wav"")"
If [z1] < 20 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\loket.wav"")"
If [z1] < 20 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\satu.wav"")"

If [z1] < 20 Then End

If Len([z1]) = 1 Then [aa1] = ""


If Len([z1]) = 1 Then [ab1] = ""
If Len([z1]) = 1 Then [ac1] = [z1]

If Len([z1]) = 2 Then [aa1] = ""


If Len([z1]) = 2 Then [ab1] = Left([z1], 1)
If Len([z1]) = 2 Then [ac1] = Right([z1], 1)

If Len([z1]) = 3 Then [aa1] = Left([z1], 1)


If Len([z1]) = 3 Then [ab1] = Mid([z1], 2, 1)
If Len([z1]) = 3 Then [ac1] = Right([z1], 1)

If [z1] = 10 Then [aa1:ac3] = ""


If [z1] = 11 Then [aa1:ac3] = ""

If [aa1] = 1 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\seratus.wav"")"


If [aa1] = 2 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\dua.wav"")"
If [aa1] = 3 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\tiga.wav"")"
If [aa1] = 4 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\empat.wav"")"
If [aa1] = 5 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\lima.wav"")"
If [aa1] = 6 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\enam.wav"")"
If [aa1] = 7 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\tujuh.wav"")"
If [aa1] = 8 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\delapan.wav"")"
If [aa1] = 9 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\sembilan.wav"")"

If [aa1] > 1 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\ratus.wav"")"


If Application.And([ab1] = 1, [ac1] = 0) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\sepuluh.wav"")"
If Application.And([ab1] = 1, [ac1] = 1) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\sebelas.wav"")"
If Application.And([ab1] = 1, [ac1] = 2) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\dua.wav"")"
If Application.And([ab1] = 1, [ac1] = 3) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\tiga.wav"")"
If Application.And([ab1] = 1, [ac1] = 4) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\empat.wav"")"
If Application.And([ab1] = 1, [ac1] = 5) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\lima.wav"")"
If Application.And([ab1] = 1, [ac1] = 6) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\enam.wav"")"
If Application.And([ab1] = 1, [ac1] = 7) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\tujuh.wav"")"
If Application.And([ab1] = 1, [ac1] = 8) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\delapan.wav"")"
If Application.And([ab1] = 1, [ac1] = 9) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\sembilan.wav"")"

If Application.And([ab1] = 1, [ac1] > 1) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &


ActiveWorkbook.Path & "\belas.wav"")"

'cek
If Application.And([ab1] = 1, [ac1] >= 0) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\loket.wav"")"
If Application.And([ab1] = 1, [ac1] >= 0) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\satu.wav"")"
If [ab1] = 1 Then End

If [ab1] = 2 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\dua.wav"")"


If [ab1] = 3 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\tiga.wav"")"
If [ab1] = 4 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\empat.wav"")"
If [ab1] = 5 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\lima.wav"")"
If [ab1] = 6 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\enam.wav"")"
If [ab1] = 7 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\tujuh.wav"")"
If [ab1] = 8 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\delapan.wav"")"
If [ab1] = 9 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\sembilan.wav"")"

If [ab1] > 1 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\puluh.wav"")"

If [ac1] = 1 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\satu.wav"")"


If [ac1] = 2 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\dua.wav"")"
If [ac1] = 3 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\tiga.wav"")"
If [ac1] = 4 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\empat.wav"")"
If [ac1] = 5 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\lima.wav"")"
If [ac1] = 6 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\enam.wav"")"
If [ac1] = 7 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\tujuh.wav"")"
If [ac1] = 8 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\delapan.wav"")"
If [ac1] = 9 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\sembilan.wav"")"
Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\loket.wav"")"
Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\satu.wav"")"

SUB ULANGI2()
'[z1] = [z1] + 1
[f4] = [z1]
[f4].Select
If [z1] >= 1000 Then UserForm1.Show
If [z1] >= 1000 Then End
'1 s.d. 19
Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\nomor-urut.wav"")"
If [z1] = 1 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\satu.wav"")"
If Application.And(Right([z1], 1) = 2, [z1] < 20) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\dua.wav"")"
If Application.And(Right([z1], 1) = 3, [z1] < 20) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\tiga.wav"")"
If Application.And(Right([z1], 1) = 4, [z1] < 20) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\empat.wav"")"
If Application.And(Right([z1], 1) = 5, [z1] < 20) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\lima.wav"")"
If Application.And(Right([z1], 1) = 6, [z1] < 20) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\enam.wav"")"
If Application.And(Right([z1], 1) = 7, [z1] < 20) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\tujuh.wav"")"
If Application.And(Right([z1], 1) = 8, [z1] < 20) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\delapan.wav"")"
If Application.And(Right([z1], 1) = 9, [z1] < 20) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\sembilan.wav"")"
If [z1] = 10 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\sepuluh.wav"")"
If [z1] = 11 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\sebelas.wav"")"

If Application.And([z1] > 11, [z1] < 20) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\belas.wav"")"
If [z1] < 20 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\loket.wav"")"
If [z1] < 20 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\dua.wav"")"

If [z1] < 20 Then End

If Len([z1]) = 1 Then [aa1] = ""


If Len([z1]) = 1 Then [ab1] = ""
If Len([z1]) = 1 Then [ac1] = [z1]
If Len([z1]) = 2 Then [aa1] = ""
If Len([z1]) = 2 Then [ab1] = Left([z1], 1)
If Len([z1]) = 2 Then [ac1] = Right([z1], 1)

If Len([z1]) = 3 Then [aa1] = Left([z1], 1)


If Len([z1]) = 3 Then [ab1] = Mid([z1], 2, 1)
If Len([z1]) = 3 Then [ac1] = Right([z1], 1)

If [z1] = 10 Then [aa1:ac3] = ""


If [z1] = 11 Then [aa1:ac3] = ""

If [aa1] = 1 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\seratus.wav"")"


If [aa1] = 2 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\dua.wav"")"
If [aa1] = 3 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\tiga.wav"")"
If [aa1] = 4 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\empat.wav"")"
If [aa1] = 5 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\lima.wav"")"
If [aa1] = 6 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\enam.wav"")"
If [aa1] = 7 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\tujuh.wav"")"
If [aa1] = 8 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\delapan.wav"")"
If [aa1] = 9 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\sembilan.wav"")"

If [aa1] > 1 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\ratus.wav"")"

If Application.And([ab1] = 1, [ac1] = 0) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &


ActiveWorkbook.Path & "\sepuluh.wav"")"
If Application.And([ab1] = 1, [ac1] = 1) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\sebelas.wav"")"
If Application.And([ab1] = 1, [ac1] = 2) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\dua.wav"")"
If Application.And([ab1] = 1, [ac1] = 3) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\tiga.wav"")"
If Application.And([ab1] = 1, [ac1] = 4) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\empat.wav"")"
If Application.And([ab1] = 1, [ac1] = 5) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\lima.wav"")"
If Application.And([ab1] = 1, [ac1] = 6) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\enam.wav"")"
If Application.And([ab1] = 1, [ac1] = 7) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\tujuh.wav"")"
If Application.And([ab1] = 1, [ac1] = 8) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\delapan.wav"")"
If Application.And([ab1] = 1, [ac1] = 9) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\sembilan.wav"")"

If Application.And([ab1] = 1, [ac1] > 1) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &


ActiveWorkbook.Path & "\belas.wav"")"
'cek
If Application.And([ab1] = 1, [ac1] >= 0) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\loket.wav"")"
If Application.And([ab1] = 1, [ac1] >= 0) Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" &
ActiveWorkbook.Path & "\dua.wav"")"
If [ab1] = 1 Then End

If [ab1] = 2 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\dua.wav"")"


If [ab1] = 3 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\tiga.wav"")"
If [ab1] = 4 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\empat.wav"")"
If [ab1] = 5 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\lima.wav"")"
If [ab1] = 6 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\enam.wav"")"
If [ab1] = 7 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\tujuh.wav"")"
If [ab1] = 8 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\delapan.wav"")"
If [ab1] = 9 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\sembilan.wav"")"

If [ab1] > 1 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\puluh.wav"")"

If [ac1] = 1 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\satu.wav"")"


If [ac1] = 2 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\dua.wav"")"
If [ac1] = 3 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\tiga.wav"")"
If [ac1] = 4 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\empat.wav"")"
If [ac1] = 5 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\lima.wav"")"
If [ac1] = 6 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\enam.wav"")"
If [ac1] = 7 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\tujuh.wav"")"
If [ac1] = 8 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\delapan.wav"")"
If [ac1] = 9 Then Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\sembilan.wav"")"
Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\loket.wav"")"
Application.ExecuteExcel4Macro "SOUND.PLAY(,""" & ActiveWorkbook.Path & "\dua.wav"")"

USERFORM1
If TextBox1 = "" Then TextBox1.Value = 1
[z1] = TextBox1.Value - 1
TextBox1.Value = ""
Unload Me
[d4:l4] = ""

You might also like