Bagaimana cara memainkan suara jika suatu kondisi terpenuhi di Excel?
Di Excel, kita dapat menerapkan Pemformatan Bersyarat ke format dan menyorot sel untuk memenuhi kondisi yang Anda butuhkan, tetapi, terkadang, Anda mungkin ingin memutar suara jika kondisi terpenuhi. Misalnya, jika nilai sel di A1 lebih besar dari 300, saya ingin suara diputar. Excel tidak mendukung fitur ini, artikel ini, saya akan memperkenalkan beberapa kode VBA untuk menyelesaikan tugas ini.
Putar suara bip sistem default berdasarkan nilai sel dengan kode VBA
Mainkan suara khusus berdasarkan nilai sel dengan kode VBA
Putar suara jika nilai sel berubah di kolom tertentu dengan kode VBA
Putar suara bip sistem default berdasarkan nilai sel dengan kode VBA
Berikut adalah kode praktis bagi Anda untuk memutar suara bip sistem default ketika kondisi tertentu terpenuhi, lakukan seperti ini:
1. Tahan ALT + F11 kunci, lalu membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.
Kode VBA: Putar suara bip sistem default berdasarkan nilai sel:
Function BeepMe() As String
Beep
BeepMe = ""
End Function
3. Kemudian simpan dan tutup jendela kode ini, kembali ke lembar kerja, dan masukkan rumus ini: = IF (A1> 300, BeepMe (), "") ke dalam sel kosong di samping sel berisi nilai yang Anda inginkan untuk memutar suara, lalu tekan Enter kunci, tidak ada yang akan ditampilkan ke dalam sel formula, lihat tangkapan layar:
4. Dan sekarang, jika nilai yang dimasukkan di sel A1 lebih besar dari 300, suara bip sistem default akan diputar.
Mainkan suara khusus berdasarkan nilai sel dengan kode VBA
Jika Anda ingin memainkan suara lain selain suara bip sistem default, kode VBA juga dapat membantu Anda.
1. Tahan ALT + F11 kunci, lalu membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.
Kode VBA: Putar suara tertentu berdasarkan nilai sel:
#If Win64 Then
Private Declare PtrSafe Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As LongPtr, ByVal dwFlags As Long) As Boolean
#Else
Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Boolean
#End If
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
Function SoundMe() As String
'Updateby Extendoffice 20161223
Call PlaySound("c:\windows\media\Speech On.wav", _
0, SND_ASYNC Or SND_FILENAME)
SoundMe = ""
End Function
3. Kemudian simpan dan tutup jendela kode ini, kembali ke lembar kerja, dan masukkan rumus ini: = IF (A1> 300, SoundMe (), "")ke dalam sel kosong di samping sel berisi nilai yang Anda inginkan untuk memutar suara, lalu tekan Enter kunci, tidak ada yang akan ditampilkan ke dalam sel formula, lihat tangkapan layar:
4. Mulai sekarang, jika nilai lebih dari 300 dimasukkan ke dalam sel A1, suara tertentu akan dimainkan sekaligus.
Catatan: Pada kode di atas, Anda dapat mengubah file suara wav sesuai kebutuhan Anda c: \ windows \ media \ jalur file. Lihat tangkapan layar:
Putar suara jika nilai sel berubah di kolom tertentu dengan kode VBA
Jika Anda ingin memutar suara jika nilai sel berubah di kolom tertentu, Anda dapat menerapkan kode VBA berikut.
1. Klik kanan tab lembar yang ingin Anda putar berbunyi saat nilai berubah di kolom, lalu pilih Lihat kode dari menu konteks, dan di buka Microsoft Visual Basic untuk aplikasi jendela, salin dan tempel kode berikut ke dalam Modul kosong:
Kode VBA: Putar suara jika nilai sel berubah di kolom:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20161223
Dim xCell As Range
On Error Resume Next
If Target.Columns.Count = 1 Then
If Intersect(Target, Columns(3)) Is Nothing Then
Exit Sub
Else
For Each xCell In Columns(3)
On Error Resume Next
If (xCell.Value = Target.Value) And (xCell.Value <> "") Then
Beep
Exit For
End If
Next
End If
End If
End Sub
Note: Pada kode di atas, angka 3 dalam naskah Kolom (3) adalah nomor kolom yang ingin Anda putar suara ketika nilai berubah di kolom ini.
2. Dan kemudian simpan dan tutup jendela kode ini, sekarang, jika nilai sel berubah di kolom ketiga, suara bip sistem default akan dimainkan.
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!