Sử dụng câu lệnh If Then trong Excel VBA để thực thi các dòng mã nếu một điều kiện cụ thể được đáp ứng.

Câu lệnh If Then

Đặt một liên kết: / vba-create-a-macro # command-button [command button] trên trang tính của bạn và thêm các dòng mã sau:

Dim score As Integer, result As String

score = Range("A1").Value

If score >= 60 Then result = "pass"

Range("B1").Value = result

Giải thích: nếu điểm lớn hơn hoặc bằng 60, Excel VBA trả về điểm vượt qua.

Kết quả khi bạn bấm vào nút lệnh trên sheet:

Excel VBA If Then Statement

Lưu ý: nếu điểm nhỏ hơn 60, Excel VBA sẽ đặt giá trị của kết quả biến trống vào ô B1.

Câu lệnh khác

Đặt một liên kết: / vba-create-a-macro # command-button [command button] trên trang tính của bạn và thêm các dòng mã sau:

Dim score As Integer, result As String

score = Range("A1").Value

If score >= 60 Then

result = "pass"

Else

result = "fail"

End If

Range("B1").Value = result

Giải thích: nếu điểm lớn hơn hoặc bằng 60, Excel VBA trả về vượt qua, nếu không Excel VBA trả về không thành công.

Kết quả khi bạn bấm vào nút lệnh trên sheet:

Excel VBA Else Statement

Lưu ý: chỉ khi bạn có một dòng mã sau câu lệnh Then và no Else, bạn mới được phép đặt một dòng mã ngay sau Then và bỏ qua (bỏ đi) End If (ví dụ đầu tiên). Nếu không, hãy bắt đầu một dòng mới sau các từ Sau đó và Khác và kết thúc bằng Kết thúc Nếu (ví dụ thứ hai).