Diskusi tentang Excel

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.

Related

Macro Excel VBA 4090962312819590624

Post a Comment

  1. kalo cara menghapus beberapa cell (selection) gimana min? mohon pencerahan

    ReplyDelete
  2. Min gimana kalau mo hapus gabungan range ama cell. Misal saya mo hapus range C6:H25 dan cell B4. Perintahnya bagaimana????

    ReplyDelete
    Replies
    1. Ws.range("c6:h25,b4").clearcontent

      Delete
  3. min gimana macro untuk menghapus data disuatu sheet, yang mana data tersebut dicopy dari file atau sheet lain dan ditempatkan ke sheet tertentu, setelah itu saya jalankan kembali macro untuk mengcopy data, data yang pertama kali saya copy terhapus dikarenakan saya telah mengcopy data yang baru.

    ReplyDelete

Tulisan ini Bermanfaat..? Silakan berkomentar sesuai topik artikelnya, tidak dianjurkan menggunakan kata-kata yang dapat menimbulkan hal negatif. Mohon maaf apabila tidak memiliki etika akan Admin HAPUS tanpa pemberitahuan kembali. Terimakasih... salam Exceler

emo-but-icon

item