Sunday, July 30, 2017

Cara Menyembunyikan dan Memunculkan WorkBook dan Userform

Salam.!! Admin sangat berterimakasih kepada pengunjung yang telah mengakses blog belajar Vba Excel secara Otodidak. Terkhusus kepada pengunjung yang menyampaikan pertanyaan pada kolom komentar. Karena Admin sendiri bukan ahli dalam Vba Excel. Banyak sekali kode Vba Excel yang Admin gunakan tetapi Admin sendiri tidak mengerti bila menerjemahkan dalam bahasa yang dapat dipahami logika. Admin belajar otodidak Vba Excel hanya berlandaskan Azas Fungsi dan Dapat Difungsikan saja.

Posting ini Admin tulis untuk menjawab pertanyaan dari salah satu pengunjung yang pertanyaannya sebagai berikut ini :

Pertanyaan :
---------------------------------------------------------------------------
July 28, 2017 at 10:54 PM
Gan, mo nanya, klo setiap UserForm kebuka, maka Workbook akan otomatis tertutup.
misal contoh kasus:
ada beberapa link di workbook..
pas open workbook otomatis workbook terHide, dan membuka Userform.
lalu jika dari userform membuka file di workbook, otomatis workbook terbuka dan userform otomatis terHide, dan jika membuka /klik untuk menuju userform lagi workbook akan terhide lagi.
bagaimana rumus pada thisworkbook

Private Sub Workbook_Open()
Application.Visible = False
UserForm2.Show
Application.Visible = True
End Sub

penambahannya seperti apa?
terimakasih
---------------------------------------------------------------------------

Jawaban :
Dari pertanyaan tersebut Admin hanya dapat mengambil kesimpulan dengan pikiran Admin yang terbatas sebagai berikut :
  • Setiap Buka File Maka UserForm Muncul dan WorkBook disembunyikan.
  • Cara Memunculkan Kembali WorkBook Dari UserForm dan UserForm di sembunyikan.
  • CaraMembuka UserForm dari Workbook, Saat UserForm Muncul Workbook di sembunyikan
Mari kita mencoba membuat file Excel yang akan kita gunakan untuk ketiga macam item tersebut diatas. Karena dengan mencoba dan mempraktekkanlah kita bisa memahami alur kerja code yang diterapkan. Semua keahlian selalu dituntut dengan mempraktekkan.


Langkah Pertama Perancangan :
  • Buka Excel, Pada Sheet1 tambahkan CommandButton ActiveXs Control dengan cara klik tab Developer pilih Insert dan masukkan dua buah CommandButton ActiveX Controls.
  • Aturlah properties CommandButton1 dengan Capton Menu Normal, dan CommandButton2 dengan Caption Menu VbModeless.
  • Selanjutnya pilih tab Developer dan klik pada menu Visual Basic. 
  • Pada jendela Visual basic, masukkan sebuah userform, tambahkan tiga buah CommandButton atur properties CommandButton1 dengan Caption Buka Sheet1, CommandButton2 dengan Caption Buka Sheet2.
  • Selanjutnya kita akan menempatkan kode ke masing-masing CommandButton yang sudah kita atur pada point diatas.
Langkah Kedua Penempatan Kode :
  • Kode berikut berfungsi untuk menampilkan UserForm secara otomatis dan menyembunyikan WorkBook ketika file Excel dibuka.
Private Sub Workbook_Open()
Application.Visible = False
UserForm1.Show
Application.Visible = True
End Sub
  • Kode berikut ini berfungsi untuk menyembunyikan WorkBook dan menampilkan UserForm. Letakkan kode berikut ini pada CommandButton1 ActiveX Controls dengan Caption Menu Normal yang ada pada Sheet1
Private Sub CommandButton1_Click()
Application.Visible = False
UserForm1.Show
End Sub

Keterangan
Bila menginginkan WorkSheet juga tampil dibelakang UserForm maka ubah nilai False menjadi True
  • Kode berikut ini berfungsi menampilkan UserForm dengan keadaan WorkSheet aktif serta dapat digunakan untuk menginput data secara manual. Letakkan kode berikut ini pada CommandButton ActiveX Controls dengan Caption Menu VbModeless yang ada pada Sheet1.
Private Sub CommandButton2_Click()
Application.Visible = True
UserForm1.Show vbModeless
End Sub

  • Kode berikut ini berfungsi memberikan perintah untuk memperlihatkan atau mengunjungi Sheet1 dan menyembunyikan UserForm dari tampilan. Tempatkan kode berikut ini pada CommandButton1 dengan Caption Buka Sheet1.
Private Sub CommandButton1_Click()
Application.Visible = True
Worksheets("Sheet1").Select
Unload Me
End Sub
Keterangan :
Ganti nama ("Sheet1") sesuai dengan nama Sheet yang ada pada aplikasi yang anda rancang.
  • Kode berikut ini berfungsi memberikan perintah untuk memperlihatkan atau mengunjungi Sheet2 dan menyembunyikan UserForm dari tampilan. Tempatkan kode berikut ini pada CommandButton2 dengan Caption Buka Sheet2.
Private Sub CommandButton2_Click()
Application.Visible = True
Worksheets("Sheet2").Select
Unload Me
End Sub
Keterangan :
Ganti nama ("Sheet2") sesuai dengan nama Sheet yang ada pada aplikasi yang anda rancang.

Demikian posting tentang Cara Menyembunyikan dan Memunculkan WorkBook dan Userform dalam segala kondisi. Bila ingin memberikan saran, kritik dan pertanyaan dapat disampaikan di kolom komentar yang tersedia dibawah posting. Bila posting ini dirasakan bermanfaat mohon dapat dishare ke media sosial dengan cara klik tombol share. Semoga posting ini bisa menjadi referensi bagi yang sedang mencari tentang cara menyembunyikan dan menampilkan WorkBook dan Userform dalam berbagai kondisi. 

Dapatkan File lengkap dengan kode didalamnya setiap update Vba Excel di blog ini dengan cara memberikan donasi ke pada Admin melalui rekening, konfirmasi donasi dengan format #Nama_#Jumlah_Donasi#Email# kirimkan ke Nope : 0811-6822-023. Donasi yang diberikan akan sangat membantu Admin dalam mengupdate posting berikutnya.

Nama Admin Zaki Fitriadi, Pengangguran, Blogger Awam Kelahiran Banda Aceh 1982, Mengenal Blog Tahun 2010, Baru Aktif Tahun 2015, Berbagi Apa Yang Dipejari Secara Otodidak di Dunia Maya

Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon