Showing posts with label THEN. Show all posts
Showing posts with label THEN. Show all posts

Sunday, April 14, 2019

DÙNG IF THEN ELSE TRONG VBA

Cấu trúc lệnh

If Điều kiện 1 Then
Biểu thức 1
Elseif  Điều kiện 2  then
Biểu thức 2
Else
Biểu thức 3
End If

Điều kiện

  • Toán tử
=  bằng
> Lớn hơn
< nhỏ hơn
>= Lớn hơn hoặc bằng
<= Nhỏ hơn hoặc bằng
<> khác
  • Logic
And  Và
or Hoặc
Xor cả 2 đúng hoặc sai là đúng
Not phủ định

Ví dụ 1
Private Sub CommandButton1_Click()
Dim firstnum, secondnum As Single
firstnum = Cells(1,1).Value
secondnum = Cells(1,2).Value
If firstnum>secondnum Then
  MsgBox “ The first number is greater than the second number”
If firstnum<secondnum Then
  MsgBox “ The first number is less than the second number”
Else
  MsgBox “ The two numbers are equal ”
End If
End Sub
Ví dụ 2
Private Sub CommandButton1_Click()
Dim mark As Integer
Dim grade As String
mark = Int(Rnd * 100)
Cells(1, 1).Value = mark
If mark < 20 And mark >= 0 Then
grade = “F”
Cells(2, 1).Value = grade
ElseIf mark < 30 And mark >= 20 Then
grade = “E”
Cells(2, 1).Value = grade
ElseIf mark < 40 And mark >= 30 Then
grade = “D”
Cells(2, 1).Value = grade
ElseIf mark < 50 And mark >= 40 Then
grade = “C-“
Cells(2, 1).Value = grade
ElseIf mark < 60 And mark >= 50 Then
grade = “C”
Cells(2, 1).Value = grade
ElseIf mark < 70 And mark >= 60 Then
grade = “C+”
Cells(2, 1).Value = grade
ElseIf mark < 80 And mark >= 70 Then
grade = “B”
Cells(2, 1).Value = grade
ElseIf mark <= 100 And mark > -80 Then
grade = “A”
Cells(2, 1).Value = grade
End If
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...