Code của bạn đã có phần tìm kiếm gì đâu? bạn muốn mọi người làm luôn cho bạn hay bạn muốn hướng dẫn vậy?
Em muốn mọi người làm giúp ạ
Vì khi sự kiện TextBox_Change, bạn phải lo thêm phần "dịch" từ có dấu sang không dấu nên chậm là phải rồi
Public arrNoMark
Sub CreateData()
Dim arrSource
Dim idx As Long
With Sheets("Data")
arrSource = Sheets("Data").Range("B3", .Range("B60000").End(xlUp)).Value
End With
ReDim arrNoMark(1 To UBound(arrSource, 1))
For idx = 1 To UBound(arrSource, 1)
If arrSource(idx, 1) <> Empty Then arrNoMark(idx) = TV(arrSource(idx, 1))
Next
End SubPrivate Sub UserForm_Initialize()
If Not IsArray(arrNoMark) Then CreateData
End Sub
Private Sub TextBox1_Change()
Dim aRes
aRes = Filter(arrNoMark, TextBox1.Text, True, vbTextCompare)
If IsArray(aRes) Then Me.ListBox1.List = aRes
End Sub
Chắc là làm cái mảng 5 cột đi anh, 4 cột có dấu, 1 cột không dấu. Khi tìm thì tìm trên cột không dấu, còn khi đưa vào list thì lấy thông tin từ 4 cột kia. Thực chất thì mình cũng chỉ tìm trên 1 cột nên đâu cần thiết phải bỏ dấu hết đâu.
Vậy thì theo phương án ở bài #7, trong đó cột thứ 5 ghép cả phần có dấu và phần đã bỏ dấu lại với nhau luôn, tìm trên cột thứ 5 này.
Tại sao không dấu lại cho kết quả tìm được nhiều hơn nhỉ? Vì với cách nối chuỗi như vậy thì có dấu hay không dấu thì cũng tìm thấy như nhau mà. Tất nhiên là sẽ cần phải có một dấu hiệu gì đó để phân cách phần có dấu và phần không dấu để tránh trường hợp tìm thấy chuỗi con nằm ở phần giao nhau này (một vài từ nằm ở phần có dấu, các từ còn lại nằm ở phần không dấu).Ý, vậy cũng hay. Nhưng hình như sẽ cho số lượng kết quả như nhau. Lý ra không dấu cho số luợng kết quả tìm được nhiều hơn có dấu.
.
Gõ Google hàng ngày mà không để ý chỗ này...
À, vậy thì ở đây cũng vậy thôi chứ. Rõ ràng tìm có dấu thì kết quả tìm phải chính xác hơn, dẫn đến kết quả ít hơn. Anh cứ thử khởi tạo dữ liệu "khong, không, khống, khộng, khồng, khỗng, khổng" (mỗi từ sẽ là 1 dòng trong listbox) rồi tìm kiếm theo 2 trường hợp có dấu, không dấu xem kết quả có giống vậy không. Tất nhiên nếu tìm từ "không" thì không thể ra kết quả "khong" được rồi, cũng như tìm "bố em rất đảm đang" thì không thể ra "bo em rat dam dang" được, chắc gì đã là thế
SELECT CONTENT
FROM DATAs
WHERE CONTENT LIKE '*' & KEY_WORK & '*' OR PLAIN_CONTENT LIKE '*' & KEY_WORK & '*'
Thực tế em cũng đang dùng cách này ạ. Dùng hàm bỏ dấu tiếng Việt trong cột thứ 5. Tuy nhiên em thấy hơi rườm rà nên muốn nhờ các anh chị có giải pháp tối ưu hơn
Function xKey(text As String) As String
Dim i, s, k
text = LCase(text)
For i = 1 To Len(text)
k = Mid(text, i, 1)
If InStr("aeiouyd", k) > 0 Or AscW(k) > 128 Then
s = s & "[!bc,f-h,j-n,p-t,v-x,z, ]" 'thử chơi liều ;))
Else
s = s & k
End If
Next
xKey = s
End Function
Private Sub TextBox1_Change()
Dim sArray(), i As Integer, k As Integer, j As Integer, Arr(), dArr(), key
sArray = Sheet_Data.Range("A3:D" & Sheet_Data.[A65536].End(xlUp).Row).Value
ReDim Arr(1 To UBound(sArray), 1 To 4)
key = "*" & xKey(TextBox1.text) & "*"
For i = 1 To UBound(sArray)
If LCase(sArray(i, 2)) Like key Then
k = k + 1
For j = 1 To 4
Arr(k, j) = sArray(i, j)
Next
End If
Next
If k > 0 Then
ReDim dArr(1 To k, 1 To 4)
For i = 1 To k
For j = 1 To 4
dArr(i, j) = Arr(i, j)
Next
Next
ListBox1.Clear
ListBox1.List() = dArr
End If
End Sub
