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