Tham khảo code trong bài viết Dùng mã vba thay thế cho hàm vlookup.
Dạ vang ạ. để em mày mò xem sao ạ.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range, i&, TK(), MaHD()
TK = Range([C3], [C100])
ReDim MaHD(1 To UBound(TK), 1 To 1)
If Not Intersect(Target, [C3:C100]) Is Nothing Then
For i = 1 To UBound(TK)
Set Rng = Sheet2.[A1:A100].Find(TK(i, 1), , , 1)
If Not Rng Is Nothing Then
MaHD(i, 1) = Rng(, 2)
End If
Next
[J3].Resize(i - 1, 1) = MaHD
End If
End SubEm cảm ơn anh ạ. Code chạy được rồi ạ !
Anh ơi cho em hỏi thêm chút ạ. Với code Private này thì nó chỉ chạy khi em bấm nút F2 và enter nó mới active ạ. Có cách gì để nó tự động không ạ.
Đây là sự kiện Selection change, có nghĩa khi có sự thay đổi j trong ô từ C3 đến C100 là sheet được cập nhật
Bạn thử thêm code này để có nhiều lựa chọn
Sub Do_Tim()
Dim Dic As Object, sArr(), i As Long, Ma(), tmp As String
Set Dic = CreateObject("scripting.dictionary")
With Sheets("Ma")
Ma = .Range("A2", .Range("A" & Rows.Count).End(3)).Resize(, 2).Value
End With
For i = 1 To UBound(Ma)
Dic(Ma(i, 1)) = Ma(i, 2)
Next
With Sheets("Can Doi Tai Khoan")
sArr = .Range("A3", .Range("A" & Rows.Count).End(3)).Resize(, 10).Value
End With
For i = 1 To UBound(sArr)
tmp = sArr(i, 3)
If Dic.exists(tmp) Then
sArr(i, 10) = Dic.Item(tmp)
End If
Next
Sheets("Can Doi Tai Khoan").[A3].Resize(UBound(sArr), UBound(sArr, 2)) = sArr
End Sub
Xin phép chủ thớt cho mình hỏi vấn đề liện quan
Tôi chưa hiểu ý 2 của bạn, code vẫn lấy tham chiếu ở cột C để tìm bên sheet Ma đấy chứ
Cảm ơn Bác đã chỉ,em xin mượn code của bác sửa để học luôn được chứ ạ?
Sub Do_Tim()
Dim Dic As Object, sArr(), i As Long, Ma(), tmp As String
Set Dic = CreateObject("scripting.dictionary")
With Sheets("Ma")
Ma = .Range("A2", .Range("A" & Rows.Count).End(3)).Resize(, 2).Value
End With
For i = 1 To UBound(Ma)
Dic(Ma(i, 1)) = Ma(i, 2)
Next
With Sheets("Can Doi Tai Khoan")
sArr = .Range("C3", .Range("c" & Rows.Count).End(3)).Resize(, 1).Value
End With
For i = 1 To UBound(sArr)
tmp = sArr(i, 1)
If Dic.exists(tmp) Then
sArr(i, 1) = Dic.Item(tmp)
Else
sArr(i, 1) = 0
End If
Next
Sheets("Can Doi Tai Khoan").[J3].Resize(UBound(sArr), UBound(sArr, 2)) = sArr
End SubEm vừa bắt đầu tự học VBA vào thử code của bác Hải thì code khi tìm xong gán dữ liệu từ mảng là từ cột A tới cột J ở sheet 【can doi tai khoan】. kết quả đúng nhưng khi gán như vậy thì em thấy nếu tác độc lên cả bàng thì có nhưng dữ liệu là dãy số thì bị đổi định dạng ,em vừa học nên muốn tìm hiểu để học hỏi từ các bác thôi ạ .em cảm ơn bác đã phản hồi
End(3) tương đương End(xlUp) để tìm kiếm dòng cuối cùng trong mảng.
Bộ nhớ mỗi người đều khác nhau & cũng khác nhau của 1 người do thời gian, thời tiết hay thời điểm!
