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
>
>
>
