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.

 "MsgBox" Peringatan Tidak Pilih Data Pada ListBox

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 :

  • 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.

Berlangganan update artikel terbaru via email:

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

Post a Comment

Komentar Anda Sangat Menentukan Kelangsungan Blog ini

Iklan Atas Artikel

Iklan Tengah Artikel 1

Iklan Tengah Artikel 2

Iklan Bawah Artikel