Pengkondisian : Select Case

Select Case pada VBA (Visual Basic for Applications) adalah pernyataan yang digunakan untuk membandingkan sebuah ekspresi dengan sejumlah nilai kemungkinan dan menjalankan kode yang sesuai dengan nilai yang cocok.

Select Case sangat cocok digunakan untuk kondisi yang memiliki banyak kemungkinan pengkondisian. Karena akan memudahkan program untuk mengambil keputusan berdasarkan nilai yang diberikan pada ekspresi.

Sintaks dasar dari Select Case pada VBA adalah sebagai berikut:

Select Case expression
    Case value1
        ' Script jika nilai sama dengan value1
    Case value2
        ' Script jika nilai sama dengan value2
    Case Else
        ' Script jika tidak ada nilai yang cocok dengan Case sebelumnya
End Select

Di sini, expression adalah ekspresi atau variabel yang akan dibandingkan dengan nilai yang diberikan. value1 dan value2 adalah nilai kemungkinan yang akan dibandingkan dengan ekspresi, dan Case Else adalah Case terakhir yang akan dieksekusi jika tidak ada nilai yang cocok dengan Case sebelumnya.

Contoh penggunaan Select Case pada VBA adalah sebagai berikut:

Sub SelectCaseExample()
    Dim nilai As Integer
    nilai = 3
    
    Select Case nilai
        Case 1
            MsgBox "Nilai adalah 1"
        Case 2
            MsgBox "Nilai adalah 2"
        Case 3
            MsgBox "Nilai adalah 3"
        Case Else
            MsgBox "Nilai tidak dikenal"
    End Select
End Sub

Dalam contoh ini, program akan mengevaluasi nilai variabel nilai dan membandingkannya dengan nilai kemungkinan yang diberikan di dalam blok Select Case. Karena nilai memiliki nilai 3, program akan mengeksekusi kode untuk case ketika nilai sama dengan 3 dan menampilkan pesan “Nilai adalah 3”.

Selain itu, Select Case pada VBA juga dapat digunakan dengan operator to, untuk menentukan nilai rentang yang cocok dengan lebih dari satu kondisi.

Berikut ini adalah contoh penggunaan Select Case pada VBA dengan Operator logika:

Sub SelectCaseLogic()
    Dim nilai As Integer
    nilai = 5
    
    Select Case nilai
        Case 1 To 3
            MsgBox "Nilai di antara 1 dan 3"
        Case Is >= 4 
            MsgBox "Nilai lebih dari 4"
        Case Else
            MsgBox "Nilai tidak dikenal"
    End Select
End Sub

Dalam contoh ini, program akan mengevaluasi nilai variabel nilai dan membandingkannya dengan nilai kemungkinan yang diberikan di dalam blok Select Case.

Karena nilai memiliki nilai 5, program akan mengeksekusi kode untuk case ketika nilai lebih dari 4 dan menampilkan pesan “Nilai di lebih dari 4”.