Showing posts with label SELECT CASE. Show all posts
Showing posts with label SELECT CASE. Show all posts

Sunday, April 14, 2019

SELECT CASE…… END CASE TRONG VBA

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.
Objects-349ediwenaob6p7oqfd1j4

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
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

Over 50 Ebooks Excel and VBA free Download

1. Statistics and Probability for Engineering Applications With Microsoft Excel by W.J. DeCoursey - PDF Free Download Download Siz...