Question

我在A38中有一个值，我想要一个按钮，单击该按钮将在我的工作表'Item Database'上执行Hlookup的等效，并在A38中的值之后返回列中的下一个值。

基本上是“下一个项目”按钮。

我不确定如何告诉它获取单元格的值，进行查找并插入查找的值（对于列中的下一个值）。

目前我已将它指向A36，这是我测试hlookup的一种方式。当我将它设置为A38时，我没有收到错误，但是单元格是空白的（在删除那里的任何值之后）。

任何建议表示赞赏！

Private Sub CommandButton1_Click()
With Range("A38")
.Value = "=HLOOKUP(A36,'Item Database'!A2:A100000, 2,FALSE)"
.Value = .Value
With Range("B38")
.Value = "=VLOOKUP(A38,Item_ID,5,FALSE)"
.Value = .Value
End With
End With
End Sub

Answer 1

试试此代码

Private Sub CommandButton1_Click()
    Range("A38").Value = [HLOOKUP(A38,'Item Database'!A2:A100000,2,FALSE)]
    Range("B38").Value = [VLOOKUP(A38,Item_ID,5,FALSE)]
End Sub

VBA如何设置单元格的值等于另一个工作表中的列中的下一个单元格

1 个答案: