Function VLOOKUP

Function VLOOKUP

الكود المستخدم في تصميم الداله الشهيره 

Function VLOOKUP

  يمكنك التعديل عليه او استخدامه مباشره

code :

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