Excel VLOOKUP函數源代碼

Question

有沒有辦法可以在excel（VBA）中找到函數VLOOKUP的源代碼，所以我可以修改它？ Google不給我任何幫助。謝謝！

Answer 1

Excel/VBA不是開源的，所以特定功能的源代碼不可用。

您可以在VBA中編寫自己的UDF（用戶定義函數）以生成修改後的版本。

也有的http://www.cpearson.com/Excel/FlexLookup.aspx

Answer 2

VLOOKUP/HLOOKUP更靈活（非VBA）版本，這是一個簡單的實現VLOOKUP的：

 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 3

基於瓦希德的答案，沒有工作對我而言，我做了以下代碼確實有效：

Function CUSTOMVLOOKUP(lookup_value As String, table_array As Range, col_index_num As Integer) 
    Dim i As Long 
    For i = 1 To table_array.Rows.Count 
     If lookup_value = table_array.Cells(i, 1) Then 
      CUSTOMVLOOKUP = table_array.Cells(i, col_index_num) 
      Exit For 
     End If 
    Next i 
End Function