VBA如何設置單元格的值等於另一個表格中列的下一個單元格

Question

我在A38中有一個值，我希望這個按鈕在單擊時可以在我的工作表'項目數據庫'上執行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