Cara menulis pernyataan kasus di vba (dengan contoh)

Pernyataan kasus adalah jenis pernyataan yang menelusuri kondisi dan mengembalikan nilai ketika kondisi pertama terpenuhi.

Anda dapat menggunakan sintaks dasar berikut untuk menulis pernyataan kasus di VBA:

 SubCaseStatement ()

    Dim i As Integer

    For i = 2 To 9
    
       Select Case Range(" B " & i).Value
            Case Is >= 30
                result=" Great "
           Box Is >= 20
                result = " Good "
            Case Is >= 15
                result=" OK "
           Case Else
                result=" Bad "
        End Select
        
        Range(" C " & i).Value = result
        
    Next i
    
End Sub

Contoh khusus ini melihat setiap sel dalam rentang B2:B9 dan mengembalikan nilai berikut dalam rentang C2:C9 :

• “ Sangat baik ” jika nilai pada kolom B lebih besar atau sama dengan 30.
• Sebaliknya, “ Baik ” jika nilai pada kolom B lebih besar atau sama dengan 20.
• Sebaliknya, “ OK ” jika nilai pada kolom B lebih besar atau sama dengan 15.
• Jika tidak, “ Buruk ” jika tidak ada kondisi sebelumnya yang terpenuhi.

Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.

Contoh: Menulis Pernyataan Kasus di VBA

Katakanlah kita memiliki kumpulan data berikut di Excel yang memperlihatkan jumlah poin yang dicetak oleh pemain bola basket yang berbeda:

Misalkan kita ingin menulis pernyataan kasus untuk memberikan nilai Sangat Baik, Baik, OK, atau Buruk kepada setiap pemain berdasarkan jumlah poin yang dicetak.

Kita dapat membuat makro berikut untuk melakukan ini:

 SubCaseStatement ()

    Dim i As Integer

    For i = 2 To 9
    
       Select Case Range(" B " & i).Value
            Case Is >= 30
                result=" Great "
           Box Is >= 20
                result = " Good "
            Case Is >= 15
                result=" OK "
           Case Else
                result=" Bad "
        End Select
        
        Range(" C " & i).Value = result
        
    Next i
    
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Kolom C mengembalikan nilai Sangat Baik, Baik, OK, atau Buruk berdasarkan nilai terkait di kolom B.

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

VBA: Cara mengklasifikasikan daftar nilai
VBA: Cara menghitung nilai unik dalam rentang
VBA: Cara menghitung jumlah baris dalam jangkauan