Contoh Kode Macro Event: Kalkulasi Sheet dalam Excel VBA
Contoh kode macro di bawah ini menjalankan event pada saat worksheet melakukan rekalkulasi.
Sebagai contoh, Anda memiliki suatu model penjualan dan Anda ingin memantau angka garis dasar dari jumlah total penjualan semua produk Anda yang peroleh pada sel G10 seperti contoh yang ditunjukkan pada gambar.
Anda dapat mencetuskan event Worksheet_Calculate untuk membuat suatu kotak pesan sebagai peringatan jika angka di sel G10 jumlahnya kurang dari 100 transaksi penjualan.
Dan jika angkanya melebihi 500 transaksi maka kotak pesan ditampilkan dengan ucapan selamat.
Gambar di bawah ini mempertunjukkan hasil akhirnya:
Ikuti langkah-langkah berikut untuk membuat kode macronya:
1. Dalam Excel, klik kanan tab sheet yang akan diuji-coba.
2. Pilih View Code.
3. Pada kotak pilihan Object (General) di atas module worksheet klik tanda panah di ujungnya.
4. Pilih Worksheet.
5. Pada kotak pilihan Procedure (Declarations) di atas module worksheet, klik tanda panahnya di ujungnya.
6. Pilih event Calculate.
7. Ketik kode berikut tepat dibawah Private Sub Worksheet_Calculate:
MsgBox "Jumlah penjualan terlalu sedikit!!", vbExclamation, "Peringatan!!"
ElseIf Range("G10").Value >= 500 Then
MsgBox "Jumlah penjualan DAHSYAT!!", vbExclamation, "Selamat!!"
End If
8. Kode lengkapnya menjadi seperti berikut:
If Range("G10").Value < 100 Then
MsgBox "Jumlah penjualan terlalu sedikit!!", vbExclamation, "Peringatan!!"
ElseIf Range("G10").Value >= 500 Then
MsgBox "Jumlah penjualan DAHSYAT!!", vbExclamation, "Selamat!!"
End If
End Sub
Demikian pembahasan tentang event Worksheet_Calculate dalam macro VBA Excel.
Selamat mempraktikkan dan semoga postingan ini bermanfaat.