عبدالله المجرب قام بنشر يونيو 10, 2011 قام بنشر يونيو 10, 2011 موضوع الدالة VLOOK2ALL في الرابط http://www.officena.net/ib/index.php?showtopic=21575 في طلب لاحد الاعضاء استخدمت VLOOK2ALL وهي دالة من ابداع استاذن الكبير حفظه الله ابوتامر ولكوني متعود على استخدام دالة الاكسل الاصلية VLOOKUP فقد وقعت في البداية في عدة اخطاء رغم ان التعليمات باللغة العربية فقمت ليس بالتعديل في الكود بزادة او بنقصان بل بتغيير مواقع الاسماء وتغيير موقع بدابة الشرط ونهايته (لم اضف ولم انقص فما شاء الله الدالة كاملة) لذا احببت اعادة طرح هذا الموضوع كتسهيل على مستخدم هذه الدالة الرائعة جداً في استخراج كل حالة البحث لنفس المتغير. لذا ارجو منكم ابداء الراي في النيولوك الجديد للدالة القديمة(نيولوك وليس تغيير في عمل الدالة) اخيراً اود ان اشكر الاستاذ ابوتامر على مجهوداته ونسال الله ان يحفظه وننتظر منه ان يطمنا على احواله. للعلم الدالة VLOOK2ALL ليست من دوال الاكسل الاصلية بل يجب تعريفها من قبل المستخدم (نسخ الموديل الخاص بتعريف الدالة الى ورقة العمل الخاصة بك وستعمل الدالة) ابواحمد دالة VLOOK2ALL New Look.rar
القنوع قام بنشر يونيو 10, 2011 قام بنشر يونيو 10, 2011 جزاك الله خيرا أجدتم وأبدعتم أرجو توضيح طريقة تعريف الدالة مع العلم أني متأكد من وجود موضوع حولها في المنتدى لكن إن كان عندكم علم بالرابط فأرجو إرفاقه في الرد والسلام عليكم ورحمة الله
مصطفى كمال قام بنشر يونيو 10, 2011 قام بنشر يونيو 10, 2011 السلام عليكم ورحمة الله وبركاته أخي الكريم alouma تفضل الملف التالي قد يساعدك إليك كذلك الرابط التالي: الرابط 1 إذا أردت البحث بشكل جيد استخدم الكود التالي في محرك البحث google vlook2all site:www.officena.net VLOOK2ALL.rar
مصطفى كمال قام بنشر يونيو 10, 2011 قام بنشر يونيو 10, 2011 السلام عليكم ورحمة الله وبركاته أخي الكريم عبد الله شكرا جزيلا على الدالة
الـعيدروس قام بنشر يونيو 10, 2011 قام بنشر يونيو 10, 2011 جزيت خيراًوزوجت بكراً استاذنا الفاضل عبدالله
عبدالله المجرب قام بنشر يونيو 11, 2011 الكاتب قام بنشر يونيو 11, 2011 جزاك الله خيرا أجدتم وأبدعتم شكراً لمرورك والابداع يحسب للاستاذ ابوتامر حفظه الله أخى / عبد الله سلمت يداك الله يسلمك والدنا واستاذنا الغالي جمال (اين انت غايب عن المنتدى) السلام عليكم ورحمة الله وبركاته أخي الكريم عبد الله شكرا جزيلا على الدالة اخي مصطفي شكراً لمرورك والدالة من عمل الاستاذ ابوتامر
عبدالله المجرب قام بنشر يونيو 11, 2011 الكاتب قام بنشر يونيو 11, 2011 بارك الله فيك أستاذ عبد الله استاذ ايه يا ابا عمر انا تلميذك المبتدى هو انت نسيت والا ايه هههههه على العموم مرورك شرفني يا ابا عمر فشكراً لك تلميذك ابواحمد جزيت خيراًوزوجت بكراً استاذنا الفاضل عبدالله الف شكر اخي ابو نصار على مرورك انار الله طريقكم جميعاً وطريقك اخي يوسف شكراً لمرورك الطيب
عبدالله المجرب قام بنشر يونيو 11, 2011 الكاتب قام بنشر يونيو 11, 2011 تسلم إيدك أستاذ عبد الله و بارك الله فيك اخي نادر شكراً لمروك
ياسر الحافظ قام بنشر يونيو 16, 2011 قام بنشر يونيو 16, 2011 الاخ ابو احمد جزالك الله كل الخير .... روعة وفقك الله ياسر الحافظ
عبدالله المجرب قام بنشر يوليو 7, 2011 الكاتب قام بنشر يوليو 7, 2011 السلام عليكم كما يعرف من استخدم دالة 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
MAHMOUD ALI YOUSSEF قام بنشر يوليو 7, 2011 قام بنشر يوليو 7, 2011 السلام عليكم الدالة جميلة جدا واهنئك علي العمل الرائع :fff:
عبدالله المجرب قام بنشر يوليو 7, 2011 الكاتب قام بنشر يوليو 7, 2011 السلام عليكم الدالة جميلة جدا واهنئك علي العمل الرائع :fff: اخي محمود الدالة من ابداع الاستاذ ابوتامر حفظه الله ورعاه واعاده الله الينا بكل خير ولي تعديلات لا تكاد تذكر ابواحمد
خالد القدس قام بنشر يوليو 8, 2011 قام بنشر يوليو 8, 2011 السلام عليكم سلمت أياديكم جميعا دوال قيمة ومفيدة جداً جزاكم الله خيرا
دغيدى قام بنشر يوليو 8, 2011 قام بنشر يوليو 8, 2011 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 هل هذا الكود بالترتيب القديم أم الجديد مجرد ملحوظة
عبدالله المجرب قام بنشر يوليو 8, 2011 الكاتب قام بنشر يوليو 8, 2011 اخى الفاضل / عبدالله المجرب أبو احمـــــد فى المشاركة الأخيرة 15 هل هذا الكود بالترتيب القديم أم الجديد مجرد ملحوظة استاذي ووالدي الفاضل جمال دغيدي في البداية جمعة مباركة هل تقصد ان كانت الدالة كما كتبها الاستاذ ابو تامر؟؟ فالجواب لا فالدالة اصبحت معربة ومشابهة لترتيب دالة Vlookup واصبح لها نيو لوك ولكن المضمون هو ما كتبه استاذنا الغائب ابو تامر ام ان القصد شيء اخر
دغيدى قام بنشر يوليو 8, 2011 قام بنشر يوليو 8, 2011 (معدل) اخى الفاضل / عبدالله المجرب أبو احمـــــد فى المشاركة الأخيرة 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 أقصد التعديل كان فى الأولى أما الأخيرة تم تعديل يوليو 8, 2011 بواسطه دغيدى
دغيدى قام بنشر يوليو 8, 2011 قام بنشر يوليو 8, 2011 (معدل) أخى الفاضل / عبد الله سلام الله عليكم الدالة المعدلة كما فى المشاركة الأولى 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, رقم_الظهور, عمود_النتيجة) والتى عدلت عليه فكان يجب وضع الدالة التى قمتم بالتعديل عليها تم تعديل يوليو 8, 2011 بواسطه دغيدى
عبدالله المجرب قام بنشر يوليو 8, 2011 الكاتب قام بنشر يوليو 8, 2011 الاستاذ الفاضل جمال بالفعل تعديلي الاخير كان على الدالة القديمة اشكرك جزيل الشكر على لفت الانتباه لا اقول الا لقد هرمنا هرمنا والدالة التي بالمشاركة الاولى بعد التعديل اصبحت كالاتي 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 شكراً لك مرة اخرى
دغيدى قام بنشر يوليو 8, 2011 قام بنشر يوليو 8, 2011 أخى الفاضل / ابوأحمــــــد أثابكم الله إذا قلتم هرمنا .. هرمنا.. ماذا اقول أنا ؟
محمد عبد المجيد ( أبو حمزة ) قام بنشر مايو 6, 2014 قام بنشر مايو 6, 2014 السلام عليكم ورحمة الله وبركاته ،،، جزى الله أخانا الحبيب أبا تامر على ما قدم ، وجزى الله القائمين على هذا المنتدى خير الجزاء فكم استفدت من علمكم الرائع النافع ، ولي طلب ليت أخي الحبيب عبد الله المجرب يفعله وهو أن يجعل البحث في دالة vlook2all عن قيمتين وليست قيمة واحدة .
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.