Saturday, July 2, 2016

Tombol Hapus/Reset Database Sekaligus Dengan UserForm VBA Excel


Gambar gif diatas memperlihatkan tampilan database yang muncul pada listbox dan selanjutnya akan dihapus secara massal oleh Tombol Reset. Fungsi ini dapat di terapkan untuk mengosongkan database secara cepat tanpa harus menghapus data satu persatu yang memakan waktu lebih lama. 

Download File : Reset Database

Langkah-langkah Tombol Hapus/Reset Database Sekaligus Dengan UserForm VBA Excel
  • Rancang File dan UserForm Seperti pada posting "Cari Data ComboBox Bertingkat"
  • Tambahkan sebuah LabelGanti Name Labelnya Dengan LbReset dan Captionnya RESET
  • Tempatkan Kode dibawah ini pada tombol LbReset 
Private Sub LbReset_Click()
If MsgBox("Anda Yakin Akan Menghapus Database..!!", vbYesNo + 48, "Confirmation") = vbYes Then
Sheet1.Range("A3:F15").ClearContents
MsgBox "Database Selesai Di Hapus..!!", 64, "Reset Database"
Else
MsgBox "Database Batal Di Hapus..!!", 64, "Reset Database"
End If
End Sub

  • Demikian posting "Tombol Hapus/Reset Database Sekaligus Dengan UserForm VBA Excel" Semoga dapat dikembangkan menurut ajaran dan kepercayaan masing-masing sesuai dengan kebutuhan.


Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon