Nhờ các anh chị giúp hàm tham chiếu INDEX ;MATCH hoặc VLookup; HLookup (3 người xem)

[Trần Văn Bình]

Mình có bảng dữ liệu so sánh kết quả nhưng không ra được nhờ các bạn giúp có file đính kèm
Function g(x, y)

Vung = Thoi_Gian.Range("L220").Value
If IsError(Application.VLookup(x, Vung, Application.HLookup(y, Vung, 2, 0), 0)) Then
g = "Khong co Gia tri"
Else
g = Application.VLookup(x, Vung, Application.HLookup(y, Vung, 2, 0), 0)
End If
End Function

Function G_KQ(x, y)

Dim Dc As Long
With Sheets("Loc_Khoa_hoc")
Dc = .Range("H" & Rows.Count).End(xlUp).Row
Vung = .Range("H4:L" & Dc)
If IsError(Application.VLookup(x, Vung, Application.HLookup(y, Vung, 2, 0), 0)) Then
G_KQ = "Khong co Gia tri"
Else
G_KQ = Application.VLookup(x, Vung, Application.HLookup(y, Vung, 2, 0), 0)
End If
End With

End Function

 

[Phuocam]

Mình có bảng dữ liệu so sánh kết quả nhưng không ra được nhờ các bạn giúp có file đính kèm
Function g(x, y)

Vung = Thoi_Gian.Range("L220").Value
If IsError(Application.VLookup(x, Vung, Application.HLookup(y, Vung, 2, 0), 0)) Then
g = "Khong co Gia tri"
Else
g = Application.VLookup(x, Vung, Application.HLookup(y, Vung, 2, 0), 0)
End If
End Function

Function G_KQ(x, y)

Dim Dc As Long
With Sheets("Loc_Khoa_hoc")
Dc = .Range("H" & Rows.Count).End(xlUp).Row
Vung = .Range("H4:L" & Dc)
If IsError(Application.VLookup(x, Vung, Application.HLookup(y, Vung, 2, 0), 0)) Then
G_KQ = "Khong co Gia tri"
Else
G_KQ = Application.VLookup(x, Vung, Application.HLookup(y, Vung, 2, 0), 0)
End If
End With

End Function

Tìm theo hạng, kết quả là hạng đầu tiên tìm thấy. Sao không tìm theo mã học viên là duy nhất ?

.

 

[Trần Văn Bình]

khó bạn ạ vì mình tìm theo hạng để đối chiếu với bảng sheet Thoi_gian