Bài 13: Lệnh Select Case trong lập trình vba access

Học lập trình VBA access
Bài 13: Lệnh Select Case trong lập trình vba access

Lệnh Select Case có gì khác so với lệnh if
Về cơ bản giống lệnh if nhưng cách việt gọn hơn.

Select Case expresison
Case value1
// Chạy nếu expresison = value1, sau đó thoát khỏi lệnh Select
lệnh ...
Case value2
// Chạy nếu expresison = value2, sau đó thoát khỏi lệnh Select
lệnh ...
....
Case Else
// Chạy nếu không có case nào trên thỏa mãn
lệnh ...
End Select

Ví dụ lệnh Select Case trong VBA như sau

Private Sub btSelect_Click()
    Dim so As Integer
    so = cbSo.Value
    Select Case so
    Case 1
        lblKQ.Caption = "So 1"
    Case 2
         lblKQ.Caption = "So 2"
    Case 3
         lblKQ.Caption = "So 3"
    Case Else
         lblKQ.Caption = ".."
    End Select
End Sub
Private Sub btIf_Click()
    Dim so As Integer
    so = cbSo.Value
    If so = 1 Then
        lblKQ.Caption = "So 1"
    ElseIf so = 2 Then
        lblKQ.Caption = "So 2"
    ElseIf so = 3 Then
        lblKQ.Caption = "So 3"
    End If

End Sub

So sánh giữa lệnh if và select

Private Sub btOK_Click()
    Dim so
    so = txtSo.Value
    Select Case so
    Case 1 To 5
        MsgBox "So tu 1 den 5"
    Case 6, 7, 8
        MsgBox "So tu 6 den 8"
    Case 9 To 10
        MsgBox "9 den 10"
    Case Else
        MsgBox "Not between 1 and 10"
    End Select
End Sub

Private Sub btIf_Click()
Dim so
    so = txtSo.Value
    If so >= 1 And so <= 5 Then
        MsgBox "So tu 1 den 5"
    ElseIf so = 6 Or so = 7 Or so = 8 Then
        MsgBox "So tu 6 den 8"
    ElseIf so = 8 Or so = 9 Then
        MsgBox "9 den 10"
    Else
        MsgBox "Not between 1 and 10"
    End If
End Sub

Cảm ơn đã xem, đã có 1,189 lượt xem.