Tới 172.000 dòng dữ liệu như thế là quá tốt rồi Bác à
Anh ơi em vừa làm được phiên bản Made-in-China
Do bảng tra lớn nên chạy chậm, bảng tra chính có bao nhiêu dòng?
cám ơn bác HieuCD sao nó không lấy từ đầu tiên tìm thấy nhỉ, Bác xem lại dùm
Chỉnh lại code
Function VH(ByVal tmp As Variant, ByVal Rng As Range, ByVal RngTT As Range) As Variant
Dim Dic As Object, DicTT As Object, Res(), sArr(), S As Variant, key
Dim i As Long, k As Long
sArr = ConvertTo1DArray(tmp)
ReDim Res(LBound(sArr) To UBound(sArr), 1 To 1)
Set Dic = CreateObject("Scripting.Dictionary")
For i = 1 To Rng.Rows.Count
key = LCase(Rng(i, 1).Value)
If Len(key) Then
If Not Dic.exists(key) Then Dic.Add key, Rng(i, 2).Value
End If
Next i
Set DicTT = CreateObject("Scripting.Dictionary")
For i = 1 To RngTT.Rows.Count
key = LCase(RngTT(i, 1).Value)
If Len(key) Then
If Not DicTT.exists(key) Then DicTT.Add key, RngTT(i, 2).Value
End If
Next i
For k = LBound(sArr) To UBound(sArr)
If Len(sArr(k)) Then
S = Split(Application.Trim(sArr(k)), " ")
For i = LBound(S) To UBound(S)
key = LCase(S(i))
If DicTT.exists(key) Then
S(i) = DicTT.Item(key)
Else
If Dic.exists(key) Then S(i) = Dic.Item(key)
End If
Next i
Res(k, 1) = Join(S, " ")
End If
Next
VH = Res
Set Dic = Nothing: Set DicTT = Nothing
End FunctionCái nầy hay quá
Ý bạn là gì, gởi file minh họa
Dùng thêm hàm If
Cái đồ Made-in-China thêm một ít bẫy lỗi nữa áp dụng vào điều kiện cố định là thành hàng nhái của anh Tuân xuất xứ từ Việt Nam cũng không chừng anh nhỉ
Mình mới thấy dạng code nầy lần đầu, tùy biến lại cho tình huống cụ thể, bỏ bớt mấy lệnh thừa, thêm điều kiện thực thi lệnh là chạy ngonCái đồ Made-in-China thêm một ít bẫy lỗi nữa áp dụng vào điều kiện cố định là thành hàng nhái của anh Tuân xuất xứ từ Việt Nam cũng không chừng anh nhỉ
Cái này áp dụng hàm mảng vào lọc dữ liệu theo đối tượng thì dễ tùy biến hơn so với Code anh ạ
Dùng biến toàn cục, thực ra nó lại gồm 2 loại, loại toàn cục cấp dự án (public), hoặc toàn cục cấp modun ( private).
Bạn cho ví dụ để mình biết thêm cách mới về dạng công thức mảng
Chậm là đương nhiên.
For i = 1 To Rng.Rows.Count
key = Rng(i, 1).Value
If Len(key) Then Dic.Item(LCase(key)) = Rng(i, 2).Value
Next iFunction VH(ByVal tmp As Range, ByVal Rng As Range, ByVal RngTT As Range) As Variant
Dim Dic As Object, DicTT As Object, Res(), sArr(), aRngTT(), aRng(), S As Variant, key
Dim i As Long, k As Long
sArr = tmp.Value
aRng = Rng.Value
aRngTT = RngTT.Value
ReDim Res(LBound(sArr) To UBound(sArr), 1 To 1)
Set Dic = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(aRng)
key = aRng(i, 1)
If Len(key) Then Dic.Item(LCase(key)) = aRng(i, 2)
Next i
Set DicTT = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(aRngTT)
key = aRngTT(i, 1)
If Len(key) Then DicTT.Item(LCase(key)) = aRngTT(i, 2)
Next i
For k = LBound(sArr) To UBound(sArr)
If Len(sArr(k, 1)) Then
S = Split(Application.Trim(sArr(k, 1)), " ")
For i = LBound(S) To UBound(S)
key = LCase(S(i))
If DicTT.exists(key) Then
S(i) = DicTT.Item(key)
Else
If Dic.exists(key) Then S(i) = Dic.Item(key)
End If
Next i
Res(k, 1) = Join(S, " ")
End If
Next
VH = Res
Set Dic = Nothing: Set DicTT = Nothing
End Functionáp dụng lệnh như thế nào bạn ơi
Like anh luôn! duyệt từng ô sẽ rất là chậm.
Nói là công thức mảng cho nó sang cái miệng, chứ nó cũng như bao hàm khác thôi, chỉ là nó trả về mảng thay vì một giá trị, bạn làm cái này suốt rồi sao lại hỏi tui chứ, hishis hí hsis
Tôi lấy hàm mà bạn đã dùng, đã chạy và kêu là chậm. Tôi chỉ sửa lại code thôi. Chả lẽ sửa code thì cách dùng lại khác?
