كيفية تطبيق دالة vlookup بواسطة الكود البرمجى

[ahmedamer2005]

كيف يمكن تطبيق دالة ال vlookup على المرفق طيه باستخدام كود برمجى

بحيث ان صفحة البيانات الاساسية توجد فى ورقة عمل ونائج الدالة فى ورقة عمل اخرى

Test_vlookup.rar

[فلسطيني]

السلام عليكم ورحمة الله وبركاته

أخي الكريم

استخدم هذا الكود و سوف يقوم بعمل دالة vlookup و إذا احتجت لأي تعديل فسوف نقوم بعمله

Sub MyLOOKUP()
    Dim rngLOOK As Range, strVAL As String, iCol As Integer
    Dim MyVar As Variant
     
     
    strVAL = Application.InputBox("ÃÏÎá ÇáÞíãÉ", "Lookup Value", Type:=2)
    Set rngLOOK = Application.InputBox("Select the Lookup Range", "ÍÏÏ ÇáãÌÇá ", Type:=8)
    iCol = Application.InputBox("ÃÏÎá ÑÞã ÇáÚãæÏ", Type:=1)
     
    MyVar = Application.WorksheetFunction.VLookup(strVAL, rngLOOK, iCol, False)
     
    MsgBox MyVar
     
     
End Sub

[علي السحيب]

أيضاً لإستخدام الدالة VLOOKUP عن طريق الكود راجع الرابط التالي:

http://www.officena.net/ib/index.php?showtopic=13916