Select case…… End case cũng thường được dùng cho những câu lệnh điều kiện, như bài trước chúng ta cũng làm quen với câu lệnh điều kiện If, tuy nhiên nếu phải làm việc với nhiều lựa chọn thì câu lệnh điều kiện if sẽ quá cồng kềnh, trong trường hợp đó chúng ta sẽ sử dụng lệnh Select case.
Cấu trúc lệnh:
Select Case variable
Case value 1
Statement
Case value 2
Statement
Case value 3
Statement
Case Else
Statement
End Select
Select Case variable
Case value 1
Statement
Case value 2
Statement
Case value 3
Statement
Case Else
Statement
End Select
Ví dụ
Private Sub CommandButton1_Click()
Dim Diem As Single
Dim Xeploai As String
Diem = Cells(1, 1).Value
Select Case mark
Case 0 To 20
Xeploai = “F”
Case 20 To 29
Xeploai = “E”
Case 30 To 39
Xeploai = “D”
Case 40 To 59
Xeploai = “C”
Case 60 To 79
Xeploai = “B”
Case 80 To 100
Xeploai = “A”
Case Else
Xeploai = “Loi!”
End Select
Cells(1, 2) = Xeploai
End Sub
Private Sub CommandButton1_Click()
Dim Diem As Single
Dim Xeploai As String
Diem = Cells(1, 1).Value
Select Case mark
Case 0 To 20
Xeploai = “F”
Case 20 To 29
Xeploai = “E”
Case 30 To 39
Xeploai = “D”
Case 40 To 59
Xeploai = “C”
Case 60 To 79
Xeploai = “B”
Case 80 To 100
Xeploai = “A”
Case Else
Xeploai = “Loi!”
End Select
Cells(1, 2) = Xeploai
End Sub
Xem thêm các bài giảng khác:
https://www.quantriexcel.info/p/hoc-lap-trinh-vba-qua-17-chuyen-e-video.html?m=1
?DienDan.Edu.Vn cám ơn bạn đã quan tâm và rất vui vì bài viết đã đem lại thông tin hữu ích cho bạn. https://diendan.edu.vn/
?Thanks
DienDan.Edu.Vn Cám ơn bạn đã quan tâm và rất vui vì bài viết đã đem lại thông tin hữu ích cho bạn.DienDan.Edu.Vn! là một website với tiêu chí chia sẻ thông tin,... Bạn có thể nhận xét, bổ sung hay yêu cầu hướng dẫn liên quan đến bài viết. Vậy nên đề nghị các bạn cũng không quảng cáo trong comment này ngoại trừ trong chính phần tên của bạn.Cám ơn.
