اذهب الي المحتوي
أوفيسنا

دالة VLOOK2ALL New Look


الردود الموصى بها

موضوع الدالة VLOOK2ALL في الرابط

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

في طلب لاحد الاعضاء استخدمت VLOOK2ALL وهي دالة من ابداع استاذن الكبير حفظه الله ابوتامر ولكوني متعود على استخدام دالة الاكسل الاصلية VLOOKUP فقد وقعت في البداية في عدة اخطاء رغم ان التعليمات باللغة العربية فقمت ليس بالتعديل في الكود بزادة او بنقصان بل بتغيير مواقع الاسماء وتغيير موقع بدابة الشرط ونهايته (لم اضف ولم انقص فما شاء الله الدالة كاملة)

لذا احببت اعادة طرح هذا الموضوع كتسهيل على مستخدم هذه الدالة الرائعة جداً في استخراج كل حالة البحث لنفس المتغير.

لذا ارجو منكم ابداء الراي في النيولوك الجديد للدالة القديمة(نيولوك وليس تغيير في عمل الدالة)

اخيراً اود ان اشكر الاستاذ ابوتامر على مجهوداته ونسال الله ان يحفظه وننتظر منه ان يطمنا على احواله.

للعلم الدالة VLOOK2ALL ليست من دوال الاكسل الاصلية بل يجب تعريفها من قبل المستخدم (نسخ الموديل الخاص بتعريف الدالة الى ورقة العمل الخاصة بك وستعمل الدالة)

ابواحمد

دالة VLOOK2ALL New Look.rar

رابط هذا التعليق
شارك

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

أجدتم وأبدعتم

أرجو توضيح طريقة تعريف الدالة

مع العلم أني متأكد من وجود موضوع حولها في المنتدى لكن إن كان عندكم علم بالرابط فأرجو إرفاقه في الرد

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

رابط هذا التعليق
شارك

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

أخي الكريم alouma تفضل الملف التالي قد يساعدك

إليك كذلك الرابط التالي:

الرابط 1

إذا أردت البحث بشكل جيد استخدم الكود التالي في محرك البحث google

vlook2all site:www.officena.net

VLOOK2ALL.rar

رابط هذا التعليق
شارك

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

أجدتم وأبدعتم

شكراً لمرورك والابداع يحسب للاستاذ ابوتامر حفظه الله

أخى / عبد الله

سلمت يداك

الله يسلمك والدنا واستاذنا الغالي جمال (اين انت غايب عن المنتدى)

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

أخي الكريم عبد الله شكرا جزيلا على الدالة

اخي مصطفي شكراً لمرورك

والدالة من عمل الاستاذ ابوتامر

رابط هذا التعليق
شارك

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

استاذ ايه يا ابا عمر انا تلميذك المبتدى هو انت نسيت والا ايه هههههه

على العموم مرورك شرفني يا ابا عمر فشكراً لك

تلميذك ابواحمد

جزيت خيراًوزوجت بكراً استاذنا الفاضل عبدالله

الف شكر اخي ابو نصار على مرورك

انار الله طريقكم جميعاً

وطريقك اخي يوسف

شكراً لمرورك الطيب

رابط هذا التعليق
شارك

  • 3 weeks later...

السلام عليكم

كما يعرف من استخدم دالة VLOOK2ALL فان ناتج الدالة اذا لم يكن هناك قيمة تكون صفر

اليوم ارفق لكم تعديل طفيف لتصبح الخلية بدون بيانات اذا كانت النتيجة صفر

التعديل هو اضافة هذا السطر الى الدالة

If VLOOK2ALL = 0 Then

    VLOOK2ALL = ""
لتصبح الدالة كالتالي
Function VLOOK2ALL(جدول_البيانات As Range, قيمة_البحث As Variant, رقم_الظهور, عمود_النتيجة)

For x = 1 To جدول_البيانات.Rows.Count

    If جدول_البيانات.Cells(x, 1) = قيمة_البحث Then

        Counter = Counter + 1

        If Counter = رقم_الظهور Then VLOOK2ALL = جدول_البيانات.Cells(x, عمود_النتيجة): Exit For

    If VLOOK2ALL = 0 Then

    VLOOK2ALL = ""

    End If

    End If

Next

End Function

رابط هذا التعليق
شارك

السلام عليكم

الدالة جميلة جدا واهنئك علي العمل الرائع :fff: :fff: :fff:

اخي محمود

الدالة من ابداع الاستاذ ابوتامر حفظه الله ورعاه واعاده الله الينا بكل خير

ولي تعديلات لا تكاد تذكر

ابواحمد

رابط هذا التعليق
شارك

