CheckBox merupakan salah satu objek VBA berbentuk kotak persegi yang dapat memberikan nilai atau hasil Benar dan Salah saja, dimana ketika bernilai benar maka kotak ini akan berisi tanda centang ( ), sementara jika bernilai salah maka ia akan kosong. Dengan kata lain, tanda centang didalam kontrol objek CheckBox bisa digunakan untuk mewakili kata YA dan berlaku juga sebaliknya.

Untuk menguji hasil yang didapatkan dari checkBox ini sebenarnya sangatlah sederhana dan mudah untuk dilakukan. Untuk mencobanya :

1. Pilih tab menu Developer kemudian pilih control CheckBox untuk kategori ActiveX dan letakkan didalam lembar kerja Microsoft Excel, ambil contoh Sheet1.
   
   
2. Selanjutnya silahkan anda klik kanan objek ini dan pilih menu Properties dari jendela pop-up menu yang muncul.
   
   
3. Didalam jendela properties untuk control checkBox ini, silahkan anda cari sebuah parameter LinkedCell yang masih kosong dan silahkan isi sebuah alamat sel yang nantinya digunakan untuk meletakkan hasil ketika objek CheckBox ini di klik. sebagai contoh, silahkan tulis alamat sel A1.
   
   
4. Sebelum menguji atau mengklik CheckBox ini, pastikan anda sudah mematikan menu Design Mode yang terdapat di tab menu Developer.
   
   

Jika langkah-langkah diatas sudah dilakukan dengan benar, dan ketika anda menekan tombol CheckBox, maka sebuah hasil TRUE atau FALSE akan ditampilkan di sel A1 yang sudah dihubungkan dengan CheckBox ini.

Ok, cara diatas adalah sebuah cara sederhana yang dapat dilakukan hanya sekedar untuk menampilkan nilai TRUE atau FALSE di dalam sebuah sel. Sekarang kita akan mencoba bagaimana mengkombinasikan nilai tersebut untuk membuka jendela dialog print dengan menggunakan statement Select Case yang juga dikombinasikan dengan logika IF.

1. Silahkan anda buat sebuah control baru yakni CommandButton dan letakkan di lembar kerja yang sudah terdapat control CheckBox yang sudah anda buat sebelumnya
2. Langkah berikutnya adalah, pastikan anda sudah mengetahui nama yang diberikan untuk CheckBox. Untuk melihat nama dari objek ini, silahkan klik kanan checkBox kemudian pilih menu properties dan lihat kotak disebelah kanan dari parameter (Name), kemudian tutup jendela properties CheckBox
   
   
3. Selanjutnya klik 2x objek CommandButton untuk langsung menuju jendela Microsoft Visual Basic Editor, yang secara otomatis anda akan dibuatkan sebuah prosedur untuk even Klik yang masih kosong
   
   
4. Ketik baris kode berikut kedalam prosedur yang sudah dibuat dilangkah sebelumnya
   

   Select Case CheckBox1
       Case True
           if Application.Dialogs(xlDialogPrinterSetup).Show = true then _
           ActiveSheet.PrintOut
       Case Else
           MsgBox "Silahkan centang CheckBox untuk membuka jendela printer anda"
   End Select
   

   Penjelasan dari baris kode :

   • Select Case CheckBox1
     Adalah sebuah prosedur yang digunakan untuk situasi yang terjadi pada objek yang memiliki nama CheckBox1
   • Case True
     Berisi perintah yang akan di jalankan ketika situasinya adalah benar (TRUE)
   • If Application.Dialogs(xlDialogPrinterSetup).Show = true then _
     Baris kode ini hanya akan diaktifkan ketika kondisi dari CheckBok1 adalah benar, yang mana baris ini berisi bahasa logika sederhana yang berarti jika pengguna memilih salah satu nama printer yang tersedia di jendela dialog printer (xlDialogPrinterSetup), maka perintah selanjutnya akan segera dieksekusi
   • ActiveSheet.PrintOut
     Bertugas untuk mencetak halaman atau lembar kerja aktif ke kertas menggunakan jenis printer yang dipilih pada baris perintah sebelumnya
   • Case Else
     Arti dari baris kode ini adalah, ia akan menjalankan sebuah baris perintah ketika kondisi-kondisi sebelumnya tidak terpenuhi - Dalam kasus ini, Case Else adalah sebuah kondisi yang salah (FALSE)
   • End Select
     Adalah sebuah statement penutup yang wajib dituliskan di bagian akhir.

Untuk mengetahui hasil akhir dari tutorial ini, berikut tampilannya:


Selamat.... anda sekarang sudah mengetahui bagaimana caranya menggunakan CheckBox serta bagaimana caranya menampilkan jendela dialog print serta menggunakan statement sederhana dari Select Case. semoga tutorial ini cukup mudah untuk dipahami dan mudah-mudahan ada guna dan manfaatnya.

Jika anda suka dengan tutorial yang disajikan di website ini, silahkan bookmark atau bisa juga anda klik tombol Subscribe untuk mendapatkan artikel dan tutorial terbaru dari kami, dan silahkan kunjungi kami lain waktu untuk mengetahui kehebatan Microsoft Excel lainnya bersama excelive.com. Adios...

Incoming Search Terms

Cara mudah menggunakan statement Select Case
Membuat CheckBox dalam Microsoft Excel
Menampilkan jendela dialog untuk memilih jenis printer
Mencetak lembar kerja aktif secara otomatis
Kode Macro VBA untuk menampilkan daftar printer yang terpasang di komputer

Terimakasih sudah membaca
Tutorial: Kombinasi CheckBox Dan Select Case Untuk Membuka Jendela Dialog Print
Labels: Beginner - Author: excelive

Artikel Terkait