Kiểm tra dữ liệu với 1 mảng

[quan_tn]

Tôi có 1 mảng HoTen với n phần tử. Bây giờ có 1 cái tên "Nguyễn Văn A", nhờ các bạn viết giúp đoạn code để kiểm tra xem cái tên đó có trong mảng họ tên hay không. Kết quả trả về là "Có" hoặc "không".
Xin cám ơn

 

[cadafi]

Tôi có 1 mảng HoTen với n phần tử. Bây giờ có 1 cái tên "Nguyễn Văn A", nhờ các bạn viết giúp đoạn code để kiểm tra xem cái tên đó có trong mảng họ tên hay không. Kết quả trả về là "Có" hoặc "không".
Xin cám ơn

Giả sử cột A chứa danh sách họ tên.
Tại ô B1 bạn gõ công thức:

B1 = CHOOSE(--(COUNTIF(A:A,"Nguyen Van A")>0)+1,"Khong","Co")

 

[chibi]

Code đây

...
kiem_tra = "Khong"
For i = 1 To n
    If hoten(i) = "Nguyen Van A" Then
        kiem_tra = "Co"
        Exit For
    End If
Next
...

 

[ChanhTQ@]

Code đây

...
kiem_tra = "Khong"
For i = 1 To n
    If hoten(i) = "Nguyen Van A" Then
        kiem_tra = "Co"
        Exit For
    End If
Next
...

1./ Chưa chắc chắn lắm, nếu danh sách sẽ là tiếng Việt có dấu với má đầy đủ!
2./ Nếu là tiấng Anh hay tiếng Việt không dấu đi chăng nữa thì dùng phương thức sau sẽ chóng vánh hơn nhiều

 Dim Ten As String:            Dim Rng As Range, sRng As Range
 
 Ten="Nguyen Van Anh"
 Set Rng = Range([A1], [A65500].End(xlUp))
 Set sRng=Rng.FIND(What:=Ten, LookIn:= xlValues, LookAt:= xlWhole)
 If Not sRng Is Nothing Then _
       MsgBox sRng.Value

Xin các bạn cho nhận xét thêm.

 

[rollover79]

1./ Chưa chắc chắn lắm, nếu danh sách sẽ là tiếng Việt có dấu với má đầy đủ!
2./ Nếu là tiấng Anh hay tiếng Việt không dấu đi chăng nữa thì dùng phương thức sau sẽ chóng vánh hơn nhiều

 Dim Ten As String:            Dim Rng As Range, sRng As Range
 
 Ten="Nguyen Van Anh"
 Set Rng = Range([A1], [A65500].End(xlUp))
 Set sRng=Rng.FIND(What:=Ten, LookIn:= xlValues, LookAt:= xlWhole)
 If Not sRng Is Nothing Then _
       MsgBox sRng.Value

Xin các bạn cho nhận xét thêm.

Đây là 2 trường hợp khác nhau hoàn toàn, so sánh sao được, chibi xử lý trên biến mảng của VBA, còn bạn thì xử lý trên mảng cells, mà nếu là mảng cells thì trong trường hợp này dùng công thức cho nhanh chứ cần gì phải dùng VBA.

 

[ndu96081631]

Giả sử cột A chứa danh sách họ tên.
Tại ô B1 bạn gõ công thức:

B1 = CHOOSE(--(COUNTIF(A:A,"Nguyen Van A")>0)+1,"Khong","Co")

Dùng COUNTIF thì tại sao không kết hợp với IF mà phải CHOOSE nhỉ?
Ví dụ:

=IF(COUNTIF(A:A,"Nguyen Van A"),"Có",Không")

 

[quan_tn]

Code đây

...
kiem_tra = "Khong"
For i = 1 To n
    If hoten(i) = "Nguyen Van A" Then
        kiem_tra = "Co"
        Exit For
    End If
Next
...

Cám ơn các bạn đã giúp. Mình đang lập 1 Form trong đó có 1 ComboBox. Khi nhập vào 1 giá trị nào đó nếu không có trong danh sách thì báo lỗi. Các giá trị trong list được nạp vào từ 1 biến dữ liệu mảng. Nếu dùng vòng lặp For ... Next thì mình sợ chương trình xử lý hơi chậm.

 

[chibi]

Ví dụ trong file đính kèm