Membuat Tombol Hapus Dengan VBA Di Excel
Dengan kesaktian yang dimiliki Microsoft Excel, kita bisa melakukan satu klik sata bisa menghapus seluruh isi lembar kerja Excel, kok bisa? Tentunya bisa, karena pada Excel telah tertanam rumus kode VBA yang dapat melakukan penghapusan data hanya dengan satu tombol hapus. Bagaimana caranya? Ingin tahu, mari ikuti langkahlangkah berikut.
Langkah pertama, tentunya siapkan terlebih dahulu data Excel seperti berikut.
Setelah data dibuat, selanjutnya arahkan kursor ke tab Developer >> Insert, pilih Command Button (ActiveX Control).
Lalu posisikan tombol button tersebut sesuai kebutuhan, misalnya dibawah data tabel. Kemudia nganti nama tombol tersebut dengan nama “Hapus”, caranya klik kanan pada tombol, pilih Commandbutton Object >> Edit, hasilnya seperti berikut.
Jika edit nama sudah selesai, selanjutnya klik kanan lagi pada tombol lalu pilih View Code, maka akan tampil halaman Microsot Visual Basic for Application VBA, lalu masukan kode berikut.
Private Sub CommandButton1_Click()
Dim answer As Integer
answer = MsgBox(“Are you sure you want to empty the sheet?”, vbYesNo + vbQuestion, “Empty Sheet”)
If answer = vbYes Then
Cells.ClearContents
Else
‘do nothing
End If
End Sub
Seperti pada tampilan berikut.
Kemudian simpan halaman tersebut dengan nama Hapus.xlsm, setelah itu kembali lagi ke lembar kerja Excel, untuk mengaktifkan tombol Hapus, terlebih dulu ke tab Developer >> Klik Design Mode, lalu sekarang Anda coba klik tombol hapus, apa yang terjadi?
Iya, akan tampil dialog peringatat, jika Anda klik Yes maka isi dalam tabel akan terhapus semua, seperti berikut hasilnya.
Mudah bukan? Dengan adanya tombol hapus ini Anda cukup sekali klik bisa menghapus seluruh data yang tidak diperlukan, bagaimana, apakah Anda ingin mencobanya? Selamat mencoba…
terima kasih atas artikelnya yang sangat membantu..
tetapi gmana ya skripnya apabila yang hanya ingin dihapus adalah salah satu data dalam database? misal : budi sudah tidak jadi karyawan lagi, jadi harus dikeluarkan dari database..trims atas petunjuknya
bantu jawab pertanyaan dari i made ady putra dan Azuka
coba Code nya sprti ini :
Private Sub CommandButton1_Click()
Sheets(“Sheet1”) .Range(“A2”).Value = “”
Sheets(“Sheet1”) .Range(“A3”) = “”
Sheets(“Sheet1”) .Range(“A4:A10”) = “”
MsgBox “From has been Deleted.”
End Sub
Nb: Ubah Range(“…..”) sesuai data anda.
Semoga bisa dan bermanfaat. 🙂
Kalau misal yang ingin dihapus hanya beberapa cells atau range bagaimana?
Mohon contoh script cari data dan mengeditnya dari database yang sudah ada.
terimakasih
Maaf, saya mau tanya kalo perintahnya ingin menghapus baris sesuai dengan penomoran data bagaimana ya, misal A1 no. 1, A2 No. 2 dan seterusnya. ketika sudah input di nomer 10 saya baru ingat no. 3 salah dan saya ingin menghapusnya, bagaimana ya syntaxnya.
Terima kasih banyak.
GAN,KLW BUAT TOMBOL SIMPAN GIMANA GAN?MOHON PENCERAHANNYA GAN?
Sangat membantu … terima kasih