Cara Menghapus Range Dengan Menggunakan VBA Excel

Menghapus range atau cell pada sebuah Worksheet biasanya menggunakan cara blok range kemudian klik delete. Kali ini saya akan menggunakan cara lain yaitu menghapus range dengan menggunakan kode VBA

Berikut script VBA untuk menghapus range

Private Sub CommandButton1_Click()
Dim Yakin As Integer
Dim Ws As Worksheet
Set Ws = Worksheets("sheet1")
Yakin = MsgBox("Apakah Anda akan menghapus semua database Soal?", vbOKCancel, "Verifikasi")
If Yakin = 1 Then
Ws.Range("A3:G12").Clear
End If
End Sub

Menghapus range bisa Anda gunakan pada aplikasi yang dibuat dengan menggunakan Ms. Excel seperti yang telah saya coba pada Aplikasi Soal Ujian Mandiri Anda bisa gunakan pada aplikasi yang dibuat sendiri menggunakan Ms. Excel.

Langkah-langkah membuat Tombol Perintah Hapus range
Pertama silakan buat data pada Sheet1 sebagai berikut

Jika sudah mengetikan data diatas silakan Anda buat sebuah CommandButton pada Sheet2 dengan cara klik pada menu Developer kemudian klik Insert dan pilih CommandButton sehingga menghasilkan satu buat CommandButton1

Langkah selanjutnya silakan klik kanan pada Button1 kemudian pilih ViewMacro dan tuliskan kode diatas Untuk mencobanya apakah berhasil atau tidak coba Anda klik Button1 diatas dan lihat hasilnya apakah data yang ada pada Sheet1 telah terhapus atau tidak. Jika berhasil maka data pada Sheet1 akan dihapus secara otomatis. dan inilah hasilnya

Silakan lihat bagaimana Membuat Tombol Open dengan VBA

Muncul sebuah konfirmasi untuk memverifikasi apakah data akan dihapus? jika Anda pilih OK maka seluruh data pada Sheet1 range A3:G12 akan dihapus

Berhasil.... , Data pada range A3:G12 yang berada pada Sheet1 berhasil dihapus ini artinya script VBA macro yang dibuat telah benar.
Selamat mencoba.

Tweet