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

我在A38里有一个值，我想要一个button，当点击button的时候，在我的工作表'Item Database'上执行一个Hlookup的等价操作，然后返回A38中的值后面的下一个值。

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

我不知道如何告诉它取出单元格的值，查找并插入查找的值（对于列中的下一个值）。

目前我已经指出了A36这是我testinghlookup的方法。 当我把它设置为A38时，我没有得到一个错误，但它的单元格是空白的（在删除了那里的任何值之后）。

任何build议表示赞赏！

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