Hlookup可变输入

Question

我想制作VBA，它通过“LOOP”找到正确的行（i + 1），之后通过使用“Hlookup函数”从“This row”中找出正确的值。查找值为expample“99”。我有“hlookup功能。

的问题

coerce :: Expr_ DataText -> Expr
coerce :: Expr -> Expr_ DataText
coerce :: (Expr_ DataText -> Expr_ DataText) -> Expr -> Expr

Answer 1

有很多原因导致您的代码不能正常工作：

1. 您没有Option Explicit并且您没有声明变量
2. 你进入无尽的循环。
3. 您没有HLookup的值，并且您正在使用.WorksheetFunction，如果没有找到值，则会自动返回运行时错误。

如果没有找到值，请尝试Application.WorksheetFunciton()而不是Application.HLookup，这不会引发运行时错误，而是一个简单的错误：

Option Explicit

Sub TestMe()

    Dim someResult As Variant
    someResult = Application.HLookup(99, Worksheets(1).Range("A4:O20"), 3, False)

    If Not IsError(someResult) Then
        Debug.Print someResult
    Else
        Debug.Print someResult; " is an error!"
    End If

End Sub