So sánh 1 ký tự trong 1 chuỗi với 1 chuỗi khác

[tranthanh2200]

Em có 2 cột chuỗi ký tự như trong file. Em muốn so sánh 1 trong số các đặc điểm ở bảng 2 đối chiếu với bảng 1 và đánh giá. Xin cảm ơn a

 

[bebo021999]

Ngan, vịt, gà bò,... có phải là dữ liệu thật không?
Nếu không phải thì Dữ liệu thật của bạn nó thế nào?
Dữ liệu gốc 10000 dòng thì bạn post lên khoảng vài chục dòng nhé xem sao

 

[tranthanh2200]

Ngan, vịt, gà bò,... có phải là dữ liệu thật không?
Nếu không phải thì Dữ liệu thật của bạn nó thế nào?
Dữ liệu gốc 10000 dòng thì bạn post lên khoảng vài chục dòng nhé xem sao

Dữ liệu của mình nó cấu trúc kiểu như file đó bạn a.

 

[bebo021999]

Post thêm vài chục dòng đi bạn

 

[tranthanh2200]

Ngan, vịt, gà bò,... có phải là dữ liệu thật không?
Nếu không phải thì Dữ liệu thật của bạn nó thế nào?
Dữ liệu gốc 10000 dòng thì bạn post lên khoảng vài chục dòng nhé xem sao

Dữ liệu gốc đây a. Bạn xem hộ mình với. Thanks

 

[Phuocam]

Dữ liệu gốc đây a. Bạn xem hộ mình với. Thanks

Có những mã bệnh có phần mở rộng như D68.9. Khi dò: phải dò toàn bộ hay chỉ cần 3 ký tự đầu?

.

 

[bebo021999]

Có những mã bệnh có phần mở rộng như D68.9. Khi dò: phải dò toàn bộ hay chỉ cần 3 ký tự đầu?

Theo mình thì 3 ký tự đầu thôi.
Kiểu như:
Cuối trang: "Đau bụng uống nhân sâm"
Đầu trang sau:
"Tắc tử"

 

[Phuocam]

Dùng thử UDF

Public Function KiemTraThuoc(ByVal mabenh_do As String, ByVal mabenh_goc As String) As Boolean
Dim v As Variant
KiemTraThuoc = False
For Each v In Split(mabenh_do, ";")
    If InStr(1, mabenh_goc, Left(v, 3)) > 0 Then
        KiemTraThuoc = True
        Exit For
    End If
Next v
End Function

Tại H3, nhập công thức:

=KiemTraThuoc(A3,VLOOKUP(C3,Data!$B:$C,2,0))

 

[tranthanh2200]

Có những mã bệnh có phần mở rộng như D68.9. Khi dò: phải dò toàn bộ hay chỉ cần 3 ký tự đầu?

.

Các mã cách nhau bằng dấu ";" dò tất cả các mã trong chuỗi đó so với data gốc bạn ạ

 

[Phuocam]

Các mã cách nhau bằng dấu ";" dò tất cả các mã trong chuỗi đó so với data gốc bạn ạ

Sửa dòng: If InStr(1, mabenh_goc, Left(v, 3)) > 0 Then

thành: If InStr(1, mabenh_goc, v) > 0 Then

.

 

[tranthanh2200]

Sửa dòng: If InStr(1, mabenh_goc, Left(v, 3)) > 0 Then

thành: If InStr(1, mabenh_goc, v) > 0 Then

.

Cảm ơn bạn. Bạn có thể nhắn STK mình mời bạn cốc coffe không

 

[befaint]

Bạn có thể nhắn STK

Cả 2 chúng mình đều có MoMo mà.

 

[tranthanh2200]

Dùng thử UDF

Public Function KiemTraThuoc(ByVal mabenh_do As String, ByVal mabenh_goc As String) As Boolean
Dim v As Variant
KiemTraThuoc = False
For Each v In Split(mabenh_do, ";")
    If InStr(1, mabenh_goc, Left(v, 3)) > 0 Then
        KiemTraThuoc = True
        Exit For
    End If
Next v
End Function

Tại H3, nhập công thức:

=KiemTraThuoc(A3,VLOOKUP(C3,Data!$B:$C,2,0))

Cho em hỏi thêm với bác. Như hình lại ra TRUE. Đúng ra phải là False. Thanks bác

 

[Phuocam]

Cho em hỏi thêm với bác. Như hình lại ra TRUE. Đúng ra phải là False. Thanks bác

.
Bạn sửa lại code theo bài số 10 (so sánh toàn bộ).

Public Function KiemTraThuoc(ByVal mabenh_do As String, ByVal mabenh_goc As String) As Boolean
'So sánh toàn bộ
Dim v As Variant
KiemTraThuoc = False
For Each v In Split(mabenh_do, ";")
    If InStr(1, mabenh_goc, v ) > 0 Then
        KiemTraThuoc = True
        Exit For
    End If
Next v
End Function

.

 

[tranthanh2200]

.
Bạn sửa lại code theo bài số 10 (so sánh toàn bộ).

Public Function KiemTraThuoc(ByVal mabenh_do As String, ByVal mabenh_goc As String) As Boolean
'So sánh toàn bộ
Dim v As Variant
KiemTraThuoc = False
For Each v In Split(mabenh_do, ";")
    If InStr(1, mabenh_goc, v ) > 0 Then
        KiemTraThuoc = True
        Exit For
    End If
Next v
End Function

.

Bác a. Em copy UDF này nhưng vẫn bị lỗi bác a

Bài đã được tự động gộp: 25/8/23

File test đây bác

 

[Phuocam]

Bác a. Em copy UDF này nhưng vẫn bị lỗi bác a

Bạn dùng thử hàm này:

Public Function KiemTraThuoc(ByVal mabenh_do As String, ByVal mabenh_goc As String) As Boolean
'V2. Cap nhat 25/8/2023
Dim v As Variant
KiemTraThuoc = False
mabenh_goc = ";" & mabenh_goc & ";"
For Each v In Split(mabenh_do, ";")
    If InStr(1, mabenh_goc, ";" & v & ";") > 0 Then
        KiemTraThuoc = True
        Exit For
    End If
Next v
End Function

 

[HieuCD]

Bạn dùng thử hàm này:

Public Function KiemTraThuoc(ByVal mabenh_do As String, ByVal mabenh_goc As String) As Boolean
'V2. Cap nhat 25/8/2023
Dim v As Variant
KiemTraThuoc = False
mabenh_goc = ";" & mabenh_goc & ";"
For Each v In Split(mabenh_do, ";")
    If InStr(1, mabenh_goc, ";" & v & ";") > 0 Then
        KiemTraThuoc = True
        Exit For
    End If
Next v
End Function

Bói thử 1 quẻ thấy còn vài bài nữa

 

[tranthanh2200]

Bói thử 1 quẻ thấy còn vài bài nữa

Bị lỗi #name dù bỏ @ đi rồi bác a

 

[tranthanh2200]

Chia sẻ cho ai nếu gặp trường hợp tương tự bằng cách dùng hàm. Nhờ 1 bác trong diễn đàn hỗ trợ