Tìm kiếm chuỗi ký tự (tags) trong đoạn văn bản (1 người xem)

[KhoiSMC]

Chào các bạn GPE,

Cho mình hỏi phương án tìm kiếm trong một đoạn văn bản có một số từ (tags) trong đoạn văn bản và đưa kết quả các tags đã thấy vào ô mong muôn.
Cụ thể mình làm một ví dụ trong file đính kèm. Mong các bạn giúp đỡ.

Cám ơn nhiều ạ,
Khoi

 

[concogia]

Các bạn ơi vấn đề này xử lý ntn a?

Khoi

Tìm thì cũng được, nhưng dạng này hổng có chắc cú. Híc
Thân

 

[KhoiSMC]

Tìm thì cũng được, nhưng dạng này hổng có chắc cú. Híc
Thân

Thanks bạn nhiều, liệu có thể tìm kiếm tags mà không xét đến chữ hoa, thường và tiếng việt có dấu hay không dấu (mở rộng kết quả tìm kiếm hơn).

Khoi

 

[leonguyenz]

Chuyển sang Tiếng Việt không dấu khá phức tạp.
Còn vấn đề không xét chữ hoa, chữ thường thì bạn sửa lại 1 chút trong code của bác concogia:
[gpecode=vb]
Public Function Tim(Vung, Dk) As String
Dim I, Kq
For I = 1 To Dk.Rows.Count
If InStr(1, Vung, Dk(I), 1) Then Kq = Kq & Dk(I) & ", "
Next I
If Len(Kq) Then Tim = Left(Kq, Len(Kq) - 2)
End Function
[/gpecode]

 

[KhoiSMC]

Cám ơn bạn leonguyenz. Nhờ bạn mình đã lọc được dữ liệu mong muốn rồi.


Khoi

 

[KhoiSMC]

Chuyển sang Tiếng Việt không dấu khá phức tạp.
Còn vấn đề không xét chữ hoa, chữ thường thì bạn sửa lại 1 chút trong code của bác concogia:
[gpecode=vb]
Public Function Tim(Vung, Dk) As String
Dim I, Kq
For I = 1 To Dk.Rows.Count
If InStr(1, Vung, Dk(I), 1) Then Kq = Kq & Dk(I) & ", "
Next I
If Len(Kq) Then Tim = Left(Kq, Len(Kq) - 2)
End Function
[/gpecode]

Mình có cải tiến chút khi dữ liệu nhiều có xuất hiện nhiều dấu "," nên dùng code sau:
=SUBSTITUTE(TRIM(SUBSTITUTE(tim($H6,Tags!$A$2:$A$30), " ,", "")),"","")

kết quả sẽ gọn hơn,

Khoi