Bisa Pak, akan tetapi kadang bunyinya keluar terus pak, walaupun UDF nya sudah saya Hapus,,
Terus pak ada beberapa pertanyaan nih pak 1. Mohon penjelasannya untuk Sub "MyTrigger" bagaimana bisa dia berjalan sendiri tanpa di run ? *cuz di conditional formating dia terus berubah" 2. Jika saya ingin membatasi waktu berkedip dan bunyinya hanya 1 menit di bagian mana perlu saya modifikasi ya pak ? Mohon Pencerahannya, Terimakasih pak,, ________________________________ Dari: Kid Mr. <[email protected]> Kepada: [email protected] Dikirim: Minggu, 30 September 2012 9:37 Judul: Re: [belajar-excel] CODING MACRO BUNYI BEEP Oh yang file kemarin gak bisa dipakai ya jika ada bunyi beep keluar ? Wassalam, Kid. 2012/9/30 Kurei recca <[email protected]> > >Dear Mr Kid, > > >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 ? > > > >Thx pak > > > > >________________________________ > Dari: Kurei recca <[email protected]> >Kepada: "[email protected]" <[email protected]> >Dikirim: Minggu, 23 September 2012 13:59 >Judul: Bls: [belajar-excel] CODING MACRO BUNYI BEEP > > > >Makasih Mr Kid, > > >dicoba dulu yaa,, > > >thx yaa > > >________________________________ > Dari: Kid Mr. <[email protected]> >Kepada: [email protected] >Dikirim: Minggu, 23 September 2012 13:37 >Judul: Re: [belajar-excel] CODING MACRO BUNYI BEEP > > > >Hai Recca, > >File terlampir berisi UDF SoundWarning yang tugasnya hanya membunyikan file >wav dengan kriteria tertentu. Mungkin kestabilannya masih harus diuji, karena >hanya rewrite dari bahasa C++ ke VBA. Kalau yang ke VB6 bisa lebih stabil. > >Untuk mewarnai blinking, diatur melalui application.timer secara tidak >langsung. Jadi, application.timer pada file terlampir hanya mengubah suatu >nilai konstanta secara terus menerus dari 1 menjadi 2. Ketika >application.timer dihentikan, maka nilai konstanta diset menjadi 0. Setiap >kali buka workbook, set pertama saat open selalu nilai konstanta bernilai 1. >Nilai konstanta ini disimpan dalam sebuah nama range bernama '_MyTrigger_' >Nilai dalam _MyTrigger_ lah yang menjadi nilai kondisi dalam Conditional >Formatting (CF). Jadi blinking sebenarnya dilakukan oleh si CF karena ada >pengubahan nilai _MyTrigger_ oleh application.timer. > >Jadi nanti kalau ada yang gak stabil, coba perhatikan betul, sisi blinking-nya >ada sisi sound-nya. > >Berikut gambaran tentang UDF SoundWarning > >UDF SoundWarning > > > > > > > > > > >Syntax =SoundWarning( kriteria_mulai_warning , [pesan_warning], >[filefullname_suara_peringatan] ) > > > > > > kriteria_mulai_warning diisi nilai numerik, yang bisa berupa hasil komputasi > ekspresi tertentu > > > > > > jika nilainya <= 0, maka SoundWarning akan menghentikan bunyi > > > > > > jika nilainya > 0, maka SoundWarning akan memulai bunyi peringatan > > > > > [pesan_warning] teks yang akan ditampilkan ke user yang menjadi nilai hasil > UDF ini ketika kriteria_mulai_warningbernilai >0. > > > teks bisa berupa hasil komputasi ekspresi tertentu > > > > > > > [filefullname_suara_peringatan] nama file suara yang akan dijadikan nada > peringatan. > > > > > > > nama file harus tertulis lengkap beserta drive dan foldernya > > > > > > > bila file tidak ditentukan user atau file dari user tidak ditemukan, maka > file default C:\Windows\Media\notify.wav akan dimainkan. > > > jika file tidak ditemukan, maka tidak ada suara peringatan yang dimainkan > > > > > > > > > > > > > > > > >Result Jika nilai kriteria_mulai_warningbernilai >0, maka file suara akan >dieksekusi menjadi suara peringatan disertai pesan teks dalam [pesan_warning] > > Jika nilai kriteria_mulai_warningbernilai <=0, maka suara peringatan > dihentikan dan tidak ada pesan teks yang ditampilkan > > > > > > > > > > > > > > >Contoh pemakaian : > > > > > > > > > > > > =SoundWarning( 1*(B3="a") , "Cell B3 tidak boleh 'a'" ) > > > > > > > > > > Mainkan file default ketika isi cell B3 adalah teks 'a' (b3="a") > > > > > > > kemudian dikonversi menjadi nilai (1*) dan tampilkan pesan berbunyi : Cell B3 > tidak boleh 'a' > > > > > > > > > > > > > > > > =SoundWarning( 1*(B3="a") , "Cell B3 tidak boleh 'a'", > "C:\Windows\Media\chord.wav" ) > > > > > > > Mainkan file bernama chord.wavyang ada di C:\Windows\Media\ ketika isi cell > B3 adalah teks 'a' (b3="a") > > > kemudian dikonversi menjadi nilai (1*) dan tampilkan pesan berbunyi : Cell B3 > tidak boleh 'a' > > > > > > > > > > > > > > >Peringatan !!! > > > > > > > > > > >1 Pastikan pada event workbook before close, baris terakhir sebelum End Sub >diberi kode untuk menghentikan sound sebagai berikut : > > PlaySound vbnullstring,0,9 > > > > > > > > > > > > > > > > > > > > > > >2 Pada pengembangan untuk memasukkan UDF SoundWarning menjadi sebuah AddIn, >sertai dengan class pengatur Workbook agar setiap workbook yang ditutup >menjalankan > > PlaySound vbnullstring,0,9 > > > > > > > > > > > kemudian pada file addin dilanjutkan dengan proses application.calculate > untuk memicu UDF SoundWarning pada workbook yang belum tertutup > > > > > > > > > > > > > >3 Yang dimainkan biasanya file pertama yang dijumpai, tetapi hal ini masih >belum stabil. Mungkin harus pakai midi supaya bisa bareng semua dimainkan dan >biar ribut seperti pasar :D >VBA Code untuk UDF SoundWarning : >Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" ( _ > ByVal lpszName As String, ByVal hModule As Long, ByVal >dwFlags As Long) As Long > >Public sAddr As String > >'Kid,Jakarta, 2007-01-05,rewrite for VB6 and VBA >'SoundWarning : mengeksekusi file .wav dengan suatu kondisi tertentu dan >memberi return value teks >'butuh WinAPI function PlaySound pada winmm.dll >Public Function SoundWarning(lStartPeringatan As Long, _ > Optional sWarning As String = "nah lo... ada yang gak >pas", _ > Optional sFileName As String = vbNullString) As String > Dim sFile As String, sCallerAddr As String > > Application.Volatile > If LenB(sFileName) = 0 Then > sFile = "C:\Windows\Media\notify.wav" > ElseIf LenB(Dir$(sFileName)) = 0 Then > sFile = "C:\Windows\Media\notify.wav" > Else > sFile = sFileName > End If > > sCallerAddr = Application.Caller.Address & "|" > If lStartPeringatan < 1 Then > sAddr = Replace$(sAddr, sCallerAddr, vbNullString) > If LenB(sAddr) = 0 Then > PlaySound vbNullString, 0, 9 > End If > SoundWarning = vbNullString > Else > If InStr(sAddr, sCallerAddr) = 0 Then > sAddr = sAddr & sCallerAddr > End If > PlaySound sFile, 0, 9 > SoundWarning = sWarning > End If >End Function > > >Module yang mengatur nilai dalam nama range _MyTrigger_ : >Public lTimer As Long > >Public Sub MyTrigger() > Select Case lTimer > Case 0 > Application.OnTime EarliestTime:=Now + TimeValue("00:00:01"), _ > Procedure:="MyTrigger" > StopMyTrigger > Case 1, 2 > lTimer = 2 + (lTimer = 2) > ThisWorkbook.Names("_MyTrigger_").Value = lTimer > Application.OnTime EarliestTime:=Now + TimeValue("00:00:01"), _ > Procedure:="MyTrigger" > End Select >End Sub > >Public Sub StopMyTrigger() > Application.OnTime EarliestTime:=Now + TimeValue("00:00:01"), _ > Procedure:="MyTrigger", _ > Schedule:=False >End Sub > >Pengaturan saat open workbook : >Private Sub Workbook_Open() > lTimer = 1 > ThisWorkbook.Names("_MyTrigger_").Value = lTimer > MyTrigger >End Sub > >Pengaturan saat workbook akan di close (before close) >Private Sub Workbook_BeforeClose(Cancel As Boolean) > lTimer = 0 > ThisWorkbook.Names("_MyTrigger_").Value = lTimer > MyTrigger > > PlaySound vbNullString, 0, 9 >End Sub > >Moga-moga gak bikin crash ya... > >Wassalam, >Kid. > > > >2012/9/23 Kurei recca <[email protected]> > > >> >>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 >> >> >> >> > > > > >
