Tôi có dữ liệu hệ thống chữ tiếng Việt ở Cột D, ô B10 tôi nhập vào,
Tôi muốn công thức vào cột C10:C100 để được dữ liệu đề xuất dựa
trên dữ liệu nhập ô B10 và dữ liệu gốc, mong Anh em trên GPE giúp đỡ
Bạn dùng hàm Filter2DArray của thầy Ndu để lọc ký tự đại diện
Hàm Filter2DArray
Function Filter2DArray(ByVal sArray, ByVal ColIndex As Long, ByVal FindStr As String, ByVal HasTitle As Boolean)
Dim TmpArr, i As Long, j As Long, Arr, Dic, TmpStr, Tmp, chk As Boolean, TmpVal As Double
On Error Resume Next
Set Dic = CreateObject("Scripting.Dictionary")
TmpArr = sArray
ColIndex = ColIndex + LBound(TmpArr, 2) - 1
chk = (InStr("><=", Left(FindStr, 1)) > 0)
For i = LBound(TmpArr, 1) - HasTitle To UBound(TmpArr, 1)
If chk And FindStr <> "" Then
TmpVal = CDbl(TmpArr(i, ColIndex))
If Evaluate(TmpVal & FindStr) Then Dic.Add i, ""
Else
If Left(FindStr, 1) = "!" Then
If Not (UCase(TmpArr(i, ColIndex)) Like UCase(Mid(FindStr, 2, Len(FindStr)))) Then Dic.Add i, ""
Else
If UCase(TmpArr(i, ColIndex)) Like UCase(FindStr) Then Dic.Add i, ""
End If
End If
Next
If Dic.Count > 0 Then
Tmp = Dic.keys
ReDim Arr(LBound(TmpArr, 1) To UBound(Tmp) + LBound(TmpArr, 1) - HasTitle, LBound(TmpArr, 2) To UBound(TmpArr, 2))
For i = LBound(TmpArr, 1) - HasTitle To UBound(Tmp) + LBound(TmpArr, 1) - HasTitle
For j = LBound(TmpArr, 2) To UBound(TmpArr, 2)
Arr(i, j) = TmpArr(Tmp(i - LBound(TmpArr, 1) + HasTitle), j)
Next
Next
If HasTitle Then
For j = LBound(TmpArr, 2) To UBound(TmpArr, 2)
Arr(LBound(TmpArr, 1), j) = TmpArr(LBound(TmpArr, 1), j)
Next
End If
End If
Filter2DArray = Arr
End Function
Tôi không biết cách làm như thế nào, có thể giải thích rõ hơn ko ạ
Hoặc cho tôi Link đến bài Của Thầy NDU
– Đi lọc tất cả chuỗi có Đi, Đỉ, Đì, Đị …???
– Nếu không lấy dấu tiếng Việt thì D và Đ, U và Ư …. thì sao????
Ví dụ chưa đầy đủ không thể làm được.
Vậy Anh Ba Tê giúp em theo cách nếu Nhập Đ hoặc Ư thì D và U không tìm nữa, "Đi" thì không tìm "Đi" có dấu
Bạn xem file. Hàm Filter2DArray của thầy Ndu là hàm rất tuyệt để làm dạng tìm kiếm đó bạn (Đưa vào Form còn tuyệt hơn nữa :D)
Link:
www.giaiphapexcel.com/diendan/threads/th%E1%BA%AFc-m%E1%BA%AFc-g%C3%B3p-%C3%BD-ho%C3%A0n-thi%E1%BB%87n-v%E1%BB%81-h%C3%A0m-udf-filter2darray.53566/
www.giaiphapexcel.com/diendan/threads/truy-xu%E1%BA%A5t-chu%E1%BB%97i-d%E1%BB%AF-li%E1%BB%87u-li%C3%AAn-quan-v%E1%BB%9Bi-chu%E1%BB%97i-d%E1%BB%AF-li%E1%BB%87u-kh%C3%A1c.127851/post-800574
Khoá học Trưởng phòng nhân sự
Nguồn nhân lực là một trong Tứ trụ kinh doanh của doanh nghiệp, có tác động tới sự tồn tại và phát triển bền...
Xem khóa học