Lệnh tìm kiếm có điều kiện đặc biệt trong cell

[jaispierre]

Em chào các bác, các anh, các chị
Em có file dữ liệu như đính kèm. Em muốn viết câu lệnh bằng VBA như sau:
với từng dòng từ dòng 2 đến hết
- giá trị ở ô B2 tìm trong ô C2, nếu thỏa mãn thì trả về giá trị ở ô D2 (giá trị ở ô D2 là giá trị tiếp theo của giá trị tìm kiếm)
- điều kiện là giá trị ở ô B2 chỉ tìm các giá trị có giá trị EX... ở ô C2 (giá trị AX... thì bỏ qua)
- các ô tiếp theo tương tự
Em nghĩ mãi không ra, nhờ các bác anh chị có kinh nghiệm xem giúp
Em xin cảm ơn nhiều

 

[befaint]

điều kiện

Tại sao D5 lại cho kết quả như vậy hả mình?

 

[huuthang_bd]

Ô D5 không giống quy luật mô tả.
Có trường hợp vầy không

EX01
AX01
EX02

 

[jaispierre]

Bác có thể bỏ qua ô 5 cũng được ạ, em dùng hàm khác cho ô này

 

[befaint]

bỏ qua

 

[jaispierre]

Em quên mất là nếu em đổi giá trị EX01 thành EX02 hoặc EX06 thì giá trị tìm tiếp theo nó vẫn ra ạ.
Ví dụ như đổi giá trị cột B thành EX06 thì giá trị cột D thành EX01 hoặc nếu đổi thành EX03 thì giá trị cột D vẫn ra là EX05 hoặc ra là không tìm thấy ạ.
Em gửi file đính kèm.

 

[befaint]

quên

 

[jaispierre]

Không được bác ơi, khi em đổi giá trị cột B thành EX02 thì giá trị cột E nó vẫn là EX02, kết quả mong muốn phải trở về EX01
Hay ví dụ ô B4, em để là EX02 thì giá trị ở E4 phải là N/A vì không có giá trị tìm. Hay em đổi giá trị ô B8 là EX03 thì giá trị E8 phải là EX05 ạ.

 

[befaint]

Không được bác ơi, khi em đổi giá trị cột B thành EX02 thì giá trị cột E nó vẫn là EX02, kết quả mong muốn phải trở về EX01
Hay ví dụ ô B4, em để là EX02 thì giá trị ở E4 phải là N/A vì không có giá trị tìm. Hay em đổi giá trị ô B8 là EX03 thì giá trị E8 phải là EX05 ạ.

Mình ráng chờ vài bữa để mình tìm con đường chui vào đầu mình đã nhé. Hiện tại chưa tìm được đường nên chưa nghĩ ra cách.

 

[huuthang_bd]

Ủa, thấy cột so sánh đúng hết với kết quả mẫu của bạn rồi còn không được gì nữa bạn.
--
Nãy làm vầy mà thấy không giống kết quả mẫu, #7 giống kết quả mẫu còn không được thì biết đâu code này lại được

Function Tim(A As String, AAA As String) As String
Dim X As String, V As Long, Tmp As Variant, bCheck As Long
X = Left(A, 2)
V = Val(Mid(A, 3))
Tmp = Split(AAA, ChrW(10))
For i = LBound(Tmp, 1) To UBound(Tmp, 1)
    If Tmp(i) Like X & "*" Then
        If Val(Mid(Tmp(i), 3)) <= V Then
            bCheck = True
        ElseIf bCheck Then
            Tim = Tmp(i)
            Exit For
        End If
    End If
Next
End Function

=tim("AX01",C2)

=tim("EX02",C4)

 

[jaispierre]

Vì giá trị bị có tính lặp lại bác ạ, sau khi tìm từ trên xuống dưới mà không thấy thì nó lại quay lên 1 vòng. Ví dụ em đưa ra giá trị EX03, nó sẽ tìm trong ô EX01 EX03 EX05 và đưa ra EX05. nếu em đưa ra giá trị EX05 thì nó sẽ lại quay lên trên và đưa ra giá trị EX01 (vòng lặp lại EX01 EX03 EX05)

 

[jaispierre]

Bác nào nghiên cứu giúp em phần lặp lại với

 

[Ba Tê]

Bác nào nghiên cứu giúp em phần lặp lại với

Muốn lòng vòng thì cho chạy lòng vòng. Dữ liệu nhiều thì chuyển thành Sub.
Kiểm tra xem có đúng ý không?

 

[jaispierre]

Tuyệt vời, em cảm ơn bác Ba Tê nhiều ạ