- Tham gia
- 3/8/07
- Bài viết
- 1,633
- Được thích
- 2,370
- Nghề nghiệp
- E&A
Anh thay tất cả cụm "Five_con_Vlookup" trong code thành gì cũng được mà, "VLOOKUPS" chẳng hạn. Còn số điều kiện thì có lẽ phải sửa lại code tý tẹo. Em thử mày mò sửa lại với tên là VLOOKUPS và 4 điều kiện.
Các bạn bổ sung giúp phần tùy chọn số điều kiện để khi cần đỡ phải sửa lại code
Mã:
Function VLOOKUPS(Table_Range As Range, Return_Col As Long, Col1_Fnd, Col2_Fnd, Col3_Fnd, Col4_Fnd)
Dim rCheck As Range, bFound As Boolean, lLoop As Long
On Error Resume Next
Set rCheck = Table_Range.Columns(1).Cells(1, 1)
With WorksheetFunction
For lLoop = 1 To .CountIf(Table_Range.Columns(1), Col1_Fnd)
Set rCheck = Table_Range.Columns(1).Find(Col1_Fnd, rCheck, xlValues, xlWhole, xlNext, xlRows, False)
If UCase(rCheck(1, 2)) = UCase(Col2_Fnd) And _
UCase(rCheck(1, 3)) = UCase(Col3_Fnd) And _
UCase(rCheck(1, 4)) = UCase(Col4_Fnd) Then
bFound = True
Exit For
End If
Next lLoop
End With
If bFound = True Then
VLOOKUPS = rCheck(1, Return_Col)
Else
VLOOKUPS = "#N/A"
End If
End Function
Các bạn bổ sung giúp phần tùy chọn số điều kiện để khi cần đỡ phải sửa lại code
Lần chỉnh sửa cuối: