√ Cara Menghapus Range Dengan Memakai Vba Excel

Menghapus range atau cell pada sebuah Worksheet biasanya memakai cara blok range lalu klik delete. Kali ini aku akan memakai cara lain ialah menghapus range dengan memakai aba-aba 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 dapat Anda gunakan pada aplikasi yang dibentuk dengan memakai Ms. Excel ibarat yang telah aku coba pada Aplikasi Soal Ujian Mandiri Anda dapat gunakan pada aplikasi yang dibentuk sendiri memakai Ms. Excel.

Langkah-langkah menciptakan 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 sajian Developer lalu klik Insert dan pilih CommandButton sehingga menghasilkan satu buat CommandButton1

Langkah selanjutnya silakan klik kanan pada Button1 lalu pilih ViewMacro dan tuliskan aba-aba diatas Untuk mencobanya apakah berhasil atau tidak coba Anda klik Button1 diatas dan lihat kesudahannya 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? jikalau 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 dibentuk telah benar.
Selamat mencoba.
Sumber http://www.excel-id.com/