Function VLOOK2ALL(جدول_البيانات As Range, قيمة_البحث As Variant, رقم_الظهور, عمود_النتيجة)

For x = 1 To جدول_البيانات.Rows.Count

    If جدول_البيانات.Cells(x, 1) = قيمة_البحث Then

        Counter = Counter + 1

        If Counter = رقم_الظهور Then VLOOK2ALL = جدول_البيانات.Cells(x, عمود_النتيجة): Exit For

    If VLOOK2ALL = 0 Then

    VLOOK2ALL = ""

    End If

    End If

Next

End Function

اخى الفاضل / عبدالله المجرب أبو احمـــــد

فى المشاركة الأخيرة 15

هل هذا الكود بالترتيب القديم أم الجديد

مجرد ملحوظة

رابط هذا التعليق
شارك

اخى الفاضل / عبدالله المجرب أبو احمـــــد

فى المشاركة الأخيرة 15

هل هذا الكود بالترتيب القديم أم الجديد

مجرد ملحوظة

استاذي ووالدي الفاضل جمال دغيدي

في البداية جمعة مباركة

هل تقصد ان كانت الدالة كما كتبها الاستاذ ابو تامر؟؟

فالجواب لا

فالدالة اصبحت معربة ومشابهة لترتيب دالة Vlookup واصبح لها نيو لوك ولكن المضمون هو ما كتبه استاذنا الغائب ابو تامر

ام ان القصد شيء اخر

رابط هذا التعليق
شارك

اخى الفاضل / عبدالله المجرب أبو احمـــــد

فى المشاركة الأخيرة 15

Function VLOOK2ALL(جدول_البيانات As Range, قيمة_البحث As Variant, رقم_الظهور, عمود_النتيجة)

For x = 1 To جدول_البيانات.Rows.Count

    If جدول_البيانات.Cells(x, 1) = قيمة_البحث Then

        Counter = Counter + 1

        If Counter = رقم_الظهور Then VLOOK2ALL = جدول_البيانات.Cells(x, عمود_النتيجة): Exit For

    If VLOOK2ALL = 0 Then

    VLOOK2ALL = ""

    End If

    End If

Next

End Function

أقصد التعديل كان فى الأولى أما الأخيرة

تم تعديل بواسطه دغيدى
رابط هذا التعليق
شارك

أخى الفاضل / عبد الله

سلام الله عليكم

الدالة المعدلة كما فى المشاركة الأولى

Function VLOOK2ALL(قيمة_البحث As Variant, جدول_البيانات As Range, عمود_النتيجة, رقم_الظهور)

For x = 1 To جدول_البيانات.Rows.Count

    If قيمة_البحث = جدول_البيانات.Cells(x, 1) Then

        Counter = Counter + 1

        If Counter = رقم_الظهور Then VLOOK2ALL = جدول_البيانات.Cells(x, عمود_النتيجة): Exit For

    End If

Next

End Function
أما فى المشاركة 25 وضعت الدالة بالشكل القديم
Function VLOOK2ALL(جدول_البيانات As Range, قيمة_البحث As Variant, رقم_الظهور, عمود_النتيجة)

والتى عدلت عليه فكان يجب وضع الدالة التى قمتم بالتعديل عليها

تم تعديل بواسطه دغيدى
رابط هذا التعليق
شارك

الاستاذ الفاضل جمال

بالفعل تعديلي الاخير كان على الدالة القديمة

اشكرك جزيل الشكر على لفت الانتباه لا اقول الا لقد هرمنا هرمنا

والدالة التي بالمشاركة الاولى بعد التعديل اصبحت كالاتي

Function VLOOK2ALL(قيمة_البحث As Variant, جدول_البيانات As Range, عمود_النتيجة, رقم_الظهور) 

For x = 1 To جدول_البيانات.Rows.Count 

    If جدول_البيانات.Cells(x, 1) = قيمة_البحث Then 

        Counter = Counter + 1 

        If Counter = رقم_الظهور Then VLOOK2ALL = جدول_البيانات.Cells(x, عمود_النتيجة): Exit For 

    If VLOOK2ALL = 0 Then 

    VLOOK2ALL = "" 

    End If 

    End If 

Next 

End Function

شكراً لك مرة اخرى

رابط هذا التعليق
شارك

  • 2 years later...

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

 

جزى الله أخانا الحبيب أبا تامر على ما قدم ، وجزى الله القائمين على هذا المنتدى خير الجزاء فكم استفدت من علمكم الرائع النافع ، 

 

ولي طلب ليت أخي الحبيب عبد الله المجرب يفعله  وهو أن يجعل البحث في دالة vlook2all  عن قيمتين  وليست قيمة واحدة .

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information