在vba中编写VLOOKUP函数

Question

我正在尝试使用我的vba代码中的VLOOKUP函数在表格数组中的电子表格中查找值。我不知道如何正确书写。

这是正常的VLOOKUP公式的所有引用：

=VLOOKUP(DATA!AN2,DATA!AA9:AF20,5,FALSE) 

Answer 1

你试过：

Dim result As String 
Dim sheet As Worksheet 
Set sheet = ActiveWorkbook.Sheets("Data") 
result = Application.WorksheetFunction.VLookup(sheet.Range("AN2"), sheet.Range("AA9:AF20"), 5, False) 

Answer 2

如何只使用：

result = [VLOOKUP(DATA!AN2, DATA!AA9:AF20, 5, FALSE)] 

注意[和] 。

Answer 3

请找到下面的代码为Vlookup：

Function vlookupVBA(lookupValue, rangeString, colOffset) 
vlookupVBA = "#N/A" 
On Error Resume Next 
Dim table_lookup As range 
Set table_lookup = range(rangeString) 
vlookupVBA = Application.WorksheetFunction.vlookup(lookupValue, table_lookup, colOffset, False) 
End Function 

Answer 4

 Public Function VLOOKUP1(ByVal lookup_value As String, ByVal table_array As Range, ByVal col_index_num As Integer) As String 
     Dim i As Long 

     For i = 1 To table_array.Rows.Count 
      If lookup_value = table_array.Cells(table_array.Row + i - 1, 1) Then 
       VLOOKUP1 = table_array.Cells(table_array.Row + i - 1, col_index_num) 
       Exit For 
      End If 
     Next i 

     End Function 

Answer 5

Dim found As Integer 
    found = 0 

    Dim vTest As Variant 

    vTest = Application.VLookup(TextBox1.Value, _ 
    Worksheets("Sheet3").Range("A2:A55"), 1, False) 

If IsError(vTest) Then 
    found = 0 
    MsgBox ("Type Mismatch") 
    TextBox1.SetFocus 
    Cancel = True 
    Exit Sub 
Else 

    TextBox2.Value = Application.VLookup(TextBox1.Value, _ 
    Worksheets("Sheet3").Range("A2:B55"), 2, False) 
    found = 1 
    End If