Thay Code cho hàm Vlookup() (3 người xem)

[0905744404]

Em nhờ mọi cả nhà giúp em viết code chuyển từ hàm Vlookup() sang Code VBA

 

[mrt137]

Anh Cá Ngừ mở thử file và dùng lệnh Ctrl [ chưa ạ? Ý nghĩa nó to lớn như vậy mà. Với lại code của anh đa đổ ra số chết, giờ ở file 0. Giá vật tư đó em thay đổi giá của 1 vật liệu nào đó thì lại phải dùng lại lệnh lần nữa rồi.
Anh Mạnh Linh, em biết thủ thuật đó, dùng để xử lý tình huống thì OK, nhưng đã code được như anh Cá Ngừ rồi thì thêm 1 xíu nữa là ổn, bấm nút là ăn tiền là tròn bài.
Trân trọng cảm ơn 2 Anh đã quan tâm và rất nhiệt tình.

 

[Cá ngừ F1]

Anh Cá Ngừ mở thử file và dùng lệnh Ctrl [ chưa ạ? Ý nghĩa nó to lớn như vậy mà. Với lại code của anh đa đổ ra số chết, giờ ở file 0. Giá vật tư đó em thay đổi giá của 1 vật liệu nào đó thì lại phải dùng lại lệnh lần nữa rồi.
Anh Mạnh Linh, em biết thủ thuật đó, dùng để xử lý tình huống thì OK, nhưng đã code được như anh Cá Ngừ rồi thì thêm 1 xíu nữa là ổn, bấm nút là ăn tiền là tròn bài.
Trân trọng cảm ơn 2 Anh đã quan tâm và rất nhiệt tình.

Quả thật là tôi không hiểu thao tác Ctrl [ là làm j nữa, có bấm thử mà chả thấy nó có tác dụng j

Nếu bạn muốn biết file nguồn đang lấy ở đâu, thì thay bằng code này, ô R1 sẽ hiện ra đường dẫn và tên file.
[gpecode=vb]Sub FindMethod()
Dim FileName As String, sArr(), i&, MSVT(), KQ1(), KQ2(), Rng As Range, strPath As String
If Not Application.FindFile Then Exit Sub
With ActiveWorkbook
FileName = .Name
strPath = .Path
With .ActiveSheet
sArr = .Range(.[B4], .[E65000].End(3)).Value
End With
.Close False
End With
Sheets("TH vat tu XD").[AA1].Resize(UBound(sArr), 4) = sArr
Sheets("TH vat tu XD").[R1] = strPath & "" & FileName
MSVT = Range(Sheets("TH vat tu XD").[B8], Sheets("TH vat tu XD").[B65000].End(3))
ReDim KQ1(1 To UBound(MSVT), 1 To 2)
ReDim KQ2(1 To UBound(MSVT), 1 To 1)
For i = 1 To UBound(MSVT)
Set Rng = Sheets("TH vat tu XD").[AA1:AA50000].Find(MSVT(i, 1), , , 1)
If Not Rng Is Nothing Then
KQ1(i, 1) = Rng(, 2)
KQ1(i, 2) = Rng(, 3)
KQ2(i, 1) = Rng(, 4)
End If
Next
Sheets("TH vat tu XD").[C8].Resize(i - 1, 2) = KQ1
Sheets("TH vat tu XD").[G8].Resize(i - 1, 1) = KQ2
Sheets("TH vat tu XD").[AA1].Resize(UBound(sArr), 4).Clear
Erase sArr
End Sub
[/gpecode]