Bẫy lỗi hàm XLOOKUP

[NHG]

Dear các bạn
Mình tìm được code hàm Xlookup để dùng cho excel, nhưng mình muốn nếu hàm bị lỗi #value! thì trả kết quả là "Lỗi", các bạn sửa code giúp mình nhé, cảm ơn các bạn
Function XLOOKUP(lk As Variant, lCol As Range, rCol As Range)

XLOOKUP = WorksheetFunction.Index(rCol, WorksheetFunction.Match(lk, lCol, 0))

End Function

 

[XuanThanh]

Thêm bẫy lỗi IFERROR

 

[NHG]

Thêm bẫy lỗi IFERROR

M thử rồi vẫn bị value bạn ạ

 

[Phuocam]

Thử

Function XLOOKUP(lk As Variant, lCol As Range, rCol As Range)
Dim v As Variant
v = Application.Match(lk, lCol, 0)
    If TypeName(v) = "Error" Then
        XLOOKUP = "#Loi"
    Else
        XLOOKUP = Application.Index(rCol, v)
    End If
End Function

 

[NHG]

Thử

Function XLOOKUP(lk As Variant, lCol As Range, rCol As Range)
Dim v As Variant
v = Application.Match(lk, lCol, 0)
    If TypeName(v) = "Error" Then
        XLOOKUP = "#Loi"
    Else
        XLOOKUP = Application.Index(rCol, v)
    End If
End Function

đúng rồi, cảm ơn bạn!

 

[NHG]

@phuocam
Bạn ơi, lấy giá trị dòng của một ô đang được select thì trong vba dùng hàm gì bạn nhỉ,

Ý tưởng là thay đổi giá trị một ô, thì ô bên cạnh được fill nội dung, mình dùng ActiveCell.Row nhưng toàn bị điền giá trị lệch dòng
Private Sub Worksheet_Change(ByVal Target As Range)
c = ActiveCell.Row
If Target.Row > 2 And Target.Column = 1 Then
' Dat gia tri vao o ben canh
Range("B" & c).Value = "Dat gia tri vao cung dong"
Else
Cancel = True
End If
End Sub