Choose Function

Chức năng
Chọn một phần tử đã chỉ định vị trí trước.

Cú pháp
Choose( index_vitri, choice-1[, choice-2, ... [, choice-n]] )
Choose trả về một Null nếu index_vitri nhỏ hơn 1 hoặc lớn hơn số lượng các lựa chọn.
Nếu index_vitri không phải là một số nguyên, nó sẽ lấy phần nguyên của số trước khi được đánh giá.

Ví Dụ

Sub Function_VBA() On Error Resume Next 'bo qua loi, di den dong lenh tiep Dim Str As String, Str2 As String, Str3, Str4, Str5, Str6 Str = Choose(2, "Kieu", "Ha", "Paris"): Debug.Print Str 'tra ve Ha Str2 = Choose(1.1, "Kieu", "Ha", "Paris"): Debug.Print Str2 'tra ve Kieu Str3 = Choose(2.9, "Kieu", "Ha", "Paris"): Debug.Print Str3 'tra ve Ha Str4 = Choose(3.1, "Kieu", "Ha", "Paris"): Debug.Print Str4 'tra ve Paris Str5 = Choose(3.9, "Kieu", "Ha", "Paris"): Debug.Print Str5 'tra ve Paris Str6 = Choose(4, "Kieu", "Ha", "Paris"): Debug.Print Str6 'tra ve Null, vi 4 lon hon so phan tu trong bo suu tap End Sub

Kết quả:
Nhấn Ctrl + G để mở cửa sổ Immediate để xem kết quả. Hình minh họa: