البحث بدالة VLOOKUP بشرطين

[محمد الريفى]

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

اقدم هذا العمل الى جميع اساتذتى فى اوفيسنا

واقدمه الى جميع اعضاء اوفيسنا

وفكرته تقوم على

كيف تبحث بدالة VLOOKUP بشرطين

اسال الله تعالى ان يتقبل منى هذا العمل

تقبلوا منى جميعا خالص التحيه

 

VLOOKUP بشرطين.rar

[محمد الورفلي1]

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

 

اخي محمد ياريت 2003

[محمد الريفى]

اشكر مرورك العطر استاذ محمد الخازمى

تفضل الملف بصيغة 2003

 

VLOOKUP بشرطين 2003.rar

[ياسر خليل أبو البراء]

بارك الله فيك أستاذ محمد الريفي

واسمح لي إذا لم يكن يضايقك طبعا (أما لو ضايقك هعمل حذف علطول أو على عرض)

لإثراء الموضوع هذه دالة توضع في موديول تقوم بالمهمة

Function Two_Con_Vlookup(Table_Range As Range, Return_Col As Long, Col1_Fnd, Col2_Fnd)
    Dim rCheck As Range, bFound As Boolean, lLoop As Long
    On Error Resume Next
    Set rCheck = Table_Range.Columns(1).Cells(1, 1)
    With WorksheetFunction
       For lLoop = 1 To .CountIf(Table_Range.Columns(1), Col1_Fnd)
          Set rCheck = Table_Range.Columns(1).Find(Col1_Fnd, rCheck, xlValues, xlWhole, xlNext, xlRows, False)
          If UCase(rCheck(1, 2)) = UCase(Col2_Fnd) Then
               bFound = True
               Exit For
           End If
       Next lLoop
    End With
    If bFound = True Then
       Two_Con_Vlookup = rCheck(1, Return_Col)
    Else
    Two_Con_Vlookup = "#N/A"
    End If
End Function

وهذا ملف مرفق مثال على الدالة

VLOOKUPTwoCriteria.rar

[محمد الريفى]

استاذى ياسر خليل

والله اشرف واسعد باثراء بمرورك وباثراء الموضوع

فهذا يعنى لى الكثير

وجزاكم الله خيرا على هذه المشاركه القيمه

[يحيى حسين]

السلام عليكم 

أخ محمد 

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

=LOOKUP(2,1/((B9:B59=C2)*(C9:C59=C4)),D9:D59)

دمتم في حفظ الله 

تم تعديل أكتوبر 11, 2014 بواسطه يحيى حسين

[محمد الورفلي1]

اشكر مرورك العطر استاذ محمد الخازمى

تفضل الملف بصيغة 2003

 

 

اخي محمد  ماهي المشكلة في الملف هل هناء امر معين لابد من اضافته الي 2003  

 

 

 

[احمد السيد سليمان]

تحية تقدير الى اعضاء المنتدى المتميز

والذى اصبح منتدى كل جديد

 

مدى امكانية تطوير دالة vlookup  لتحقيق اكثر من شرطين 

[محمد الورفلي1]

السلام عليكم 

أخ محمد 

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

=LOOKUP(2,1/((B9:B59=C2)*(C9:C59=C4)),D9:D9:D59)

دمتم في حفظ الله 

 

 

ممكن ارفاق مثال 2003 لتعم الفائدة

[ياسر خليل أبو البراء]

السلام عليكم 

أخ محمد 

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

=LOOKUP(2,1/((B9:B59=C2)*(C9:C59=C4)),D9:D9:D59)

دمتم في حفظ الله 

أخي في الله لما D9 مكررة مرتين

[محمد الريفى]

المعادله تعمل بكفاءه 

ولكن يوجد زياده فى اول المعادله

-XLFNويتم ادخالها بشكل مباشر فى اول المعادله

مما يؤدى الى ظهور خطا. فى حالة التحويل الى 2003

و2003 ليس موجود لدى الان

فارجو منك استعمال 2007 فما اعلى

تقبل تحياتى

[محمد الورفلي1]

شكراً استاذ محمد علي المعلومة

تم تعديل أكتوبر 11, 2014 بواسطه محمد الخازمي

[ياسر خليل أبو البراء]

المعادله تعمل بكفاءه 

ولكن يوجد زياده فى اول المعادله

-XLFNDويتم ادخالها بشكل مباشر فى اول المعادله

مما يؤدى الى ظهور خطا

و2003 ليس موجود لدى الان

فارجو منك استعمال 2007 فما اعلى

تقبل تحياتى

ممكن أعرف -XLFND دي فين ؟؟؟؟

[يحيى حسين]

 

السلام عليكم 

أخ محمد 

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

=LOOKUP(2,1/((B9:B59=C2)*(C9:C59=C4)),D9:D9:D59)

دمتم في حفظ الله 

 

 

ممكن ارفاق مثال 2003 لتعم الفائدة

 

اخي هذه المعادلة تعمل على نسخة ال 2003 

إذا واجهتك أي مشكلة قد تكون بسبب الفواصل إستبدلها بفاصلة منقوطة 

 

 

السلام عليكم 

أخ محمد 

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

=LOOKUP(2,1/((B9:B59=C2)*(C9:C59=C4)),D9:D9:D59)

دمتم في حفظ الله 

أخي في الله لما D9 مكررة مرتين

 

اخ ياسر المشكلة كانت عند النسخ و اللصق 

و لقد قمت بتعديل المشكلة 

و هذا هو التعديل 

=LOOKUP(2,1/((B9:B59=C2)*(C9:C59=C4)),D9:D59)

دمتم في حفظ الله 

[محمد الريفى]

استاذنا الكبير يحيى حسين

جزاكم الله خيرا على حلكم الرائع

اشكر مرورك واضافتك الرائعه باستخدام معادلة عوديه recursive

وايضا هذا تعديل بسيط على معادلتكم يؤدى الى نفس النتيجه

=LOOKUP(1;1/((B9:B59=C2)*(C9:C59=C4));D9:D9:D59)

تقبل خالص تحياتى

[محمد الريفى]

هذا الملف شامل كل حلول وافكار

 

معادلة /محمد الريفى

كود استاذنا /ياسر خليل

معادلة استاذنا/ يحيى حسين

 

تقبلوا خالص تحياتى

 

VLOOKUP11111 بشرطين.rar

[محمد الريفى]

 

المعادله تعمل بكفاءه 

ولكن يوجد زياده فى اول المعادله

-XLFNDويتم ادخالها بشكل مباشر فى اول المعادله

مما يؤدى الى ظهور خطا

و2003 ليس موجود لدى الان

فارجو منك استعمال 2007 فما اعلى

تقبل تحياتى

ممكن أعرف -XLFND دي فين ؟؟؟؟

 

استاذى ياسر خليل

هذا الاختصار XLFN

يوضع مباشرة فى الخليه عند تحويل الاصدارات ابتداء من 2007 الى 2003 او 97

ويظهر هذا الاختصار مع الصيغ المستحدثه فى الاصدارات الجديده 

IFERROR

ايضا بظهر فى جميع  المعادلات الجديده مثلا

SUMIFS , COUNTIFS  .........

 

تقبل تحيات تلميذكم

[محمد الريفى]

تحية تقدير الى اعضاء المنتدى المتميز

والذى اصبح منتدى كل جديد

 

مدى امكانية تطوير دالة vlookup  لتحقيق اكثر من شرطين 

 

 اخى الكريم يمكن طبعا اضافة شروط كثيره

فقط ادمج الشروط مع الداله and

او باستخدام صيغ الصفيف

(النطاق=الشرط)*(النطاق=الشرط)*(النطاق=الشرط)........وهكذا

[ياسر خليل أبو البراء]

هذا الملف شامل كل حلول وافكار

 

معادلة /محمد الريفى

كود استاذنا /ياسر خليل

معادلة استاذنا/ يحيى حسين

 

تقبلوا خالص تحياتى

سبقتني كنت ناوي أعملها .. يا سباق يا ريفي

[محمد الريفى]

جعلنا الله انا وانت استاذى ياسر خليل

سباقين للخير دائما

 

 

هذا الملف شامل كل حلول وافكار

 

معادلة /محمد الريفى

كود استاذنا /ياسر خليل

معادلة استاذنا/ يحيى حسين

 

تقبلوا خالص تحياتى

سبقتني كنت ناوي أعملها .. يا سباق يا ريفي

 

[احمد فضيله]

جزاك الله كل  خير

[صلاح الصغير]

شكرا لكم جميعا

[محمد الريفى]

وجزاك عنى كل خير استاذى احمد فضيله

شكرا جزيلا لمروركم الكريم

[محمد الريفى]

جزاك الله كل  خير

 

وجزاك عنى كل خير استاذى احمد فضيله

شكرا جزيلا لمروركم الكريم

[محمد الريفى]

شكرا لكم جميعا

 اشكر مرورك الكريم استاذ صلاح الصغير