استخدام دالة البحث VLOOKUP داخل محرر الأكواد Use VLOOKUP Function In VBA

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

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

 

أقدم لكم اليوم درس تعليمي في منتهى الأهمية حول كيفية استخدام الدالة VLOOKUP داخل الـ VBA ، حيث يوجد ميزة استخدام دوال الإكسيل التي نستخدمها في أوراق العمل داخل محرر الأكواد

 

في الملف المرفق مثال بسيط لتتضح الصورة بشكل أعمق ، وقد قدمت طريقتين مختلفتين لتنفيذ المطلوب ، مع شرح بالتفصيل لكل سطر من أسطر الكود

 

 

بفرض أن لديك مجموعة من الأسماء في العمود الأول ، والمطلوب هو البحث عن اسم محدد ، وإظهار عمر هذا الشخص في رسالة نصية.

 

المثال بسيط والغرض منه تعلم كيفية استخدام الكائن التابع لتطبيق الإكسيل والمسمى WorksheetFunction ، وكذلك تعلم كيفية استخدام الكائن المسمى Dictionary

 

للمزيد انقر على الرابط التالي

رابط الموضوع من هنا

[أبو حنــــين]

السلام عليكم

جزاك الله خيرا أخي ياسر على هذا الدرس و على الشرح الذي كان وافيا

 

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

وعليكم السلام أخي الغالي أبو حنين

وجزيت خيراً بمثل ما دعوت لي .. مشكور على مرورك وتشريفك بموضوعي المتواضع

[احمدزمان]

‏السبت‏، 22‏/ذو الحجة‏/1437هـ

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

جزاك الله خيرا على هذه الفائدة

وبارك الله فيكم و في علمكم

 

[أبو حنــــين]

 

بالنسبة للكود الأول :
غيرت هذا السكر
strLookUp =  "Reda"

بهذا السطر
strLookUp = CStr(Range("F3")) 


و الكود الثاني
هذا السطر
MsgBox Dict("Reda")

بهذا السطر
MsgBox Dict(CStr(Range("F3")))

 وضعت قائمة منسدلة بالاسماء في 
Range("F3")
  فكانت النتيجة جد ممتارة

و يمكن وضع ذلك في حدث الورقة

 

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

27 دقائق مضت, احمدزمان said:

‏السبت‏، 22‏/ذو الحجة‏/1437هـ

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

جزاك الله خيرا على هذه الفائدة

وبارك الله فيكم و في علمكم

 

وعليكم السلام أخي ومعلمي أحمد زمان

لكم يسعدني تشريفك ومرورك بالموضوع ، ومشكور على دعائك الطيب

 

أخي الحبيب أبو حنين

الفكرة في الموضوع تعليمية لمعرفة كيفية استخدام الدالة Vlookup واستخدام القاموس Dictionary ، لكل يفهم المتعلم كيفية التعامل معها الدالة أو عمليات البحث ...

يمكن تطوير الكود لأكثر من ذلك وإضافات أخرى لتفادي الخطأ الحادث في حالة عدم وجود اسم معين (حيث ينتج ذلك عن خطأ) .. كما يمكن تطوير الكود بحيث يبحث عن عدة قيم وليس قيمة واحدة فقط .. الأمر فيه مرونة
والغرض ما كان إلا لوضع المتعلم على بداية الطريقة لفهم كيف يسير الأمر بخطوات بسيطة ومشروحة بالتفصيل

بارك الله فيك وجزاك الله خير الجزاء على هذه الإضافة الجميلة والتي حتماً ستفيد المتعلم أيضاً بشكل كبير ..

لك مني وافر التحية والتقدير

[saad abed]

اخى ياسر

السلام عليكم

زدنا اخى ياسر جزاك الله خيرا

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

وجزيت خيراً أخي الغالي سعد عابد ولك بمثل ما دعوت لي إن شاء الله

شاكر مرورك العطر بالموضوع

[عادل ابوزيد]

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

[قلم-الاكسل(عبدالعزيز)]

درس رائع وممتاز وشرح فائض ومستنير

شكرا لك وبوركت ورزقت العافية والستر

ارجو الاستمرار في شرحك لجميع الدوال وكيفية وضعها مثل الكود

كما اقترح عليك وضع معادلتين او اكثر داخل كود

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

أخي الفاضل عادل أبو زيد

بارك الله فيك ومشكور على مرورك العطر

أخي العزيز عبد العزيز صاحب الكلام اللذيذ

مشكور على مرورك العطر بالموضوع ، وإن شاء الله أحاول تقديم كل ما هو جديد قدر استطاعتي .. فالوقت في الغالب هو العائق

تقبلوا تحياتي

[Ahmed sabahy]

جزاك الله خيرا استاذي الجليل 

[جلال الجمال_ابو أدهم]

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

اخى الفاضل ما شاء الله عليك
 

[احمد غانم]

جزاك الله خيراً و ادام نعمته عليك ووفقك في الدنيا و الآخرة.

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

بارك الله فيكم إخواني وأحبابي في الله

وجزيتم خيراً بمثل ما دعوتم لي ومشكور على مروركم العطر وعلى كلماتكم الرقيقة

[طلعت محمد حسن]

اخي ياسر خليل زادك الله من علمة وامدك بالصحة والعافية وراحة البال كل تقديري واحترامي لشخصك الكريم .

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

2 ساعات مضت, طلعت محمد حسن said:

اخي ياسر خليل زادك الله من علمة وامدك بالصحة والعافية وراحة البال كل تقديري واحترامي لشخصك الكريم .

شرفت الموضوع بمرورك العطر أخي الحبيب طلعت

بارك الله فيك وجزاك الله خيراً ..تقبل مودتي