Mệnh đề Select-Case trong VBA

Mệnh đề Select-Case trong VBA được sử dụng để thực thi 1 hoặc nhiều khối lệnh từ nhiều điều kiện.

Khi một người dùng muốn thực hiện một nhóm các câu lệnh tùy thuộc vào một giá trị của một biểu thức, thì Select-Case sẽ được sử dụng. Mỗi giá trị được gọi là Case. Câu lệnh Case Else được thực thi nếu biểu thức kiểm tra không khớp với bất kỳ trường hợp nào được chỉ định bởi người dùng.

Case Else là một câu lệnh tùy chọn trong mệnh đề Select-Case, tuy nhiên, nó là tốt hơn khi luôn luôn có một câu lệnh Case Else.

Cú pháp mệnh đề Select-Case trong VBA

Dưới đây là cú pháp mệnh đề Select-Case trong VBA:

Select Case expression
   Case expressionlist1
      statement1
      statement2
      ....
   Case expressionlist2
      statement1
      statement2
      ....
   Case expressionlistn
      statement1
      statement2
      ....
   Case Else
      elsestatement1
      elsestatement2
      ....
End Select

Ví dụ mệnh đề Select-Case trong VBA

Dưới đây là ví dụ về mệnh đề Select-Case trong VBA:

Sub SelectCaseExample()
    Dim myVar As Integer
    myVar = 1
    
    Select Case myVar
       Case 1
          MsgBox "So nguyen duong nho nhat."
       Case 2
          MsgBox "So chan nho nhat."
       Case 3
          MsgBox "So nguyen to le nho nhat."
       Case Else
          MsgBox "Khong xac dinh."
    End Select
End Sub

Kết quả:

So nguyen duong nho nhat.