hàm tra cụm từ trong các cụm từ nhỏ (1 người xem)

[maiban116]

xin hỏi các thầy. có công thức nào hay dùng code nào tra một câu trong các cụm từ không ạ. em gửi file lên nhờ cả nhà hướng dẫn. xin cám ơn

 

[ndu96081631]

xin hỏi các thầy. có công thức nào hay dùng code nào tra một câu trong các cụm từ không ạ. em gửi file lên nhờ cả nhà hướng dẫn. xin cám ơn

Nói cho cùng là nối chuỗi có điều kiện? Vậy câu trả lời là: "Làm được nhưng phải là VBA". Bạn thấy sao?

 

[maiban116]

Nói cho cùng là nối chuỗi có điều kiện? Vậy câu trả lời là: "Làm được nhưng phải là VBA". Bạn thấy sao?

vâng được như thế còn gì bằng ạ. nhờ thầy hướng dẫn ạ

 

[♫ђöล♥ßล†♥†µ♫]

xin hỏi các thầy. có công thức nào hay dùng code nào tra một câu trong các cụm từ không ạ. em gửi file lên nhờ cả nhà hướng dẫn. xin cám ơn

Dùng hàm JoinIf của Thầy ndu96081631

 

[maiban116]

Dùng hàm JoinIf của Thầy ndu96081631

xin cảm ơn bạn nhiều. nhưng mình muốn hàm tra cứu chứ không phải kiểu như nối chữ. mong bạn xem lại ạ và giúp cho

 

[phulien1902]

xin hỏi các thầy. có công thức nào hay dùng code nào tra một câu trong các cụm từ không ạ. em gửi file lên nhờ cả nhà hướng dẫn. xin cám ơn

Thử:

Sub abc()
    Dim x As Range, y As Range, dk As Range
    Set dk = [d2]
    [d3] = Application.Transpose(Join(Application.Transpose(Range("a2", Range("a" & Rows.Count).End(xlUp))), " "))
    If dk.Value Like [d3] Then
        [e3] = Application.Transpose(Join(Application.Transpose(Range("B2", Range("b" & Rows.Count).End(xlUp))), ""))
    Else
        [e3] = "Khong biet!"
    End If
    [d3].ClearContents
End Sub

 

[ndu96081631]

xin cảm ơn bạn nhiều. nhưng mình muốn hàm tra cứu chứ không phải kiểu như nối chữ. mong bạn xem lại ạ và giúp cho

Vậy kết quá đó là chưa đúng à? Kết quả sao mới đúng?

 

[maiban116]

Vậy kết quá đó là chưa đúng à? Kết quả sao mới đúng?

em gửi lên ví dụ các thầy xem hộ ạ

 

[♫ђöล♥ßล†♥†µ♫]

Bạn thử lại như vầy xem

=JoinIf("";IFERROR(IF(FIND(A2:A1000;C2;1);1;0);"");1;B2:B1000)

Ết úc ằng Ctrl+Shift+Enter

 

[ndu96081631]

em gửi lên ví dụ các thầy xem hộ ạ

Kiểm tra lại lần nữa xem sao
Đoán là vì mấy bạn kia vẫn còn dùng phiên bản cũ

 

[maiban116]

Kiểm tra lại lần nữa xem sao
Đoán là vì mấy bạn kia vẫn còn dùng phiên bản cũ

dạ cám ơn các thầy nhiều ạ.. thầy cho em hỏi thêm tý nữa , giả sử những từ cần tra không có trong bảng tra
em muốn nó trả về đúng từ cần tra thì làm như thế nào ạ. và ở cột từ điển hai từ giống nhau thì nó sẽ lấy cái từ đầu tiên nó nhận được mong hồi âm của các thầy. xin cảm ơn nhiều ạ

 

[maiban116]

dạ cám ơn các thầy nhiều ạ.. thầy cho em hỏi thêm tý nữa , giả sử những từ cần tra không có trong bảng tra
em muốn nó trả về đúng từ cần tra thì làm như thế nào ạ. và ở cột từ điển hai từ giống nhau thì nó sẽ lấy cái từ đầu tiên nó nhận được mong hồi âm của các thầy. xin cảm ơn nhiều ạ. em gửi file lên mong các thầy hướng dẫn em lần nữa ạ

 

