Kasus Pilih VBA

Pernyataan Kasus Pilih Excel VBA

Select Case adalah pengganti dari menuliskan beberapa pernyataan if di VBA, ketika kita memiliki banyak kondisi dalam sebuah kode, kita mungkin harus menggunakan beberapa pernyataan If dan yang bisa membosankan karena menjadi lebih kompleks karena lebih banyak pernyataan If disediakan, di pilih pernyataan kasus, kami mendefinisikan kriteria sebagai kasus dan hasil yang berbeda sesuai dengan mereka.

SELECT CASE membantu dalam proses pengambilan keputusan. Dalam hal ini, hanya satu ekspresi yang digunakan untuk menilai kemungkinan kasus yang berbeda. Berbagai kondisi dianalisis dengan mudah untuk menjalankan kode yang dikembangkan. Pernyataan kasus ini digunakan sebagai pernyataan pengganti ELSE IF untuk menilai ekspresi. Ini diklasifikasikan sebagai fungsi logis yang terintegrasi ke dalam Excel. Untuk menggunakan fungsi ini, kode dimasukkan melalui editor visual basic yang disajikan di bawah tab pengembang.

Penjelasan

Berbagai kelompok pernyataan digunakan dalam Select Case. Sintaks berikut harus diikuti untuk menggunakan ini secara efektif. Ini mirip dengan pernyataan switch yang disajikan dalam bahasa pemrograman lain seperti Java, C #, dan PHP.

 Pilih [Kasus] Ekspresi untuk pengujian [Kasus] Daftar Pernyataan Ekspresi (Kasus 1, Kasus 2, Kasus 3 dan seterusnya ...) Kasus Lain (Pernyataan Lain) Pilih Akhir

Penjelasan untuk istilah yang terkait dengan kasus pemilihan diberikan sebagai berikut

Ekspresi untuk pengujian: Diperlukan untuk menilai berbagai jenis data seperti integer, string, boolean, objek, dan karakter.

Daftar Ekspresi:  Ekspresi dibuat dengan kasus untuk menemukan kecocokan yang tepat dari masukan yang dimasukkan. Jika lebih dari dua ekspresi, ini dipisahkan menggunakan operator koma. 'Is' adalah kata kunci yang digunakan untuk membandingkan dua ekspresi menggunakan operator logika di excel seperti =,, =.

  • End Select: Ini menutup definisi kasus pilih konstruktor
  • Pernyataan: Pernyataan dikembangkan menggunakan case untuk menjalankan ekspresi yang dievaluasi untuk menganalisis jika ada pernyataan yang cocok
  • Pernyataan Lain: Ini untuk menguji pernyataan lain ketika ekspresi pengujian tidak cocok dengan pernyataan kasus apa pun.

Bagaimana cara menggunakan Pernyataan Kasus Pilih VBA?

Fitur kasus pemilihan yang disediakan oleh VBA tidak berjalan di lembar kerja normal. Kita perlu menggunakan opsi Visual Basic di bawah tab Pengembang. Fungsi dan pengkodean yang ditentukan pengguna dibuat dalam mode pengembang untuk menjalankan berbagai aplikasi kecil di bidang bisnis.

Ini digunakan dalam situasi ketika ada pernyataan if bersarang di excel. Ini adalah opsi terbaik untuk menangani berbagai pernyataan kasus. Untuk menggunakan opsi ini secara efektif, tugas-tugas berikut harus dilakukan

  • Pertama-tama, perlu membuat makro dengan menempatkan kontrol tombol perintah di lembar excel.
  • Setelah itu klik kanan pada tombol perintah dan pilih opsi kode tampilan
  • Letakkan kode di antara fungsi tombol perintah dan sub akhir
  • Debug kode untuk mengidentifikasi kesalahan sintaks.
  • Kompilasi kode untuk menemukan kesalahan kompilasi agar berhasil menjalankan program
  • Ubah nilai input untuk mengamati hasil yang berbeda berdasarkan kriteria yang cocok
Anda dapat mendownload Template Excel Kasus Pilih VBA ini di sini - Template Excel Kasus Pilih VBA

Contoh # 1 - Pernyataan Kasus Pilih Sederhana

Contoh ini adalah untuk memahami kasus pemilihan sederhana untuk menemukan nilai yang cocok.

Kode:

Private Sub Selcaseexmample () Dim A Sebagai Integer A = 20 Pilih Kasus A Kasus 10 MsgBox "Kasus Pertama cocok!" Kasus 20 MsgBox "Kasus Kedua cocok!" Kasus 30 MsgBox "Kasus Ketiga cocok dengan Kasus Pilih!" Kasus 40 MsgBox "Kasus Keempat cocok dengan Kasus Pilih!" Case Else MsgBox "Tak satupun dari Kasus ini yang cocok!" Akhiri Pilih Akhiri Sub

Hasil:

Empat pernyataan kasus dan pernyataan kasus lain digunakan untuk membandingkan ekspresi tes dengan kasus yang berbeda. Dalam contoh ini, kasus kedua dicocokkan karena variabel A cocok dengan 20.

Contoh # 2 - Kata Kunci 'Ke' untuk Menguji Nilai

Contoh ini menjelaskan penggunaan kata kunci 'Kepada' dengan kapitalisasi pilihan.

Kode:

Private Sub Selcasetoexample () Redupkan tanda siswa Sebagai Integer studentmarks = InputBox ("Masukkan tanda antara 1 hingga 100?") Pilih Kasus tanda siswa Kasus 1 Sampai 36 MsgBox "Gagal!" Case 37 Sampai 55 MsgBox "C Grade" Case 56 Sampai 80 MsgBox "B Grade" Case 81 Sampai 100 MsgBox "A Grade" Case Lain MsgBox "Out of range" End Select End Sub

Hasil:

Kata kunci 'To' berguna dalam menentukan kumpulan ekspresi tes dalam suatu rentang. Akan sangat membantu dalam menemukan nilai yang diperoleh siswa dengan membandingkan kasus yang berbeda. Setelah menjalankan program, kita harus memasukkan nilai untuk mendapatkan hasilnya.

Outputnya ditampilkan dengan kotak pesan seperti yang ditunjukkan pada gambar di atas.

Contoh # 3 - Menggunakan Kata Kunci 'Is' dengan Select Case

Contoh ini menunjukkan penggunaan kata kunci 'Is' dengan kasus pilih.

Kode:

 Sub CheckNumber () Dim NumInput As Integer NumInput = InputBox ("Silakan masukkan nomor") Select Case NumInput Case Is = 200 MsgBox "Anda memasukkan angka lebih besar dari atau sama dengan 200" End Select End Sub

Kata kunci 'Is' membantu menemukan nilai yang cocok dengan hanya pernyataan kasus. Ini membandingkan ekspresi uji dengan masukan yang diberikan untuk menghasilkan keluaran.

Output diperoleh seperti yang ditunjukkan pada gambar jika nilai yang dimasukkan lebih dari 200

Contoh # 4 - Dengan Tombol Perintah untuk Mengubah Nilai

Kasus pemilihan juga digunakan dengan tombol Command dengan membuat makro.

Kode:

 Sub warna () Warna redup As String color = Range ("A1"). Nilai Pilih Case color Case "Red", "Green", "Yellow" Range ("B1"). Value = 1 Case "White", "Black "," Brown "Range (" B1 "). Nilai = 2 Huruf" Biru "," Langit Biru "Rentang (" B1 "). Nilai = 3 Case Else Range (" B1 "). Nilai = 4 End Select End Sub

Seperti yang ditunjukkan dalam program, input diambil dari sel lembar kerja. Program ini dijalankan setelah mengklik tombol perintah yang digunakan dari kontrol ActiveX. Dalam hal ini, pemisah koma digunakan untuk menggabungkan ekspresi tes.

Ketika nilai di sel A1 berubah, itu menghasilkan perubahan di sel B1 juga dengan menjalankan makro excel melalui tombol perintah. Anda dapat merujuk ke tangkapan layar yang diberikan di bawah ini: -

Contoh # 5 - Periksa Angka Ganjil atau Genap

Contoh ini untuk membantu memeriksa bilangan genap atau ganjil.

Kode:

 Sub CheckOddEven () CheckValue = InputBox ("Enter the Number") Select Case (CheckValue Mod 2) = 0 Case True MsgBox "Jumlahnya genap" Case False MsgBox "Jumlahnya ganjil" End Select End Sub

Pengkodean dikembangkan seperti yang ditunjukkan pada tangkapan layar dan keluaran ditampilkan sebagai berikut ketika bilangan genap dimasukkan.

Contoh # 6 - Pernyataan Kasus Pilihan Bersarang

Penyusunan adalah fitur yang berguna dari kasus pemilihan dan cara melakukannya ditampilkan.

Kode:

 Sub TestWeekday () Select Case Weekday (Now) Case 1, 7 Select Case Weekday (Now) Case 1 MsgBox "Hari ini hari Minggu" Case Else MsgBox "Hari ini hari Sabtu" Akhiri Pilih Kasus Lain MsgBox "Hari Ini Hari Kerja" Selesai Pilih Akhir Sub

Here the select case is defined inside another select case to test a day, weekday, or weekend. Except case 1 and 7 remaining all are weekdays (Note: case 1 is Sunday and case 7 is Saturday)

Things to Remember

  • The ‘Is’ keyword using in the statement of [case] and [case else] are not equal.
  • ActiveX control should be used in executing program through a command button taking input and displaying output in the excel sheet range of cells.
  • It is hard to run the programs in VBA if macros are disabled and always enable Macros to get best results.
  • VBA is a case sensitive and input should be entered accurately to get better results.