InputData1變量沒有采用vlookup函數

Question

我一直試圖將一個vlookup的結果分配給一個變量，但vlookup值實際上是一個用戶輸入，但不工作。

我不知道我可以改變些什麼我的VBA代碼:(

它顯示我的VLOOKUP公式

 Sub Info() 

Dim the_sheet As Worksheet 
Dim table_list_object As ListObject 
Dim table_object_row As ListRow 
Dim inputData, inputData1 As String 
Dim wsFunc As WorksheetFunction: Set wsFunc = Application.WorksheetFunction 
Dim rngLook As Range 

Set rngLook = Sheets("AutoZeroDatabase").Range("H1:I12") 

Set the_sheet = Sheets("Info") 
Set table_list_object = the_sheet.ListObjects("Table1") 
Set table_object_row = table_list_object.ListRows.Add 

inputData = InputBox("Enter a number from 1 to 12 to select a month i.e. 1 for January", "Input Box Text") 

inputData1 = wsFunc.VLookup(CInt(inputData), rngLook, 2, False) 

table_object_row.Range(1, 1).Value = inputData1 

MsgBox ("Thank you for taking the time to update me :)") 

End Sub 

Answer 1

你的問題似乎出現，因爲你獲得調試錯誤從的InputBox一個字符串值，但然後比較這對數值在細胞H1：H12

我建議如下修改代碼：

Sub Info() 

    Dim the_sheet As Worksheet 
    Dim table_list_object As ListObject 
    Dim table_object_row As ListRow 
    Dim inputData 
    Dim inputData1 
    Dim rngLook As Range 

    Set rngLook = Sheets("AutoZeroDatabase").Range("H1:I12") 

    Set the_sheet = Sheets("Info") 
    Set table_list_object = the_sheet.ListObjects("Table1") 
    Set table_object_row = table_list_object.ListRows.Add 

    Do 
     inputData = Application.InputBox(Prompt:="Enter a number from 1 to 12 to select a month i.e. 1 for January", _ 
             Title:="Input Box Text", _ 
             Type:=1 + 4) 'Type 1 is number, 4 is boolean 
     If TypeName(inputData) = "Boolean" Then 
      If Not inputData Then 
       inputData1 = "User refused to supply the month!!" 
       Exit Do 
      End If 
     ElseIf inputData <> Int(inputData) Then 
      MsgBox "Fractions of a month are not allowed!" 
     ElseIf inputData < 1 Or inputData > 12 Then 
      MsgBox "Months are numbered 1 to 12 - what am I meant to do with " & inputData & "?!?!?" 
     Else 
      inputData1 = Application.VLookup(inputData, rngLook, 2, False) 
      If IsError(inputData1) Then 
       MsgBox "Something went very, very wrong - I couldn't find that value in the set of valid months!" 
      End If 
      Exit Do 
     End If 
    Loop 

    table_object_row.Range(1, 1).Value = inputData1 

    MsgBox ("Thank you for taking the time to update me :)") 

End Sub