Thay vì nhiều câu lệnh If Then trong Excel VBA, bạn có thể sử dụng cấu trúc Chọn trường hợp.

Tình huống:

Select Case in Excel VBA

Đặt một nút lệnh trên trang tính của bạn và thêm các dòng mã sau:

  1. Đầu tiên, khai báo hai biến. Một biến kiểu Số nguyên được đặt tên là điểm và một biến kiểu Chuỗi có tên là kết quả.

Dim score As Integer, result As String

  1. Chúng ta khởi tạo điểm biến bằng giá trị của ô A1.

score = Range("A1").Value

  1. Thêm cấu trúc Chọn trường hợp.

Select Case score

Case Is >= 80

result = "very good"

Case Is >= 70

result = "good"

Case Is >= 60

result = "sufficient"

Case Else

result = "insufficient"

End Select

Giải thích: Excel VBA sử dụng giá trị của điểm biến để kiểm tra từng câu lệnh Case tiếp theo để xem liệu mã trong câu lệnh Case có được thực thi hay không.

  1. Ghi giá trị của kết quả biến vào ô B1.

Range("B1").Value = result

  1. Chạy thử chương trình.

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

Select Case Result

Lưu ý: Excel VBA thực thi mã trong câu lệnh Case thứ hai cho tất cả các giá trị lớn hơn hoặc bằng 70 và nhỏ hơn 80.