Tombol Hapus/Reset Database Sekaligus Dengan UserForm VBA Excel
Tombol Hapus/Reset Database Sekaligus Dengan UserForm VBA Excel - Gambar gif di bawah memperlihatkan tampilan database yang muncul pada listbox dan selanjutnya akan dihapus secara massal oleh Tombol Reset.
Pada kesempatan ini admin akan mencoba berbagi tentang cara membuat tombol hapus atau reset database secara massal.
Tombol Hapus/Reset Database Sekaligus Dengan UserForm VBA Excel |
Fungsi ini dapat di terapkan untuk mengosongkan database secara cepat tanpa harus menghapus data satu persatu yang memakan waktu lebih lama.
Untuk menghapus database secara massal dapat diterapkan beberapa metode.
Untuk menghapus database secara massal dapat diterapkan beberapa metode.
Semua itu tergantung minat saja karena pada kenyataannya tombol hapus atau reset database sama saja dengan perintah kode macro menghapus sebuah area range tertentu.
Hanya saja namanya diberikan lebih wow gtu..!! karena sudah disematkan pada UserForm Aplikasi.
Admin sangat menyarankan kepada pengunjung yang membaca artikel di blog ini agar selalu membuat file contoh penerapan kode Vba Excel.
Dengan membuat file contoh percobaan sendiri akan lebih cepat memahami dan mengetahui fungsi serta penggunaan kode yang tepat.
Seiring waktu koleksi file percobaanpun akan banyak dan bisa dijadikan pedoman untuk digunakan.
Belajar membuat aplikasi menggunakan apa saja jika hanya yang dipelajari toeri saja tanpa mempraktekkan, maka sedikit kemungkinan akan memahami dan bisa membuat sebuah aplikasi sederhana.
Langkah-langkah Tombol Hapus/Reset Database Sekaligus Dengan UserForm VBA Excel
- Rancang File dan UserForm Seperti pada posting "Cari Data ComboBox Bertingkat"
- Tambahkan sebuah Label, Ganti 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
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.
Semoga artikel ini bisa menjadi salah satu acuan referensi dan informasi bagi yang sedang mempelajari Vba Excel pada tahap pemula.
Jika artikel ini dirasakan bermanfaat dan berguna mohon dapat dishare ke media sosial agar teman-teman lain yang memiliki hobi yang sama dapat mempelajarinya juga.
Bagi anda yang belajar Vba Excel secara mandiri ala otodidak seperti saya dapatkan semua file contoh penerapan kode serta aplikasi vba excel tanpa proteksi agar anda dapat mempelajarinya secara maksimal.
Anda hanya tinggal menghubungi Admin via WhatsApp atau Telegram dengan nomor 0811-6822-023 (syarat dan ketentuan berlaku)
Download File : Reset Database
Jika ingin menyampaikan pertanyaan, saran dan kritikan mohon dapat disampaikan pada kolom komentar yang tersedia dengan bijaksana.
Posting Komentar untuk "Tombol Hapus/Reset Database Sekaligus Dengan UserForm VBA Excel"
Komentar Anda Sangat Menentukan Kelangsungan Blog ini