Wednesday, November 2, 2016

VBA Excel Pemula 34 : "MsgBox" Peringatan Tidak Mengisi Data TextBox

VBA Excel Pemula 34 : "MsgBox" Peringatan Tidak Mengisi Data TextBox - MsgBox Adalah Popup yang menampilkan pesan kepada pengguna aplikasi dengan berbagai keterangan yang bisa dicantumkan dalam MsgBox. Secara umum MsgBox memiliki dua fungsi utama yaitu hanya berupa menyampaikan informasi dan memberikan informasi untuk memasukkan suatu aksi tertentu atau meminta konfirmasi atau persetujuan apakah suatu data akan dihapus atau tidak.

Perhatikan gambar gif dibawah.! Aplikasi akan memberikan peringatan bila TextBox belum di isikan data. Metode ini bisa diterapkan pada aplikasi yang mengharuskan pengguna untuk mengisi data pada TextBox.


Cara Buat "MsgBox" Peringatan Tidak Pilih Data Pada ListBox :
  • Buka Excel, 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 34" dan tambahkan Textbox1 dan tambahkan CommandButton1 dengan Caption "MsgBox"
  • Klik kanan pada CommandButton1 dengan Caption "MsgBox", pilih View Code dan masukkan kode berikut ini :
Private Sub CommandButton1_Click()
If TextBox1.Value = "" Then
MsgBox "Isikan Dulu Data Dalam TextBox..!!", 16, "Aplikasi Pemula 34"
Else
MsgBox "Data Sudah Di Isi..!!", 64, "Aplikasi Pemula 34"
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 34

Demikian VBA Excel Pemula 34 : "MsgBox" Peringatan Tidak Mengisi Data TextBox. 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