hehehe... ternyata pak Yusa menggunakan windows 32-bit, jika anda menekan tombol Help maka ada keterangan sebagai berikut:
- If you are working on a 32-bit Microsoft Windows platform, both the DLL name and alias (if used) must be correct. Make sure the DLL name and alias are correct. untuk code berikut: Alias "BunyiGakYa" ( _ yang dimerahin harap diganti dengan sndPlaySoundA sehingga codenya menjadi: Alias "sndPlaySoundA" ( _ berhubung saya juga masih dalam tahap belajar vba.. (baru baca 150 halaman dari 404 halaman) untuk timernya saya pelajari dulu ya pak hehehe.. ^_^ wassalam, -aji mumpung- Pada 23 September 2012 08:31, Kurei recca <[email protected]> menulis: > ** > > > Dear Aji, > > Thx ya atas feedbacknya > > tapi kok fungsi "BunyiGaYa"-nya ga bisa jalan ya ? ada error yang > mengatakan bahwa DDL function not found,, > > codingnya saya taruh dalam module sheet1,, > > Lalu, Pak Aji kan menggunakan looping For Next agar cell tersebut kelap > kelip, bisa jika menggunakan timer karena jika menggunakan for next tidak > kelihatan kelapa kelipnya, > > Jadi agar kelihatan setidaknya satu warna itu 2 detik terpampangnya, lalu > ganti warna laen,, > > *Terlampir filenya ya pak : saya ubah kata "True" menjadi "a" > > Mohon Pencerahannya > ------------------------------ > *Dari:* aji mumpung <[email protected]> > *Kepada:* [email protected] > *Dikirim:* Minggu, 23 September 2012 8:06 > *Judul:* Re: [belajar-excel] CODING MACRO BUNYI BEEP > > > hai yusa.. > > untuk dapat memainkan suara anda harus menggunakan function windows API > yang terdapat di dalam file winmm.dll, tetapi sebelum dapat menggunakannya > anda harus mendeklarasikan fungsi tersebut sehingga dapat dipanggil dalam > suatu prosedur > > codenya sebagai berikut: > > Option Explicit > Private Declare Function SuaranyaDong _ > Lib "winmm.dll" _ > Alias "BunyiGakYa" ( _ > ByVal NamaLagu As String, _ > ByVal Lama As Long) As Long > > Sub BunyiBip() > Dim i As Integer > Dim c As Integer > > For i = 1 To 10 > If Range("a1").Value = "TRUE" Then > Range("a1").Interior.ColorIndex = c > SuaranyaDong "C:\Windows\Media\Chimes.wav", 0& > End If > c = c + 1 > Next i > End Sub > > perhatikan yang diberi warna biru & merah, code ini ditulis di sheets > module sehingga hanya dapat berfungsi dengan baik di sheet tersebut, jika > anda menginginkan fungsi dapat dipanggil dari mana saja maka pindahkan yang > diberi warna *biru* & *merah* ke dalam suatu modul dan ubah warna *biru* dari > Private menjadi Public. > > untuk suaranya dapat anda ganti-ganti sesuka hati menggunakan file yang > berekstensi wav dan default lokasi pada pc saya adalah pada folder > C:\Windows\Media, silakan anda searching mengenai lokasi pada pc anda dan > jenis-jenis bunyi yang tersedis. > > wassalam, > > -aji mumpung- > > Pada 23 September 2012 07:01, Kurei recca <[email protected]>menulis: > > ** > > Salam Para Master Excel, > > Ceritanya saya ingin membuat suatu coding dengan kondisi Jika Cell A1 > bertuliskan kata "TRUE" maka akan ada bunyi beep berulang selama 20 detik > or periode tertentu dan Cell Tersebut kelap kelip berwarna kuning dan putih > selama 20 detik tersebut. > > Kira2 bagaimana ya codingnya,,? > > Mohon Pencerahannya... > > Best Regards > > > > > >
