2016-07-28 213 views
0

我試圖創建一個VLOOKUP宏,提示用戶選擇單元格和範圍。VBA Excel中的VLOOKUP VLOOKUP

基本上我想在一個選項卡中查找另一個選項卡中的範圍的單元格值,並返回用戶選擇的列。

所以......這就是我想要的......

VLOOKUP(""USER SELECT LOOKUP value", "USER SELECT TABLE ARRAY", "USER SELECT COL INDEX NUM", FALSE) 

我有這個迄今爲止但是當宏運行完成後沒有返回...

Subject = Application.Input box("select Subject to be looked up") 
Sheet = Application.Input box("select tab/range") 

      Formula = "=VLOOKUP(""Subject"",""Sheet"",3,False)" 

end sub 

回答

2

你需要拉引號中的變量和連接使用&

而且要使其範圍和公式中使用他們的地址:

Dim subject As Range 
Dim sheet As Range 
Dim clm as long 
Set subject = Application.InputBox(prompt:="select Subject to be looked up", Type:=8) 
Set sheet = Application.InputBox(prompt:="select tab/range", Type:=8) 
clm = Application.InputBox(prompt:="Relative Column Reference", Type:=1) 
'Change the range to the cell into which you want the formula placed. 
ActiveSheet.Range("A1").Formula = "=VLOOKUP(" & Subject.Address(0,0) & "," & sheet.Address(0, 0, xlA1, 1) & "," & clm & ",False)" 
+0

您好,感謝您的幫助!我試過使用這個,但它會引發錯誤...運行時91對象變量塊變量未設置 – Ben

+0

@Ben對不起,我的壞。請參閱編輯。您可能需要刷新頁面。如果結束工作,請通過點擊答案中的複選標記標記爲正確。 –

+0

沒關係。是的,我意識到發送我的評論後,它不是設置,所以我設置它們,但它仍然不會返回一個值,只是一個沒有公式的空白單元格。 – Ben