Giúp đỡ về mảng và vòng For

[minhduc0912]

Mình có cột A vs list: Nguyen Van A; Ho Tan Tai; Dang Thu Thao; Le Ba Hung;.....
mình viết hàm như sau:

Function FindStr(st)


Dim mang(1 To 5) As String
mang(1) = "Nguyen"
mang(2) = "Le"
mang(3) = "Dang"
mang(4) = "Mai"
mang(5) = "Hoang"
Dim i As Integer
Dim s As Integer
Dim s1 As String
s = 0


For i = 1 To 5 Step 1
    s = Application.WorksheetFunction.Find(mang(i), st)
    If (s <> 0) Then
        FindStr = s
    End If
    If (s <> 0) Then
        Exit For
    End If
Next i


End Function

mình kéo hàm FindStr tại cột B thì kết quả tại cột B chỉ hiện thị những Cell tại cột A có "Nguyen", những ô khác hiện #VALUE
Mọi người giải thích, chỉnh sửa giúp. Thanks!!!

 

[vu_tuan_manh_linh]

Gửi bạn một vài ý kiến:
1. Bạn nên dùng hàm Instr() thay vì Application.WorksheetFunction.FInd()
2. Trong vòng lặp For của bạn, 1 câu lệnh If đang có vấn đề!

 

[minhduc0912]

Thanks bạn vu_tuan_manh_linh, đã làm được