Excel VBA Pilih Penyataan Kes
Select Case adalah pengganti menulis beberapa pernyataan jika dalam VBA, apabila kita mempunyai banyak syarat dalam kod, kita mungkin harus menggunakan beberapa pernyataan If dan yang boleh membosankan kerana menjadi lebih kompleks kerana lebih banyak pernyataan If disediakan, di pilih penyataan kes kami menentukan kriteria sebagai kes dan hasil yang berbeza mengikutnya.
SELECT CASE membantu dalam proses membuat keputusan. Dalam ini, hanya satu ungkapan yang digunakan untuk menilai kes yang mungkin berbeza. Pelbagai keadaan dianalisis dengan mudah untuk melaksanakan kod yang dikembangkan. Penyataan kes ini digunakan sebagai pernyataan pengganti kepada ELSE IF untuk menilai ungkapan. Ia dikelaskan sebagai fungsi logik yang dimasukkan ke dalam Excel. Untuk menggunakan fungsi ini, kod dimasukkan melalui editor asas visual yang disajikan di bawah tab pembangun.
Penjelasan
Pelbagai kumpulan pernyataan digunakan dalam Select Case. Sintaks berikut harus diikuti untuk menggunakannya dengan berkesan. Ini mirip dengan pernyataan beralih yang disajikan dalam bahasa pengaturcaraan lain seperti Java, C #, dan PHP.
Pilih (Kes) Ekspresi untuk ujian (Kes) Senarai Pernyataan Ekspresi (Kes 1, Kes 2, Kes 3 dan seterusnya …) Kes Lain (Pernyataan Lain) Pilih Akhir
Penjelasan mengenai syarat-syarat yang berkaitan dengan kes terpilih diberikan seperti berikut.
Ungkapan untuk pengujian: Diperlukan untuk menilai berbagai jenis data seperti bilangan bulat, string, boolean, objek, dan karakter.
Daftar Ekspresi: Ekspresi dibuat dengan huruf besar untuk mencari padanan tepat input yang dimasukkan. Sekiranya lebih daripada dua ungkapan, ini dipisahkan menggunakan operator koma. 'Is' adalah kata kunci yang digunakan dalam membandingkan dua ungkapan menggunakan operator logik di excel seperti =,, =.
- Pilih Akhir: Ia menutup definisi kes pemilihan konstruktor
- Pernyataan: Pernyataan dikembangkan menggunakan huruf besar untuk menjalankan ungkapan yang dinilai untuk dianalisis jika ada pernyataan yang sepadan
- Pernyataan Lain: Ini adalah untuk menguji pernyataan yang lain apabila ekspresi pengujian tidak sesuai dengan pernyataan kes.
Bagaimana menggunakan Pernyataan Kes Pilih VBA?
Ciri kes pilih yang disediakan oleh VBA tidak berjalan di lembaran kerja biasa. Kita perlu menggunakan pilihan Visual Basic di bawah tab Developer. Fungsi dan pengekodan yang ditentukan pengguna dibuat dalam mod pemaju untuk menjalankan pelbagai aplikasi kecil dalam bidang perniagaan.
Ia digunakan dalam situasi di mana ada bersarang jika pernyataan di excel. Ini adalah pilihan terbaik untuk menangani pelbagai penyataan kes. Untuk menggunakan pilihan ini dengan berkesan, tugas-tugas berikut harus dilakukan.
- Pertama sekali, ia perlu membuat makro dengan meletakkan kawalan butang perintah di lembaran excel.
- Selepas itu, klik kanan pada butang arahan dan pilih opsyen kod pandangan.
- Letakkan kod antara fungsi butang arahan dan sub akhir.
- Debug kod untuk mengenal pasti sebarang kesalahan sintaks.
- Susun kod untuk mencari kesalahan kompilasi untuk berjaya melaksanakan program
- Ubah nilai input untuk melihat hasil yang berbeza berdasarkan kriteria yang sepadan
Contoh # 1 - Pernyataan Kes Pilihan Mudah
Contoh ini adalah untuk memahami kes pilih yang mudah untuk mencari nilai yang sesuai.
Kod:
Contoh Subcase peribadi () Dim A Sebagai Integer A = 20 Pilih Kes Satu Kes 10 MsgBox "Kes Pertama dipadankan!" Kes 20 MsgBox "Kes Kedua sesuai!" Case 30 MsgBox "Kes Ketiga dipadankan dalam Select Case!" Case 40 MsgBox "Kes Keempat dipadankan dalam Select Case!" Case Else MsgBox "Tiada Kes yang sesuai!" Sub Pilih Akhir Sub
Keputusan:
Pernyataan empat kes dan pernyataan kes lain digunakan untuk membandingkan ekspresi ujian dengan kes yang berbeza. Dalam contoh ini, kes kedua dipadankan sebagai pemboleh ubah A sepadan dengan 20.
Contoh # 2 - Kata Kunci 'To' untuk Menguji Gred
Contoh ini menerangkan penggunaan kata kunci 'To' dengan kes terpilih.
Kod:
Sub Selcasetoexample Swasta () Redupkan tanda pelajar Sebagai tanda pelajar Integer = InputBox ("Masukkan markah antara 1 hingga 100?") Pilih Tanda tanda pelajar Kes 1 hingga 36 MsgBox "Gagal!" Kes 37 hingga 55 MsgBox "C Gred" Kes 56 hingga 80 MsgBox "B Gred" Kes 81 hingga 100 MsgBox "A Grade" Case Else MsgBox "Out of range" End Select End Sub
Keputusan:
Kata kunci 'Kepada' sangat berguna dalam menentukan set ungkapan ujian dalam julat. Sangat berguna dalam mencari nilai yang diperoleh oleh pelajar dengan membandingkan kes yang berbeza. Setelah menjalankan program, kita harus memasukkan nilai untuk mendapatkan hasilnya.
Keluaran dipaparkan dengan kotak pesan, seperti yang ditunjukkan pada tangkapan layar di atas.
Contoh # 3 - Menggunakan Kata Kunci 'Is' dengan Huruf Kes
Contoh ini menunjukkan penggunaan kata kunci 'Is' dengan kes terpilih.
Kod:
Sub CheckNumber () Dim NumInput As Integer NumInput = InputBox ("Please enter a number") Select Case NumInput Case Is = 200 MsgBox "Anda memasukkan nombor yang lebih besar daripada atau sama dengan 200" End Select End Sub
Kata kunci 'Is' membantu mencari nilai yang sesuai dengan pernyataan kes sahaja. Ia membandingkan ekspresi ujian dengan input yang diberikan untuk menghasilkan output.
Output diperoleh seperti yang ditunjukkan pada gambar jika nilai yang dimasukkan lebih dari 200
Contoh # 4 - Dengan Butang Perintah untuk Menukar Nilai
Kotak pilih juga digunakan dengan butang Perintah dengan membuat makro.
Kod:
Sub warna () Warna redup Sebagai String color = Range ("A1"). Nilai Pilih Warna kes Case "Red", "Green", "Yellow" Range ("B1"). Value = 1 Case "White", "Black Julat "," Coklat "(" B1 "). Nilai = 2 Kotak" Biru "," Julat Biru Langit "(" B1 "). Nilai = 3 Julat Lain-lain Kes (" B1 "). Nilai = 4 Akhir Pilih Sub Akhir
Seperti yang ditunjukkan dalam program, input diambil dari sel lembaran kerja. Program ini dilaksanakan setelah mengklik pada butang arahan yang digunakan dari kawalan ActiveX. Dalam ini, pemisah koma digunakan untuk menggabungkan ungkapan ujian.
Ketika nilai di Sel A1 berubah, itu menghasilkan perubahan pada sel B1 juga dengan menjalankan makro excel melalui tombol perintah. Anda boleh merujuk tangkapan skrin yang diberikan di bawah: -
Contoh # 5 - Periksa Nombor Ganjil atau Genap
Contoh ini untuk membantu memeriksa nombor genap atau ganjil.
Kod:
Sub CheckOddEven () CheckValue = InputBox ("Enter the Number") Select Case (CheckValue Mod 2) = 0 Case True MsgBox "Nombornya genap" Case False MsgBox "Nombornya ganjil" End Select End Sub
Pengekodan dikembangkan, seperti yang ditunjukkan dalam tangkapan layar, dan output ditampilkan seperti berikut ketika genap nomor dimasukkan.
Contoh # 6 - Penyataan Kes Pilih Bersarang
Nesting adalah ciri berguna dari kotak pilihan, dan cara pelaksanaannya ditunjukkan.
Kod:
Sub TestWeekday () Pilih Case Case Weekday (Now) Case 1, 7 Select Case Weekday (Now) Case 1 MsgBox "Today is Sunday" Case Else MsgBox "Today is Saturday" End Select Case Else MsgBox "Hari ini adalah hari minggu" Akhir Pilih Akhir Sub
Di sini, case pilih didefinisikan di dalam case pilih lain untuk diuji sehari, hari kerja, atau hujung minggu. Kecuali untuk kes 1 dan 7 yang tersisa semuanya adalah hari kerja (Catatan: kes 1 adalah hari Ahad dan kes 7 adalah hari Sabtu)
Perkara yang Perlu Diingat
- Kata kunci 'Is' yang digunakan dalam pernyataan (case) dan (case other) tidak sama.
- Kontrol ActiveX harus digunakan dalam menjalankan program melalui tombol perintah yang mengambil input dan menampilkan output dalam sel sel excel.
- Sukar untuk menjalankan program di VBA jika makro dilumpuhkan dan selalu membolehkan Makro mendapat hasil yang terbaik.
- VBA peka huruf besar kecil, dan input harus dimasukkan dengan tepat untuk mendapatkan hasil yang lebih baik.