[maiban116]

có thầy nào giúp em với ạ

 

[Ba Tê]

có thầy nào giúp em với ạ

Public Function LuXuBu(ByVal Rng As Range, ByVal DK As Range) As String
Dim Txt As String, Arr(), I As Long, R As Long
Arr = Rng.Value:    R = UBound(Arr):    Txt = DK.Value
For I = 1 To R
    If InStr(Txt, Arr(I, 1)) Then
        LuXuBu = LuXuBu & Arr(I, 2)
        Txt = Replace(Txt, Arr(I, 1), "")
    End If
Next I
End Function

Công thức:

=LuXuBu($A$2:$B$11;D2)

Chưa hiểu và thấy kết quả mẫu của yêu cầu: "và nếu không tìm thấy nó sẽ trả về chính nó"

 

[maiban116]

Public Function LuXuBu(ByVal Rng As Range, ByVal DK As Range) As String
Dim Txt As String, Arr(), I As Long, R As Long
Arr = Rng.Value:    R = UBound(Arr):    Txt = DK.Value
For I = 1 To R
    If InStr(Txt, Arr(I, 1)) Then
        LuXuBu = LuXuBu & Arr(I, 2)
        Txt = Replace(Txt, Arr(I, 1), "")
    End If
Next I
End Function

Công thức:

=LuXuBu($A$2:$B$11;D2)

Chưa hiểu và thấy kết quả mẫu của yêu cầu: "và nếu không tìm thấy nó sẽ trả về chính nó"

cái này đáp ứng được 1 vế thầy ạ. còn vế những từ không tra thấy thì trả vể chính nó. mong thầy kiểm tra lại hộ. xin cảm ơn

 

[Ba Tê]

cái này đáp ứng được 1 vế thầy ạ. còn vế những từ không tra thấy thì trả vể chính nó. mong thầy kiểm tra lại hộ. xin cảm ơn

Bạn đọc lại dòng cuối cùng bài #14.

 

[ndu96081631]

có thầy nào giúp em với ạ

Bạn có thể thêm điều kiện vào tùy thích mà. Cụ thể ở đây là điều kiện Unique, đúng không?
Vậy đề xuất công thức này:

=JoinIf("",FIND(A2:A100,D2)*FREQUENCY(IF(A2:A100<>"",MATCH(A2:A100,A2:A100,0)),MATCH(A2:A100,A2:A100,0)),">0",B2:B100)

 

[maiban116]

Bạn đọc lại dòng cuối cùng bài #14.

Bạn đọc lại dòng cuối cùng bài #14.

thầy ơi cụm từ 15/55 nếu nó tra không có thì nó có thể trở về chính 15/55 được không ạ. có nghĩa là cụm từ tra được + với chính nó ạ: ví dụ

Bạn đọc lại dòng cuối cùng bài #14.

ý em như trong hình ảnh. thầy xem hướng dẫn em với ạ

 

[maiban116]

thầy ơi cụm từ 15/55 nếu nó tra không có thì nó có thể trở về chính 15/55 được không ạ. có nghĩa là cụm từ tra được + với chính nó ạ: ví dụ

em gửi file các thầy xem hộ ạ

 

[Ba Tê]

Thấy mới hiểu được.

Public Function LuXuBu(ByVal Rng As Range, ByVal DK As Range) As String
Dim Txt As String, Arr(), I As Long, R As Long
Arr = Rng.Value:    R = UBound(Arr):    Txt = DK.Value
For I = 1 To R
    If InStr(Txt, Arr(I, 1)) Then
        LuXuBu = LuXuBu & Arr(I, 2)
        Txt = Replace(Txt, Arr(I, 1), "")
    End If
Next I
LuXuBu = LuXuBu & Application.WorksheetFunction.Trim(Txt)
End Function

Công thức nhập như cũ.