هناك عدة طرق للبحث في ملفات الأكسيل .. سنبدأ اليوم بطرح مثال للبحث في " ورقة عمل " نقوم بتحديدها .. ثم سنتطرق لأمثلة تقوم بالبحث في كافة أوراق العمل ..
* قم بفتح ملف الأكسي المراد إضافة هذه الخاصية به .
* في مثالنا التالي أسم ورقةالعمل سيكون " Search " ولا يهم إن كان إسم " الملف " كذلك ولكن تم تسميته كذلك فقطللتوضيح ولكن ما يهمنا هنا هو أسم ورقة العمل والذي يمكن تغييرها ولكن ستتضطرلتغيير الأسم " بالكود "
كود:
Private Sub CommandButton1_Click()
Worksheets("Search").Activate
Range("b1:IV65536").Select
Application.SendKeys ("^f")
End Sub
* الكود السابق هو كود البحث المطلوب وضعه بورقة العمل .
* وإذا كنت لا تعلم كيفية إستخدام الكود السابق أتبع التالي :
* إضغط بزر الماوس الأيمن بمكان فارغ بشريط الأدوات وأختر " مربع أدوات التحكم " لكي يتم تفعيله
* الآن أختر شكل الزر وقم برسمه بأي مكان بورقة العمل
* إضغط " Double Click " أي ضغطتان على الزر سيقوم الأكسيل بفتح المكان المخصص لإدراج الكود السابق
* بعدها قم بنسخ الكود ولصقه في المكان المخصص والذي سيقف عليه الماوس
* أغلق الشاشه وستعود لملف الأكسيل
* إضغط بزر الماوس الأيمن على الزر لتنسيقه وتغيير الأسم واللون وخلافه
* أضغط في شريط الأدوات الذي ظهر لك على شكل المثلث لتعود لوضع التصميم
* إضغط على الزر لتبدأ عملية البحث
لاحظ في الكود السابق مايلي ..
* في السطر الثاني بالكود يوجد أسم ورقة العمل المطلوب البحث بها " Search " والذي ستحتاج لتغييره حسب أسم ورقة العمل الموجوده لديك والمطلوب البحث بها .
* السطر الثالث من الكود موجود محال البحث وهو من b1:IV65536 يمكن تغييره