Makroları Fonksiyon Tuşlarına Atama

[kadriguler]

Müzik notalarını çalmak için bir örnek yaptım . Wav dosyalarını çalmak için sndPlaySound32 fonksiyonunu kullandım. Ayrıca makroları (notaları) F1,F2,F3,F4 gibi fonksiyon tuşları ile çalıştırmak için şu kodları ekledim :

Sub A_1()
    Call sndPlaySound32(ThisWorkbook.Path & "\a1.wav", 0)
End Sub
Sub B_1()
Call sndPlaySound32(ThisWorkbook.Path & "\b1.wav", 0)
End Sub
Sub C_1()
Call sndPlaySound32(ThisWorkbook.Path & "\c1.wav", 0)
End Sub
Sub D_1()
Call sndPlaySound32(ThisWorkbook.Path & "\d1.wav", 0)
End Sub
Sub E_1()
Call sndPlaySound32(ThisWorkbook.Path & "\e1.wav", 0)
End Sub
Sub F_1()
Call sndPlaySound32(ThisWorkbook.Path & "\f1.wav", 0)
End Sub
...

Sub auto_open()
Application.OnKey "{F1}", "A_1"
Application.OnKey "{F2}", "B_1"
Application.OnKey "{F3}", "C_1"
Application.OnKey "{F4}", "D_1"
Application.OnKey "{F5}", "E_1"
...
End Sub

[YOUTUBE]https://www.youtube.com/watch?v=ZpE4hxp5_7M[/YOUTUBE]

Şablon dosyası youtube linkinden indirilebilir :https://youtu.be/ZpE4hxp5_7M