Contoh Kode Macro Event: Klik Dua Kali pada Sel dalam Excel VBA
Contoh kode macro di bawah ini menjalankan event jika Anda meng-klik dua kali salah satu sel pada barisan sel B1:D10, maka sel yang kosong atau bahkan sel yang sudah memiliki angka di dalamnya, akan ditambahkan nilainya dengan angka 1, sementara sel-sel lainnya tidak mengalami perubahan.
Event Worksheet_BeforeDoubleClick dicetuskan oleh klik dua kali atau dobel-klik pada suatu sel worksheet.
Adapun argumen Cancel bersifat pilihan dan fungsinya untuk mencegah sel untuk membuka mode Edit pada saat sel tersebut di klik dua kali.
Event ini tidak akan terjadi jika Anda meng-klik dua kali pada bagian tepi sel yang aktif dan juga tidak akan terjadi pada fitur fill handle.
Ikuti langkah-langkah berikut untuk membuat kode macro:
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 BeforeDoubleClick.
7. Ketik kode berikut tepat dibawah Private Sub Worksheet_BeforeDoubleClick:
If IsNumeric(Target.Value) = True Then
Cancel = True
Target.Value = Target.Value + 1
End If
8. Kode lengkapnya menjadi seperti berikut:
Cancel As Boolean)
If Intersect(Target, Range("B1:D10")) Is Nothing Then Exit Sub
If IsNumeric(Target.Value) = True Then
Cancel = True
Target.Value = Target.Value + 1
End If
End Sub
9. Tekan Alt+F11 untuk kembali ke jendela Excel.
10. Klik dua kali pada salah satu sel mana saja di barisan sel B1:D10, lakukan lagi dobel-klik pada sel yang sama untuk menambahkan angka 1 ke dalam sel tersebut sehingga nilai akan langsung terakumulasi.
Demikian pembahasan tentang event Worksheet_BeforeDoubleClick dalam macro VBA Excel.
Selamat mempraktikkan dan semoga postingan ini bermanfaat.