تغيير الأمر بحث في إكسل 97
انا احد المعتمدين في عملهم على الامر بحث (او الاختصار الممثل له Ctrl+F) من برنامج إكسل 97، الا ان هذا الامر يبحث (حسب الإعداد المسبق المعياري) حسب الاسطر by Rows اي عكس ما اريده تماماً (اي حسب الاعمدة by Columns ) فإن كنت احد الذين يهتمون بهذا ويتضايقون من آلية البحث المعيارية فاعمل مثلي لانني قمت بتغيير البحث الى حسب الاعمدة .
يعتمد عملنا على انشاء ماكرو macro ينفذ لنا مانريد لذا قم بتشغيل برنامج اكسل 97 وفي الملف المسمى Book1 قم بعمل الآتي:
1-من قائمة ادوات Tools اختر Visual Basic Editor.
2-اختر Module من قائمة إدراج Insert الموجودة في Visual Basic Editor.
3-الآن اكتب في النافذة البيضاء الكبيرة الاسطر التالية بكل دقة وحرص:
Sub Auto - Open)(
With Ranqe )" al"(
Set hoho= .find )searchorder := x1 ByColumns(
End With
End Sub
بعد ان تنهي الكتابة قم بضغط Ctrl+S (أو اختر حفظ Save من قائمة ملف File) ثم اختر Templaxe من الصندوق المسمى Saveas Tgpe ثم غير اسم المجلد الموجود في الصندوق الاعلى (انتبه ليس صندوق Save as Type) من Template ليصبح XLStart الموجود في C:/Proqram Files/ Microsoft Office/ Office/ SLStart
إلا انه قد يكون لديك المجلد XLStart في عنوان غير المذكور اعلاه فلا تقلق ابحث عنه واتمم مراحل العمل, بعد كل هذه العمليات اكتب اسم الملف Book واضغط موافق OK, ثم اخرج من البرنامج Exit.
عند اعادة تشغيل اكسل97 ستجد انه قد يعطيك تحذيراً بانه قد وجد ماكرو في الملف الابتدائي الذي يريد تشغيله ويحثك على الموافقة ان كنت متاكداً من خلوه من اي فيروس ماكرو او ان تلغي الامر او ألاتسمح للماكرو بالعمل, بالنسبة لمثالنا هنا اضغط على الاستمرار فيفتح اكسل 97 الملف Book1 جاهزاً, والآن يجب ان تكون هناك معلومات في الخلية a1 كي يستمر اكسل في عمله والا فانه يظهر رسالة تفيد بانه لم يجد معلومات من اجل تشغيل الامر بحث ويطلب منك احد امرين اما تشغيل Debug أو End , تشغيل Debug يؤدي الى فتح الماكرو من اجل تعديله أما End فيوقف الماكرو عن العمل,ويجب التنويه الى ان الخلية a1 يمكن تغييرها تبعاً للحالة المناسبة لكل مستخدم على ان تحتوي معلومات من اجل ان يستمر الماكرو في العمل.