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 > > >
Coding Beep + Kelap kelip.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
