Mệnh đề if-else trong VBA được sử dụng để kiểm tra giá trị dạng boolean của điều kiện. Mệnh đề này trả về giá trị True hoặc False. Có các kiểu của mệnh đề if-else trong java như sau:
- Mệnh đề if
- Mệnh đề if-else
- Mệnh đề if-elseif-else
- Mệnh đề if lồng nhau
1. Mệnh đề if
Mệnh đề if được sử dụng để kiểm tra giá trị dạng boolean của điều kiện. Khối lệnh sau if được thực thi nếu giá trị của điều kiện là True
Cú pháp:
If (condition) Then
' statement
End If
Ví dụ:
Sub viduIf()
Dim age As Integer
age = 20
If (age >= 18) Then
MsgBox "Du tuoi lao dong."
End If
End Sub
Kết quả:
2. Mệnh đề if-else
Mệnh đề if-else cũng kiểm tra giá trị dạng boolean của điều kiện. Nếu giá trị điều kiện là True thì chỉ có khối lệnh sau if sẽ được thực hiện, nếu là False thì chỉ có khối lệnh sau else được thực hiện.
Cú pháp:
If (condition) Then
' khối lệnh này được thực thi
' nếu condition là true
Else
' khối lệnh này được thực thi
' nếu condition = false
End If
Ví dụ:
Sub viduIfElse1()
Dim number As Integer
number = 13
If (number Mod 2 = 0) Then
MsgBox "number " & number & " la so chan."
Else
MsgBox "number " & number & " la so le."
End If
End Sub
Kết quả:
3. Mệnh đề if-elseif-else
Mệnh đề if-elseif-else cũng kiểm tra giá trị dạng boolean của điều kiện. Nếu giá trị điều kiện if là True thì chỉ có khối lệnh sau if sẽ được thực hiện. Nếu giá trị điều kiện ifelse nào là True thì chỉ có khối lệnh sau elseif đó sẽ được thực hiện… Nếu tất cả điều kiện của if và elseif là False thì chỉ có khối lệnh sau else sẽ được thực hiện.
Cú pháp:
If (condition1) Then
' khối lệnh này được thực thi
' nếu condition1 là true
ElseIf (condition2) Then
' khối lệnh này được thực thi
' nếu condition2 là true
ElseIf (condition3) Then
' khối lệnh này được thực thi
' nếu condition3 là true
...
Else
' khối lệnh này được thực thi
' nếu tất cả những điều kiện trên là false
End If
Ví dụ:
Sub viduIfElse2()
Dim marks As Integer
marks = 75
If (marks < 50) Then
MsgBox "Tach!"
ElseIf (marks >= 80 And marks < 90) Then
MsgBox "Xep loai B"
ElseIf (marks >= 90 And marks < 100) Then
MsgBox "xep loai A"
Else
MsgBox "Xep loai TB"
End If
End Sub
Kết quả:
4. Mệnh đề if lồng nhau
Một câu lệnh If hoặc ElseIf bên trong câu lệnh If hoặc ElseIf khác được biết đến như là mệnh đề if lồng nhau. Các câu lệnh if bên trong được thực thi dựa trên các câu lệnh if bên ngoài.
Ví dụ:
Sub viduNestedIf()
Dim a As Integer
a = 23
If a > 0 Then
MsgBox "Number la mot so duong"
If a = 1 Then
MsgBox "Number = 1"
ElseIf a = 2 Then
MsgBox "Number = 2"
ElseIf a = 3 Then
MsgBox "Number = 3"
Else
MsgBox "Number khong phai la 0,1,2 hoac 3"
End If
ElseIf a < 0 Then
MsgBox "Number la mot so am"
Else
MsgBox "Number la so 0"
End If
End Sub
Kết quả:
Click OK.
