Dalam sebuah administrasi pembukuan di excel, terkadang kita akan menghapus data yang sudah tidak digunakan. Kalau menghapus secara manual, mungkin memerlukan waktu yang lama. Maka untuk menghapus data tersebut dengan cepat kita bisa membuat tombol Hapus dengan menggunakan rumus VBA Macro.
Untuk membuat tombol kita bisa menggunakan fasilitas Text Box, WordArt atau fasilitas Design Mode. Dan dalam hal ini saya akan mencoba membuat tombol dengan fasilitas Text Box.
Membuat Tombol Hapus di VBA Excel
- Masuk ke Microsoft Visual Basic for Applications window dengan menekan tombol Alt + F11 atau anda klik tab "Developer" lalu klik "Visual Basic". Apabila di Office anda belum tampil tab Developer, silahkan baca "Cara Menampilkan Ribbon Developer"
- Klik Insert kemudian klik Module
- Copy Paste kode berikut di bawah ini
- Kode Sub HapusData_Click()
Yaitu kode perintah macro untuk menghapus data - Kode If MsgBox("Apakah anda yakin akan menghapus data ?", vbYesNo, "Hapus Data") = vbNo Then Exit Sub
Pesan Box yang mempertanyakan Apakah anda yakin akan menghapus data ? - Kode
Sheets("INPUT").Range("B2:B16").ClearContents
Sheets("INPUT").Range("D2:D16").ClearContents
Sheets("INPUT").Range("data").ClearContents
Dalam hal ini data-data yang akan dihapus yaitu data yang ada di Sheets “INPUT” sedangkan cells yang akan dihapus adalah cell B2 sampai B16, dan cell D2 sampai D16 serta cell F2 sampai I16 Sedangkan data di kolom A, C dan E tidak dihapus.
Untuk data di kolom F2 sampai I16 kita bisa memberikan nama range untuk memudahkan kita dalam pengerjaannya. Range tersebut misalnya saya beri nama “data”
Adapun kode ClearContents merupakan kode perintah untuk menghapus data tersebut
- Buatkan tombol untuk menjalankan perintah macro tersebut
- Simpan file tersebut ke dalam type atau Save as type : Excel Macro-Enabled Workbook atau type Excel Binary Workbook
'https://baladaka.blogspot.com '============================ 'Perintah Hapus Data Dengan menampilkan pesan pilihan. Sub HapusData_Click() If MsgBox("Apakah anda yakin akan menghapus data ?", vbYesNo, "Hapus Data") = vbNo Then Exit Sub Sheets("INPUT").Range("B2:B16").ClearContents Sheets("INPUT").Range("D2:D16").ClearContents Sheets("INPUT").Range("data").ClearContents MsgBox ("Data berhasil dikosongkan"), vbInformation, "https://baladaka.blogspot.com" Exit Sub End Sub
'https://baladaka.blogspot.com '============================ 'Perintah Hapus Data tanpa menampilkan pesan pilihan. Sub HapusData2_Click() Sheets("INPUT").Range("N2:O16").ClearContents MsgBox ("Data berhasil dikosongkan"), vbInformation, "https://baladaka.blogspot.com" Exit Sub End Sub
Data yang akan dihapus adalah cell N2 sampai O16
Selamat Mencoba