Trik Membuat Baris Baru dengan Cara Klik-Kanan pada Sel Excel
Tip kali ini masih membahas mengenai event Workbook yaitu mempertunjukkan contoh event Workbook_SheetBeforeRightClick yang dicetuskan pada saat Anda meng-klik kanan suatu sel dalam worksheet.
Biasanya klik-kanan akan menampilkan menu pintas pop-up yang tentunya bisa Anda batalkan dengan menggunakan parameter Cancel.
Contoh kode macro berikut memungkinkan Anda menambah satu baris baru tepat di atas sel mana pun yang Anda klik-kanan dengan cepat dan mudah.
Excel menampilkan kotak pesan untuk menanyakan untuk membuat baris baru dan jika Anda memilih No, maka proses pun akan dibatalkan.
Ikuti langkah-langkah berikut untuk membuat kode macronya:
1. Buka VBE dengan cara menekan Alt+F11, kemudian tekan Ctrl+R untuk memastikan jendela Project Explorer membuka.
2. Pada Project Explorer klik folder dengan nama Microsoft Excel Objects.
3. Dalam daftar di bawah Microsoft Excel Objects terdapat objek workbook dengan nama ThisWorkbook. Dobel-klik ThisWorkbook untuk memunculkan module workbook.
4. Pada kotak daftar pilihan Object pilih Workbook.
5. Pada kotak daftar pilihan Procedure pilih SheetBeforeRightClick.
6. Tepat di bawah Private Sub Workbook_SheetBeforeRightClick ketik perintah logis berikut untuk menampilkan kotak pesan konfirmasi lalu menambahkan baris baru:
vbQuestion + vbYesNo, _
"Perhatian!") = vbYes Then
Cancel = True
ActiveCell.EntireRow.Insert
End If
7. Kode lengkapnya menjadi sebagai berikut:
ByVal Target As Range, Cancel As Boolean)
If MsgBox("Anda ingin membuat baris baru disini?", _
vbQuestion + vbYesNo, _
"Perhatian!") = vbYes Then
Cancel = True
ActiveCell.EntireRow.Insert
End If
End Sub
8. Kembali ke worksheet dengan cara menekan Alt+Q.
9. Silakan uji coba kode macro Anda dengan meng-klik kanan sel mana saja dalam worksheet.
Demikian pembahasan tentang trik sederhana membuat baris baru dengan cara melakukan klik-kanan yang mudah dan praktis pada sel Excel, semoga postingan ini bermanfaat.