Dear Pak Aji
Saya sudah coba tapi saya ingin bertanya beberapa hal lagi nih pak Bisa ga ketika macronya jalan, excel tetap dapat berfungsi seperti biasa ? Misal ketika bunyi beep itu keluar saya tetap dapat melakukan aktivitas di workbook tersebut ? Jadi ketika kedap kedip gitu saya tetap dapat mengoperasikan excel tersebut, saya sudah coba menggunakan event workbook selection change tapi tetap tidak bisa, Mohon Pencerahannya, Terima Kasih,, ________________________________ Dari: Kurei recca <[email protected]> Kepada: "[email protected]" <[email protected]> Dikirim: Minggu, 23 September 2012 13:58 Judul: Bls: [belajar-excel] CODING MACRO BUNYI BEEP Oke dicoba ya pak aji,, thx yaa ________________________________ Dari: aji mumpung <[email protected]> Kepada: [email protected] Dikirim: Minggu, 23 September 2012 11:11 Judul: Re: [belajar-excel] CODING MACRO BUNYI BEEP pak Yusa.. coba code berikut.. sudah saya tes di windows 32-bit dan berjalan dengan baik Option Explicit Private Declare Function SuaranyaDong _ Lib "winmm.dll" _ Alias "sndPlaySoundA" ( _ 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 = "a" Then If Application.Wait(Now() + TimeValue("00:00:02")) Then Range("a1").Interior.ColorIndex = c End If SuaranyaDong "C:\Windows\Media\Chimes.wav", 0& End If c = c + 1 Next i End Sub untuk fungsi timernya saya belum ketemu.. ketemunya fungsi wait yang dimerahin dari link berikut http://msdn.microsoft.com/en-us/library/aa213656(office.11).aspx mungkin dari para member millis ini maupun para master dapat memberikan pencerahan mengenai fungsi timer wassalam, -aji mumpung- Pada 23 September 2012 09:07, aji mumpung <[email protected]> menulis: 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 >>> >>> >>> >> >> >> >
