Kasus Sakelar VBA Excel
Switch Case atau Select Case adalah pernyataan yang tersedia di VBA untuk melakukan tes logika yang berfungsi sebagai alternatif pernyataan IF-THEN di VBA. Menggunakan Switch Case, kita dapat melakukan beberapa tes logis dan mendapatkan hasil berdasarkan beberapa hasil.
Di bawah ini adalah sintaks dari pernyataan Switch Case / Select Case.
Kode:
Pilih Kasus Kasus 1 Nilai jika Kasus 1 Uji BENAR Kasus 2 Nilai jika Kasus 2 Uji BENAR Kasus 3 Nilai jika Kasus 3 Uji BENAR Kasus Lain Nilai jika tidak ada kasus di atas BENAR Pilih Akhir
: Apa tes logisnya? Kita harus mengikuti ujian di sini.
Kasus 1, Kasus 2: Dalam setiap kasus, kita perlu menguji beberapa tes logis di excel.
Bagaimana Cara Menggunakan Pernyataan Kasus Switch VBA?
Contoh 1
Di sel A1 saya telah memasukkan nilai 550.
Kami akan menguji nomor ini menggunakan pernyataan kasus sakelar dan sampai pada status sebagai "Lebih dari 500" jika nilainya lebih dari 500 atau kami akan sampai pada status sebagai "Kurang dari 500".
Buka prosedur Sub VBA terlebih dahulu.
Kode:
Sub Switch_ase () End Sub
Buka Select Case Statement di VBA dan berikan nilai Rentang pengujian logis ("A2")
Kode:
Sub Switch_ase () Pilih Case Range ("A2") Nilai Akhir Sub
Sekarang masukkan kasus pertama karena Kasus> 500.
Kode:
Sub Switch_Case () Pilih Case Range ("A2") Value Case Is> 500 End Sub
Jika kasus ini BENAR, maka apa hasil yang kita butuhkan di sel B, 2, yaitu "Lebih dari 500".
Kode:
Sub Switch_Case () Pilih Case Range ("A2"). Value Case Is> 500 Range ("B2"). Value = "Lebih dari 500" End Sub
Sekarang kita hanya memiliki satu hasil, yaitu pernyataan Kasus Lain. Jika Kasus pertama SALAH, maka kita membutuhkan hasil sebagai "Kurang dari 500".
Kode:
Sub Switch_Case () Pilih Case Range ("A2"). Value Case Is> 500 Range ("B2"). Value = "Lebih dari 500" Case Else Range ("B2"). Value = "Kurang dari 500" End Sub
Sekarang tutup pernyataan tersebut dengan menggunakan pernyataan "End Select".
Kode:
Sub Switch_Case () Select Case Range ("A2"). Value Case Is> 500 Range ("B2"). Value = "Lebih dari 500" Case Else Range ("B2"). Value = "Kurang dari 500" Pilihan Akhir Akhiri Sub
Jalankan kode kita akan mendapatkan nilai di sel B2.
Karena nilai di sel A2 lebih besar dari 500, kami mendapatkan hasil sebagai "Lebih dari 500".
Contoh # 2
Sekarang kita akan melihat menggunakan lebih banyak contoh kasus. Di bawah ini adalah nilai siswa dalam ujian tersebut.
Dengan skor ini kita harus sampai pada Grade, untuk itu di bawah ini adalah kriterianya.
- Skor> = 85, Grade = "Dist"
- Skor> = 60, Grade = "Pertama"
- Skor> = 50, Grade = "Second"
- Skor> = 35, Grade = "Lulus"
- Jika ada yang lain Grade = "Gagal".
Kode:
Sub Switch_ase1 ()
Dim Score As Integer Score = 65 Pilih Case Score Case Is> = 85 MsgBox "Dist" Case Is> = 60 MsgBox "First" Case Is> = 50 MsgBox "Second" Case Is> = 35 MsgBox "Pass" Case Else MsgBox " Gagal "Akhiri Pilih Akhir Sub
Jalankan kode ini. Kami akan mendapatkan nilai di kotak pesan.
Since the score is more than 60 but less than 85 grade is “First.”
Example #3
We have seen how to find a grade for one student, what about finding a grade for more than one student. Below are the scores of students.
Since more than one student is involved, we need to enclose FOR NEXT loop in VBA. Below is the VBA code.
Code:
Sub Switch_Case2() Dim k As Integer For k = 2 To 7 Select Case Cells(k, 2).Value Case Is>= 85 Cells(k, 3).Value = "Dist" Case Is>= 60 Cells(k, 3).Value = "First" Case Is>= 50 Cells(k, 3).Value = "Second" Case Is>= 35 Cells(k, 3).Value = "Pass" Case Else Cells(k, 3).Value = "Fail" End Select Next k End Sub
Run this code. We will get grades.
Things to Remember
- Switch Case is often referred to as “Select Case.”
- The switch is a function, not a statement.
- Jika tidak ada pengujian logika yang BENAR, maka Anda cukup meneruskan hasil alternatif dalam pernyataan CASE ELSE dan selalu menutup pernyataan tersebut dengan kata "PILIH AKHIR".
