Question

我有一个命令按钮，用于在当前值之后返回列表中的下一个结果。

以下是我当前的代码

Range("A2").Value = [HLOOKUP(A2,'Item Database'!A2:A100000,2,FALSE)]

该函数应检查A2的值，在“Item Database”上找到它，并将A2中的值更改为参考列表中的新值。

当前代码适用于两次点击，然后始终返回#N / A

我不知道为什么，有关如何更有效地执行此操作或如何修复此代码行以使其在2次使用后不会出错的想法？

Answer 1

Dim f As Range, c as range

Set c = Activesheet.Range("A2")
Set f = Sheets("Item Database").Range("A2:A100000").Find( _
                c.Value,lookin:=xlvalues, lookat:=xlwhole )

if not f is nothing then c.value = f.offset(1, 0).value

VBA命令按钮在匹配参考值后返回列表中的下一个值

1 个答案: