- Tham gia
- 21/12/07
- Bài viết
- 1,902
- Được thích
- 5,303
- Nghề nghiệp
- Kinh doanh các mặt hàng văn phòng phẩm
Với hàm Vlookup thông thường, chúng ta chỉ sử dụng để dò tìm giá trị trong vùng dữ liệu từ trái qua phải, từ trên xuống dưới.
Để dò tìm giá trị từ phải qua trái thì ta phải kết hợp với 2 hàm là Macth và Index. Nhưng vẫn dò tìm từ trên xuống dưới.
Với hàm VlookupD, chúng ta sẽ giải quyết được vấn đề này và còn vài chức năng khác nữa :
Để dò tìm giá trị từ phải qua trái thì ta phải kết hợp với 2 hàm là Macth và Index. Nhưng vẫn dò tìm từ trên xuống dưới.
Với hàm VlookupD, chúng ta sẽ giải quyết được vấn đề này và còn vài chức năng khác nữa :
PHP:
Function VlookupD(Lookup_Value As Variant, Table_Array As Range, _
Optional Col_Index As Long = 1, _
Optional Side As Byte = 1, _
Optional Search_Order As Byte = 1, _
Optional MatchC As Boolean = False) As Variant
Application.Volatile
Dim Lookup_Col As Range, AfterCell As Range, Found As Range
Dim Col_Num As Byte, Str As String, SearchD As Variant
Col_Num = Table_Array.Columns.Count
If Trim(Lookup_Value) = "" Or Col_Index < 0 Or Col_Index > Col_Num _
Or Search_Order < 0 Or Search_Order > 4 Or Side < 0 Or Side > 4 Then
VlookupD = "Error!"
Exit Function
End If
Select Case Side
Case 1
Set Lookup_Col = Table_Array.Resize(, 1)
Col_Index = Col_Index - 1
Set AfterCell = Lookup_Col.Cells(Lookup_Col.Cells.Count)
SearchD = xlNext
Case 2
Set Lookup_Col = Table_Array.Resize(, 1)
Col_Index = Col_Index - 1
Set AfterCell = Lookup_Col.Resize(1, 1)
SearchD = xlPrevious
Case 3
Set Lookup_Col = Table_Array.Resize(, 1).Offset(, Col_Num - 1)
Col_Index = 1 - Col_Index
Set AfterCell = Lookup_Col.Cells(Lookup_Col.Cells.Count)
SearchD = xlNext
Case 4
Set Lookup_Col = Table_Array.Resize(, 1).Offset(, Col_Num - 1)
Col_Index = 1 - Col_Index
Set AfterCell = Lookup_Col.Resize(1, 1)
SearchD = xlPrevious
End Select
Select Case Search_Order
Case 1: Str = Lookup_Value
Case 2: Str = Lookup_Value & "*"
Case 3: Str = "*" & Lookup_Value
Case 4: Str = "*" & Lookup_Value & "*"
End Select
Set Found = Lookup_Col.Find(What:=Str, After:=AfterCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchDirection:=SearchD, MatchCase:=MatchC)
If Found Is Nothing Then
VlookupD = "#N/A"
Exit Function
End If
VlookupD = Found.Offset(, Col_Index)
Set Lookup_Col = Nothing: Set AfterCell = Nothing: Set Found = Nothing
End Function
Lần chỉnh sửa cuối:
