VBA Switch Case

Kotak Sakelar VBA Excel

Beralih Kasus atau Pilih Kasus adalah pernyataan yang tersedia di VBA untuk melakukan tes logis di mana ia berfungsi sebagai alternatif dari pernyataan IF-THEN di VBA. Dengan menggunakan Switch Case, kami dapat melakukan beberapa tes logis dan mendapatkan hasil berdasarkan beberapa hasil.

Di bawah ini adalah sintaks pernyataan Switch Case/Select Case.

Kode:

Pilih Kasus < Uji Logika > Kasus 1 < Uji Logika > Nilai jika Uji Kasus 1 BENAR Kasus 2 < Uji Logika > Nilai jika Uji Kasus 2 BENAR Kasus 3 < Uji Logika > Nilai jika Uji Kasus 3 BENAR Kasus Lain Nilai jika tidak ada dari kasus di atas adalah TRUE End Select

< Tes Logika >: Apa itu tes logika? Kita perlu memasukkan tes di sini.

Kasus 1, Kasus 2: Kita perlu menguji beberapa tes logika di excel Tes Logika Di Excel Tes logika di Excel menghasilkan output analitik, baik benar atau salah. Setara dengan operator, ‘=,’ adalah tes logis yang paling umum digunakan.Baca selengkapnya di setiap kasus.

Bagaimana Cara Menggunakan Pernyataan Kasus Sakelar VBA?

Contoh 1

Di sel A1 kami telah memasukkan nilai sebagai 550.

Kami akan menguji angka ini menggunakan pernyataan ganti huruf dan sampai pada status ‘Lebih dari 500’ jika nilainya melebihi 500. Selain itu, kami akan sampai pada status ‘Kurang dari 500.’

Membuka Sub Prosedur VBA Sub Prosedur VBA SUB dalam VBA adalah prosedur yang berisi semua kode yang secara otomatis memberikan pernyataan sub akhir dan bagian tengah digunakan untuk pengkodean. Sub pernyataan dapat bersifat publik dan pribadi dan nama subprosedur wajib ada di VBA. Baca lebih lanjut terlebih dahulu.

Kode:

Sub Switch_Case() Akhir Sub

Open Select Case Statement di VBASelect Case Statement Di VBAVBA Case Statement adalah fungsi yang membantu pengguna untuk mengeksekusi beberapa tes logis dan sampai pada hasil dengan dua cara, yaitu pertama, jika hasil atau tes logis adalah BENAR dan kedua, jika hasil atau tes logis adalah FALSE.baca lebih lanjut dan berikan Tes logis Range(‘A2’).Value

Kode:

Sub Switch_Case() Select CaseSelect CaseSelect case adalah pengganti untuk menuliskan beberapa pernyataan IF di VBA. Dalam kasus banyak pernyataan IF, ini menjadi membosankan dan lebih kompleks, tetapi dalam pernyataan kasus tertentu, kami mendefinisikan kriteria sebagai kasus dan hasil yang berbeda.baca lebih lanjut Range(“A2”).Value End Sub

Sekarang, masukkan case pertama karena Case >500.

Kode:

Jika kasus ini BENAR, berapa hasil yang kita perlukan di sel B2? yaitu, ‘Lebih dari 500.’

Kode:

Sub Switch_Case() Pilih Case Range(“A2”).Value Case Is > 500 Range(“B2”).Value = “More than 500” End Sub

Kami pergi dengan hanya satu hasil, yaitu, pernyataan Case Else. Oleh karena itu, jika Kasus pertama adalah SALAH, kita perlu hasilnya sebagai ‘Kurang dari 500.’

Kode:

Sub Switch_Case() Select Case Range(“A2”).Value Case Is > 500 Range(“B2”).Value = “More than 500” Case Else Range(“B2”).Value = “Kurang dari 500” End Sub

Sekarang, tutup pernyataan dengan menggunakan pernyataan ‘End Select’.

Kode:

Sub Switch_Case() Select Case Range(“A2”).Value Case Is > 500 Range(“B2”).Value = “More than 500” Case Else Range(“B2”).Value = “Kurang dari 500” End Select Akhir Sub

Jalankan kode. Kami akan mendapatkan nilai di sel B2.

Karena nilai di sel A2 lebih besar dari 500, kami mendapatkan hasil ‘Lebih dari 500.’

Contoh #2

Sekarang, kita akan melihat menggunakan lebih banyak contoh kasus. Di bawah ini adalah skor siswa dalam ujian.

Dengan skor ini, kita perlu sampai pada suatu tingkatan. Untuk itu dibawah ini adalah kriterianya.

Skor >=85, Nilai = ‘Jarak’
Skor >=60, Nilai = ‘Pertama’
Skor >=50, Nilai = ‘Kedua’
Skor >=35, Nilai = ‘Lulus’
Jika ada yang lain Nilai = ‘Gagal.’

Kode:

Sub Switch_Case1()

Dim Score As Integer Score = 65 Select 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 Akhiri Sub

Jalankan kode ini. Kami akan mendapatkan nilai di kotak pesan.

Karena skornya lebih dari 60 tetapi kurang dari 85, kelasnya adalah ‘Pertama.’

Contoh #3

Kami telah melihat bagaimana menemukan nilai untuk satu siswa. Bagaimana dengan menemukan nilai untuk lebih dari satu siswa? Berikut adalah skor siswa.

Karena lebih dari satu siswa yang terlibat, kita perlu menyertakan loop UNTUK BERIKUTNYA di VBAFOR BERIKUTNYA Loop Dalam bahasa pemrograman VBAAll menggunakan loop VBA For Next. Setelah pernyataan FOR, ada kriteria dalam loop ini, dan kode akan diulang hingga kriteria tercapai. Baca selengkapnya. Di bawah ini adalah kode VBA Kode VBA Kode VBA mengacu pada serangkaian instruksi yang ditulis oleh pengguna dalam bahasa pemrograman Visual Basic Applications pada Visual Basic Editor (VBE) untuk melakukan tugas tertentu.Baca lebih lanjut.

Kode:

Sub Switch_Case2() Dim k Sebagai Integer Untuk k = 2 Sampai 7 Select Case Cells(k, 2).Value Case Is >= 85 Cells(k, 3).Value = “Dist” Case Is >= 60 Cells(k, 3).Nilai = Kasus “Pertama” >= 50 Sel(k, 3).Nilai = Kasus “Kedua” >= 35 Sel(k, 3).Nilai = “Lulus” Kasus Lain Sel(k, 3) .Value = “Gagal” Akhir Pilih Selanjutnya k Akhir Sub

Jalankan kode ini. Kita akan mendapatkan nilai.

Hal-hal untuk diingat

Seringkali, Switch Case disebut sebagai ‘Select Case.’
Switch adalah functionSwitch Adalah FunctionSwitch function di excel adalah fungsi perbandingan dan referensi yang membandingkan dan mencocokkan sel yang dirujuk ke sekelompok sel dan mengembalikan hasilnya berdasarkan kecocokan pertama yang ditemukan. Metode untuk menggunakan fungsi ini adalah =SWITCH( sel target, nilai 1, hasil 1….).baca lebih lanjut, bukan pernyataan.
Jika tidak ada uji logika yang BENAR, Anda dapat melewatkan hasil alternatif dalam pernyataan CASE ELSE dan selalu menutup pernyataan dengan kata ‘END SELECT’.

Artikel yang Direkomendasikan

Artikel ini adalah panduan untuk VBA Switch Case. Di sini, kami membahas pernyataan pengalihan kasus di Excel VBA, contoh, dan templat Excel yang dapat diunduh. Di bawah ini adalah beberapa artikel bermanfaat yang terkait dengan VBA: –