Jumat, 23 Desember 2016

Cara Menampilkan, Menyembunyikan dan Menutup UserForm


Userform merupakan sebuah kotak jendela yang dapat digunakan sebagai tampilan aplikasi pengguna, sehingga dengan userform memungkinkan untuk mendesain sebuah tampilan aplikasi sesuai dengan kreasi dan keinginan sendiri.

Setiap userform yang sudah selesai di desain tentunya tidak dapat muncul dengan sendirinya melainkan harus dipanggil, berikut beberapa cara untuk memanggil atau menampilkan userform microsoft excel visual basic.

Memanggil UserForm Melalui Lembar Kerja (Sheet)


+ Cara ini dapat dilakukan dengan cara menggunakan sebuah tombol yang dapat dibuat melalui tab menu Developer dan pilih Insert
+ Pada menu insert pilih CommandButton pada sub bagian ActiveX Control
+ Klik 2x commandButton yang baru dibuat untuk langsung menuju ke jendela Visual Basic
+ Syntax kode untuk menampilkan adalah NamaUserForm.Show
+ NamaUserForm adalah nama dari form yang ingin dipanggil

Memanggil UserForm Melalui UserForm

Pada dasarnya penulisan kode yang digunakan untuk menampilkan userform sama, hanya saja perbedaannya terletak pada cara memanggilnya yaitu melalui sebuah UserForm lain.
+ Memanggil UserForm Otomatis Saat Dokumen Dibuka
+ Perbedaan yang mendasar untuk melakukan cara ini adalah peletakan kode, yakni diletakkan di ThisWorkbook seperti berikut

Private Sub Workbook_Open()
NamaUserForm.Show
End Sub

Beberapa pilihan diatas merupakan cara serta kode untuk menampilkan UserForm, sedangkan cara atau kode untuk menutup atau menyembunyikan UserForm adalah sebagai berikut :

Menyembunyikan UserForm Menggunakan perintah Hide

cara ini lebih umum digunakan dengan penulisan syntax kode

Me.Hide atau NamaUserForm.Hide

Perintah ini berfungsi untuk menyembunyikan sebuah userform dari layar

Menutup UserForm Menggunakan perintah Unload


+ Syntax kode untuk perintah ini

Unload NamaUserForm

Perintah ini akan menutup UserForm beserta memory yang tersimpan yang berhubungan dengan objek tersebut. Sehingga jika ingin menampilkan kembali Userform yang ditutup menggunakan perintah ini maka harus menggunakan perintah Load di barengi dengan perintah Show, kurang lebih seperti berikut :

Load NamaUserForm
NamaUserForm.Show

Menonaktifkan Kotak X Pada Baris Judul

Untuk mencegah pengguna dari menutup UserForm yang dilakukan dengan cara mengklik tombol close (X) yang terdapat pada baris judul dapat menggunakan kode berikut :

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode 1 Then Cancel = 1
End Sub


EmoticonEmoticon