Tuesday, November 1, 2016

VBA Excel Pemula 33 : "MsgBox" Peringatan Tidak Pilih Data Pada ListBox

VBA Excel Pemula 33 : "MsgBox" Peringatan Tidak Pilih Data Pada ListBox - Perhatikan gambar gif dibawah.! Aplikasi akan memberikan peringatan bila data yang ada pada ListBox tidak dipilih. Metode ini bisa diterapkan pada aplikasi yang mengambil data dari ListBox untuk suatu keperluan, misalnya tranfer data ke ListBox lain, Maka saat data yang ada di ListBox tidak dipilih akan muncul peringatan melalui MsgBox.

MsgBox sangat membantu pengguna aplikasi, MsgBox memberikan informasi atas tindakan yang belum atau sudah dilakukan oleh pengguna terhadap data yang dipilih di listbox. Ikuti langkah-langkah yang saya sajikan secara otodidak.


Cara Buat "MsgBox" Peringatan Tidak Pilih Data Pada ListBox :
  • Buka Excel, Bikin data dan tampilkan data Sheet ke ListBox Baca Posting VBA Excel Pemula 31 : Pengenalan ListBox - Menampilkan Data Sheet Ke ListBox
  • dan selanjutnya Pilih Tab Developer, klik Visual Basic atau dengan jalan pintas keyboard tekan secara bersamaan tombol Alt+F11. Jangan lupa disave dengan format Enable Macro atau Binary
  • Pada Jendela Visual Basic Tambahkan UserForm dengan Caption "Aplikasi Pemula 33" dan tambahkan ListBox1 dan tambahkan CommandButton1 dengan Caption "MsgBox"
  • Klik kanan pada CommandButton1 dengan Caption "MsgBox", pilih View Code dan masukkan kode berikut ini :
If UserForm1.ListBox1.ListIndex = -1 Then
MsgBox "Data Tidak Dipilih", vbCritical, "Aplikasi Pemula 33"
Exit Sub
Else
MsgBox "Data telah dipilih", vbInformation, "Aplikasi Pemula 33"
End If
End Sub
  • Selesai..!! Uji aplikasi dengan klik Run atau dengan menekan tombol F5 pada keyboard. Bila perancangan dan penempatan kode sudah anda ikuti dengan benar maka aplikasi akan berjalan seperti yang terlihat pada gambar gif diatas.
Download : Aplikasi Pemula 33

Demikian Posting VBA Excel Pemula 33 : "MsgBox" Peringatan Tidak Pilih Data Pada ListBox. Semoga dapat dikembangkan dengan kebutuhan aplikasi masing-masing. Bagi anda  yang memiliki modifikasi lainnya share kode dikolom komentar. Semoga bermanfaat.

Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon