إنشاء محرك بحث في EXCEL

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

* قم بفتح ملف الأكسي المراد إضافة هذه الخاصية به .
* في مثالنا التالي أسم ورقة العمل سيكون " Search " ولا يهم إن كان إسم " الملف " كذلك ولكن تم تسميته كذلك فقط للتوضيح ولكن ما يهمنا هنا هو أسم ورقة العمل والذي يمكن تغييرها ولكن ستتضطر لتغيير الأسم " بالكود "

كود:

Private Sub CommandButton1_Click()

Worksheets("Search").Activate

Range("b1:IV65536").Select

Application.SendKeys ("^f")

End Sub

* الكود السابق هو كود البحث المطلوب وضعه بورقة العمل .
* وإذا كنت لا تعلم كيفية إستخدام الكود السابق أتبع التالي :
* إضغط بزر الماوس الأيمن بمكان فارغ بشريط الأدوات وأختر " مربع أدوات التحكم " لكي يتم تفعيله
* الآن أختر شكل الزر وقم برسمه بأي مكان بورقة العمل
* إضغط " Double Click " أي ضغطتان على الزر سيقوم الأكسيل بفتح المكان المخصص لإدراج الكود السابق
* بعدها قم بنسخ الكود ولصقه في المكان المخصص والذي سيقف عليه الماوس
* أغلق الشاشه وستعود لملف الأكسيل
* إضغط بزر الماوس الأيمن على الزر لتنسيقه وتغيير الأسم واللون وخلافه
* أضغط في شريط الأدوات الذي ظهر لك على شكل المثلث لتعود لوضع التصميم
* إضغط على الزر لتبدأ عملية البحث

لاحظ في الكود السابق مايلي ..

* في السطر الثاني بالكود يوجد أسم ورقة العمل المطلوب البحث بها " Search " والذي ستحتاج لتغييره حسب أسم ورقة العمل الموجوده لديك والمطلوب البحث بها .
* السطر الثالث من الكود موجود محال البحث وهو من b1:IV65536 يمكن تغييره حسل الرغبه

بارك الله فيك أخي