Dò tìm kí tự trong chuổi

[Jenhcv]

cám ơn anh chị em giúp đở



==============
domfootwear: Lần sau viết tiêu đề cho rõ ràng nha bạn.

 

[Luc Van]

cám ơn anh chị em giúp đở

Mình làm được rồi, nhưng hơi dài thí.
Chờ tìm cách khác xem sao.
P/s: Dữ liệu bạn đưa lên bị sai cell F7 và O3. Cần phải sửa lại thì mới cho ra đúng kết quả bạn muốn.

 

[Jenhcv]

Mình làm được rồi, nhưng hơi dài thí.
Chờ tìm cách khác xem sao.
P/s: Dữ liệu bạn đưa lên bị sai cell F7 và O3. Cần phải sửa lại thì mới cho ra đúng kết quả bạn muốn.

Cám ơn bác Luc Van, bác cho em xin file giải đc không a. Để em xem thử thế nào, em mò hoài hok ra buồn quá

 

[viehoai]

cám ơn anh chị em giúp đở



==============
domfootwear: Lần sau viết tiêu đề cho rõ ràng nha bạn.

Thực ra cái này dùng 14 hàm Match() nối nhau là được. Tuy nhiên dùng VBA vẫn hay hơn. Ý bạn sao?

 

[bebo021999]

Thực ra cái này dùng 14 hàm Match() nối nhau là được. Tuy nhiên dùng VBA vẫn hay hơn. Ý bạn sao?

Trong 14 cái MATCH lại có 14 cái MID.
Dùng VBA là chuẩn nhất.
Bó tay.

 

[Jenhcv]

Thực ra cái này dùng 14 hàm Match() nối nhau là được. Tuy nhiên dùng VBA vẫn hay hơn. Ý bạn sao?

Cái nào cũng đc a, cái nào tiện thì bác giải dùm em. Thank you

 

[Jenhcv]

nhân tiện bác chỉ dùm em cách nối nhìu hàm Match vào với nhau cái, em dùng cái AND mà nó hok cho

 

[viehoai]

Cái nào cũng đc a, cái nào tiện thì bác giải dùm em. Thank you

Bạn kiểm tra lại giúp mình chuỗi bạn đưa ra có sai không sao kết quả có 14 số?
Chuỗi 2 ký tự thứ 5 là 1D và chuỗi 2 kí tự số 14 không có trong bảng trên ở cột 5 và 14 tương ứng
Nếu bạn dùng hàm Macth() thì hàm nối là: Mathch() & Mathch() .v.v..

 

[Jenhcv]

Bạn kiểm tra lại giúp mình chuỗi bạn đưa ra có sai không sao kết quả có 14 số?
Chuỗi 2 ký tự thứ 5 là 1D và chuỗi 2 kí tự số 14 không có trong bảng trên ở cột 5 và 14 tương ứng
Nếu bạn dùng hàm Macth() thì hàm nối là: Mathch() & Mathch() .v.v..

Đúng là em nhập sai 2 cái, nhưng em sửa lại thì nó đúng, mà giờ nó có lỗi mới là những cái 05 nó chỉ hiện số 5 nên tool nó check ko đc nên không ra số

Bác fix dùm em, em gửi bài sửa lên lại, các anh chị fix dùm em

 

[Jenhcv]

Fix dùm em viehhoai ơi

 

[viehoai]

Đúng là em nhập sai 2 cái, nhưng em sửa lại thì nó đúng, mà giờ nó có lỗi mới là những cái 05 nó chỉ hiện số 5 nên tool nó check ko đc nên không ra số

Bác fix dùm em, em gửi bài sửa lên lại, các anh chị fix dùm em

Từ B2:Q11 bản chất nó là text nên bạn định dạng text cho bảng đó và chuyển số 5 thènh 05 là ok hay bạn muốn nó luôn là số?

 

[Jenhcv]

em cảm ơn anh rất nhìu, em đổi lại dạng text thì đã chạy đúng 100%.

Lần nữa cảm ơn anh

 

[viehoai]

em cảm ơn anh rất nhìu, em đổi lại dạng text thì đã chạy đúng 100%.

Lần nữa cảm ơn anh

Nếu bạn muốn để y như thế thì sử code như sau thử xem nhé:

Function FindStr(ByVal Rng As Range, sRng As Range)
Dim Str As String, Tmp As String
Dim ArrDim i&, j&
On Error Resume Next
Arr = sRng.Value
For j = 1 To UBound(Arr, 2)
  Str = Mid(Rng.Value, j * 2 - 1, 2)
  If CDbl(Str) < 10 Then
    Str = CStr(CDbl(Str))
  End If
      For i = 1 To UBound(Arr)
         If CStr(Arr(i, j)) = Str Then
          Tmp = Tmp & Right(CStr(i), 1)
          GoTo NextJ
         End If
      Next
NextJ:
Next
FindStr = Tmp
End Function

(Bạn nhấn nút cảm ơn là được rôì, không nhất thiết nói bằng lời đâu)