 |  |  |
| | |
|
| |||||||
 |
| | LinkBack | أدوات الموضوع |
| |||
| أضف المزيد من القوة إلى تطبيقات الأوفيس الماكرو هو أمر تصنعه بنفسك لتسهل على نفسك أداء العمليات الروتينية و المتكررة التى كانت تحتاج لتنفيذها الكثير من الوقت و الأوامر من خلال الماكرو تستطيع انجازها أسرع و أسهل انظر فمثلا تحتاج من حين لآخر تشغيل برنامج الحاسبة لإجراء بعض العمليات الحسابية أو تشغيل محرر الصور الشهير الفوتو شوب للتعديل فى الصور لست مضطرا الآن للخروج من برنامج الورد لتشغيل البرامج السابقة فبضغطة زر يتم تشغيل تلك البرامج و مثال آخر يبرهن على قوة الماكرو لنفرض أنك تحتاج فى كل مرة إنشاء جدول يحتوى على تنسيقات معينة كعدد معين من الصفوف و الأعمدة و يكون لها تنسيق مخصص من حيث لون الخلايا و تنسيق الكلمات الموجودة فى داخل الخلايا إلخ طبعا سيكون من الممل تكرار العملية فى كل مرة فما رأيك بزر واحد يقوم عنك بكل هذه الأعمال انظر الصورة التالية  أسهل طريقة لإنشاء ماكرو هى تسجيله و سنأخذ مثالا بسيطا لماكرو يقوم مثلا بإلغاء نص من نقطة الإدراج إلى نهاية السطر قم أولا بفتح وثيقة وورد مكتوب بها بعض العبارات ثانيا قم بوضع مؤشر الكتابة فى أى مكان من السطر ثم اتيع الصور    انقر هنا لمشاهدة لقطة فيديو تشرح ما سبق بالطبع هذا ماكرو صغير يقوم بإلغاء النص من نقطة الإدراج حتى نهاية السطر و أخذناه كمثال توضيحى لكيفية تسجيل الماكرو و يمكنك تسجيل ما تشاء من ماكروات تؤدى عمليات أعقد من ذلك بكثير لكن لاحظ شيئا مهما أن الماكرو لا يقوم بتسجيل نقرات الماوس بل يسجل فقط الضربات على لوحة المفاتيح سنأخذ مثالا آخر سهل يمكننا من تشغيل أى برنامج من داخل الورد و سنقوم بكتابته بأنفسنا من قائمة ( أدوات ) اختر ( ماكرو ) ثم ( محرر الفيجوال بيسك ) كما فى الصورة التالية  أو يمكنك الضغط على alt + f11 من لوحة المفاتيح فتظهر النافذة التالية  داخل تلك النافذة اكتب ما يلى Sub calc ( ) Shell "E:\WINDOWS\system32\calc.exe" '4 End Sub كما نلاحظ يتكون ذلك الماكرو من عدة أسطر يجب أن يبدأ كل ماكرو بكلمة Sub متبوعة باسم الماكرو و هنا calc و ينتهى الماكرو دائما بعبارة End Sub و السطر أو السطور بينهما نكتب بينهما الأوامر البرمجية و هى فى مثالنا الحالى Shell "E:\WINDOWS\system32\calc.exe" '4 تستطيع طبعا كتابة مسار أى برنامج تريد تشغيله .و لا تنسى بعد كتابة الماكرو أن تقوم بحفظه . حسنا الآن تجريب الماكرو فى برنامج الورد من قائمة (أدوات ) اختر ( ماكرو ) ثم ( وحدات ماكرو )  كما نلاحظ فى الصورة السابقة يمكن تنفيذ الماكرو أو تحريره أو حذفه إلخ دعونا نتعرف على طريقة أسهل تمكننا من تشغيل الماكرو بنقرة زر فى برنامج الورد اضغط القائمة ( أدوات ) ثم اختر (تخصيص ) ستظهر النافذة الموجودة فى الصورة التالية من يمين النافذة اختر ( وحدات ماكرو ) ستظهر وحدات الماكرو المخزنة فى حاسوبك اسحبها بزر الفأرة الأيسر و ضعه على أى شريط من الشرائط كما فى الصورة  كما لاحظنا أن قوة الماكرو فى تطبيقات الأوفيس تعتمد على الإلمام بلغة الفيجوال بيسك فكلما تعمقنا فى تلك اللغة كلما استطعنا أن نصنع وحدات ماكرو أكثر احترافا و لكن دعونا نأخذ فكرة بسيطة دون الدخول فى تفاصيل كثيرة كتابة وحدات الماكرو تعتمد على البرمجة بالكائنات حيث يتعامل مع البيانات على إنها كائنات object ككائنات الحية لها خصائص properties و تقوم بأفعال تسمى methods و تتأثر بأحداث تسمى events لتسهيل الأمر نشبها بالإنسان فهو كائن object له خصائص properties تميزه كطوله و وزنه و لون عينه و هكذا هذا الإنسان يقوم بأفعال methods مختلفة كالقراءة و المشى و النوم كما يتأثر هذا الإنسان بأحداث events موجودة فى بيئته فالضوء الشديد مثلا عبارة عن حدث events يؤثر على الإنسان فيجعله يغمض عينه هذا الإغماض يسمى فعل methods هل اتضحت الصورة مثال آخر و أرجو أن لا تتضايقوا من اسهابى فى الشرح لأن ذلك هو الباب الذى سيفتح لنا كنز إنشاء الماكروات سنفرض أن لدينا عصفور هذا العصفور عبارة عن كائن object له خصائص properties كلون ريشه أو طول منقاره , هذا العصفور يقوم بأفعال methods كالتغريد و الطيران كما يتأثر بأحداث موجودة events فى بيئته و هكذا نكتشف أن كل كائن له خصائصه التى تميزه و له أفعاله التى لا يشترك بها غيره فالعصور مثلا يستطيع الطيران بينما الإنسان يستطيع القراءة و كل كائن يتأثر ببيئته و يصدر أفعالا methods بناء على خصائصه properties كذلك فى البرمجة بالكائنات فالوثيقة كائن و الجدول الذى نرسمه كائن له خصائص كعدد الصفوف و عدد الأعمدة و يتصرف ذلك الكائن بأفعال methods كجمع خليتين مثلا أو إظهار اسم الطالب الذى حصل على أعلى درجة و هكذا دعونا نأخذ مثالا لماكرو سيقوم بإنشاء جدول بعد أن يسألنا عن عدد الأعمدة و عدد الصفوف ثم يقوم بتنسيقه بشكل جميل اضغط alt + f11 من لوحة المفاتيح و قم بكتابة ما يلى Sub mytables() Dim iRows As Integer, iColumns As Integer Dim myTable iRows = InputBox("ما عدد صفوف الجدول") iColumns = InputBox("ما عدد أعمدة الجدول") Set myTable = ActiveDocument.Tables.Add(Selection.Range, iRows, iColumns) myTable.AutoFormat Format:=wdTableFormatColorful3 End Sub يفضل نقل السطور السابقة من الصورة التالية حتى لا يحدث خطأ  فى السطر الثانى و الثالث نقوم بالإعلان عن وجود ثلاث كائنات هم الأعمدة و الصفوف و الجدول نفسه فى السطر الرابع أقوم بإظهار نافذة تسأل المستخدم عن عدد الصفوف فى السطر الخامس نظهر نافذة تسألنا عن عدد الأعمدة فى السطر السادس نقوم بإنشاء الجدول بناء على الأرقام التى أدخلها المستخدم السطر السابع نقوم بتنسيق الجدول و لاحظ الرقم 3 المكتوب غيره برقم 2 مرة و رقم 4 مرة أخرى ستحصل على شكل مختلف فى كل مرة السطر الأخير نقوم فيه بإنهاء الماكرو جرب تنفيذ تلك الخطوات و شاهد النتيجة بنفسك بالطبع تلك كانت مقدمة بسيطة عن الماكرو أردت بها تنبيهكم فقط لأهمية الماكرو و من يريد أن يتعمق أكثر من ذلك فعليه أن يقرأ ملفات المساعدة الموجودة فى برامج الأوفيس عن الفيجوال بيسك فور أبليكن و المصدر الثانى البحث فى الانترنت عن المعلومات التى تتعلق بذلك الموضوع و متابعة موضوع الأخت أزهارو فى قسم البرمجة لتعليم الفيجوال بيسك الطريقة الثالثة أن تسجل ماكرو بما تريد فعله و تقوم بتعديله كيفما شئت و اعلموا أن التجربة و الخطأ خير معلم و بالرغم من أننى درست لغة السى و ليست لغة الفيجوال بيسك إلا أن ذلك لم يمنعنى من انجاز شوط كبير فى التعامل مع الماكرو و نصيحة لإخوانى بدلا من انفاق الساعات الطويلة فى اللعب أو الدردشة التى لا طائل من ورائها يمكن تخصيص و لو وقت صغير لإجادة تقنيات الحاسب لننفع أنفسنا أولا و أمتنا العربية و الاسلامية مرة ثانية و لا تنسونى من صالح دعائكم يمكن تحميل الماكرو مكتوبا فى ملف نصى من المرفقات تعلم صناعة الماكرو بنفسك لإضافة مزيد من القوة لتطبيقات الأوفيس قمت بعمل كتاب الكترونى يتناول الشرح السابق مع ملفات الفيديو و بعض الأمثلة العملية المفيدة التى لم ترد فى الموضوع حجم الكتاب 2 ميجا تقريبا يمكن تحميله من المرفقات أو أى من الروابط التالية http://ahmdatef.4shared.com/ و يمكنك هنا أن تجد العديد من الأمثلة المفيدة لأختنا أزهارو على الرابط التالى امثلة عملية على الماكرو قمت بعمل كتاب الكترونى يحوى الشرح و الصور و الأمثلة على الرابط التالى http://www.zshare.net/download/52519210afb35523/ أو http://rapidshare.com/files/203103778/4office.zip
__________________ كيف تصنع كتابا الكترونيا البداية و النهاية فى الشبكات نصائح قبل شراء حاسب جديد التعديل فى ملف الإقلاع للويندوز windows scripting host جميع برامج تقسيم القرص الصلب كيف تصنع موقعا لك على الانترنت جميع برامج مقاومة الفيروسات فى تجميعة واحدة و هى تعمل بدون تنصيب حل مشكلة NTLDR is missing, press any key to restart كيفية تنصيب الويندوز مع طريقة تهيئة القرص الصلب و البحث عن التعاريف دليل شامل مرة أخرى شرح اضافة Acronis True Image إلى شاشة البوت وجعل نسخة الويندوز تعيش معك للأبد حل مشكلة لا يمكن الوصول إلى القرص الصلب Folder is not accessible. Access is denied  25-04-2006,
05:53 PM |
| |||
| ما شاء الله عليك أخي أحمد موضوع رائع جداااااا بارك الله فيك و جعل ذلك في ميزان حسناتك .. مع خالص تحياتي ..
__________________ بسم الله الرحمن الرحيم { ولا تمشي في الأرض مرحا انك لن تخرق الأرض و لن تبلغ الجبال طولا } صدق الله العظيم ********************** 25-04-2006,
07:12 PM |
| |||
| اقتباس:
__________________ كيف تصنع كتابا الكترونيا البداية و النهاية فى الشبكات نصائح قبل شراء حاسب جديد التعديل فى ملف الإقلاع للويندوز windows scripting host جميع برامج تقسيم القرص الصلب كيف تصنع موقعا لك على الانترنت جميع برامج مقاومة الفيروسات فى تجميعة واحدة و هى تعمل بدون تنصيب حل مشكلة NTLDR is missing, press any key to restart كيفية تنصيب الويندوز مع طريقة تهيئة القرص الصلب و البحث عن التعاريف دليل شامل مرة أخرى شرح اضافة Acronis True Image إلى شاشة البوت وجعل نسخة الويندوز تعيش معك للأبد حل مشكلة لا يمكن الوصول إلى القرص الصلب Folder is not accessible. Access is denied 25-04-2006,
07:30 PM |
| |||
| يعطيك ألف عافية عزيزي أبو شادي 0 ماشاء الله تبارك الله فبركة ولا أحلى الله ينور عليك ويسعدك ويبارك فيك0 تقبل تحياتي0
__________________ If you ignore any of the rules you will be banned without notice --- *** 25-04-2006,
08:29 PM |
| |||
| اقتباس:
__________________ كيف تصنع كتابا الكترونيا البداية و النهاية فى الشبكات نصائح قبل شراء حاسب جديد التعديل فى ملف الإقلاع للويندوز windows scripting host جميع برامج تقسيم القرص الصلب كيف تصنع موقعا لك على الانترنت جميع برامج مقاومة الفيروسات فى تجميعة واحدة و هى تعمل بدون تنصيب حل مشكلة NTLDR is missing, press any key to restart كيفية تنصيب الويندوز مع طريقة تهيئة القرص الصلب و البحث عن التعاريف دليل شامل مرة أخرى شرح اضافة Acronis True Image إلى شاشة البوت وجعل نسخة الويندوز تعيش معك للأبد حل مشكلة لا يمكن الوصول إلى القرص الصلب Folder is not accessible. Access is denied 25-04-2006,
08:37 PM |
| |||
| ماشاء الله عليك اخي ابو شادي ...يعطيك العافية و اتمنى ان لا بتخل علينا بالمزيد بهذا المجال خالص الشكر و التقدير
__________________ Learn to View Everything As a Worthwhile Experience 25-04-2006,
11:09 PM |
| |||
| ما شاء الله عليك اخي ابو شادي فعلاً موضوع الماكرو مهم جدا جدا وممكن من خلال برنامج الوورد او الاكسل تنفيذ برامج صغيرة لاداء مهام بسيطة دون الحاجة الى التعمق في تعقيدات لغات البرمجة ومع اننا نحن المبرمجين لا نعتمد كثيرا على برمجة الماكرو المدمجة مع برامج الاوفيس الا ان هذا لا يقلل من اهميتها للمستخدم العادي خاصة من يحب ان يعتمد على نفسه في اداء ما يحتاجه بأبسط التكاليف والامكانيات بارك الله فيك اخي ابو شادي وجزاك كل الخير
__________________ 26-04-2006,
12:47 AM |
| |||
| اقتباس:
__________________ كيف تصنع كتابا الكترونيا البداية و النهاية فى الشبكات نصائح قبل شراء حاسب جديد التعديل فى ملف الإقلاع للويندوز windows scripting host جميع برامج تقسيم القرص الصلب كيف تصنع موقعا لك على الانترنت جميع برامج مقاومة الفيروسات فى تجميعة واحدة و هى تعمل بدون تنصيب حل مشكلة NTLDR is missing, press any key to restart كيفية تنصيب الويندوز مع طريقة تهيئة القرص الصلب و البحث عن التعاريف دليل شامل مرة أخرى شرح اضافة Acronis True Image إلى شاشة البوت وجعل نسخة الويندوز تعيش معك للأبد حل مشكلة لا يمكن الوصول إلى القرص الصلب Folder is not accessible. Access is denied 26-04-2006,
06:32 AM |
| |||
| اقتباس:
__________________ كيف تصنع كتابا الكترونيا البداية و النهاية فى الشبكات نصائح قبل شراء حاسب جديد التعديل فى ملف الإقلاع للويندوز windows scripting host جميع برامج تقسيم القرص الصلب كيف تصنع موقعا لك على الانترنت جميع برامج مقاومة الفيروسات فى تجميعة واحدة و هى تعمل بدون تنصيب حل مشكلة NTLDR is missing, press any key to restart كيفية تنصيب الويندوز مع طريقة تهيئة القرص الصلب و البحث عن التعاريف دليل شامل مرة أخرى شرح اضافة Acronis True Image إلى شاشة البوت وجعل نسخة الويندوز تعيش معك للأبد حل مشكلة لا يمكن الوصول إلى القرص الصلب Folder is not accessible. Access is denied 26-04-2006,
06:34 AM |
| |||
| اقتباس:
__________________ كيف تصنع كتابا الكترونيا البداية و النهاية فى الشبكات نصائح قبل شراء حاسب جديد التعديل فى ملف الإقلاع للويندوز windows scripting host جميع برامج تقسيم القرص الصلب كيف تصنع موقعا لك على الانترنت جميع برامج مقاومة الفيروسات فى تجميعة واحدة و هى تعمل بدون تنصيب حل مشكلة NTLDR is missing, press any key to restart كيفية تنصيب الويندوز مع طريقة تهيئة القرص الصلب و البحث عن التعاريف دليل شامل مرة أخرى شرح اضافة Acronis True Image إلى شاشة البوت وجعل نسخة الويندوز تعيش معك للأبد حل مشكلة لا يمكن الوصول إلى القرص الصلب Folder is not accessible. Access is denied 05-05-2006,
05:25 PM |
| |||
| اقتباس:
__________________ كيف تصنع كتابا الكترونيا البداية و النهاية فى الشبكات نصائح قبل شراء حاسب جديد التعديل فى ملف الإقلاع للويندوز windows scripting host جميع برامج تقسيم القرص الصلب كيف تصنع موقعا لك على الانترنت جميع برامج مقاومة الفيروسات فى تجميعة واحدة و هى تعمل بدون تنصيب حل مشكلة NTLDR is missing, press any key to restart كيفية تنصيب الويندوز مع طريقة تهيئة القرص الصلب و البحث عن التعاريف دليل شامل مرة أخرى شرح اضافة Acronis True Image إلى شاشة البوت وجعل نسخة الويندوز تعيش معك للأبد حل مشكلة لا يمكن الوصول إلى القرص الصلب Folder is not accessible. Access is denied 07-05-2006,
05:37 AM |
| |||
| اقتباس:
__________________ كيف تصنع كتابا الكترونيا البداية و النهاية فى الشبكات نصائح قبل شراء حاسب جديد التعديل فى ملف الإقلاع للويندوز windows scripting host جميع برامج تقسيم القرص الصلب كيف تصنع موقعا لك على الانترنت جميع برامج مقاومة الفيروسات فى تجميعة واحدة و هى تعمل بدون تنصيب حل مشكلة NTLDR is missing, press any key to restart كيفية تنصيب الويندوز مع طريقة تهيئة القرص الصلب و البحث عن التعاريف دليل شامل مرة أخرى شرح اضافة Acronis True Image إلى شاشة البوت وجعل نسخة الويندوز تعيش معك للأبد حل مشكلة لا يمكن الوصول إلى القرص الصلب Folder is not accessible. Access is denied 15-05-2006,
06:20 PM |
| |||
| اقتباس:
__________________ كيف تصنع كتابا الكترونيا البداية و النهاية فى الشبكات نصائح قبل شراء حاسب جديد التعديل فى ملف الإقلاع للويندوز windows scripting host جميع برامج تقسيم القرص الصلب كيف تصنع موقعا لك على الانترنت جميع برامج مقاومة الفيروسات فى تجميعة واحدة و هى تعمل بدون تنصيب حل مشكلة NTLDR is missing, press any key to restart كيفية تنصيب الويندوز مع طريقة تهيئة القرص الصلب و البحث عن التعاريف دليل شامل مرة أخرى شرح اضافة Acronis True Image إلى شاشة البوت وجعل نسخة الويندوز تعيش معك للأبد حل مشكلة لا يمكن الوصول إلى القرص الصلب Folder is not accessible. Access is denied 04-06-2006,
04:13 PM |
| |||
| اقتباس:
__________________ كيف تصنع كتابا الكترونيا البداية و النهاية فى الشبكات نصائح قبل شراء حاسب جديد التعديل فى ملف الإقلاع للويندوز windows scripting host جميع برامج تقسيم القرص الصلب كيف تصنع موقعا لك على الانترنت جميع برامج مقاومة الفيروسات فى تجميعة واحدة و هى تعمل بدون تنصيب حل مشكلة NTLDR is missing, press any key to restart كيفية تنصيب الويندوز مع طريقة تهيئة القرص الصلب و البحث عن التعاريف دليل شامل مرة أخرى شرح اضافة Acronis True Image إلى شاشة البوت وجعل نسخة الويندوز تعيش معك للأبد حل مشكلة لا يمكن الوصول إلى القرص الصلب Folder is not accessible. Access is denied 01-07-2006,
11:17 AM |
| |||
| اقتباس:
__________________ كيف تصنع كتابا الكترونيا البداية و النهاية فى الشبكات نصائح قبل شراء حاسب جديد التعديل فى ملف الإقلاع للويندوز windows scripting host جميع برامج تقسيم القرص الصلب كيف تصنع موقعا لك على الانترنت جميع برامج مقاومة الفيروسات فى تجميعة واحدة و هى تعمل بدون تنصيب حل مشكلة NTLDR is missing, press any key to restart كيفية تنصيب الويندوز مع طريقة تهيئة القرص الصلب و البحث عن التعاريف دليل شامل مرة أخرى شرح اضافة Acronis True Image إلى شاشة البوت وجعل نسخة الويندوز تعيش معك للأبد حل مشكلة لا يمكن الوصول إلى القرص الصلب Folder is not accessible. Access is denied 01-08-2006,
10:37 PM |
| |||
| بارك الله فيك - أخي الكريم - ونفعك ونفع بك
__________________ ************************************************ لا إله إلا الله *** محمد (صلى الله عليه وسلم) رسول الله ************************************************ اللهم أرنا الحق حق وارزقنا اتباعه .. وأرنا الباطل باطل وارزقنا اجتنابه ************************************************ اللهم انصر إخواننا المجاهدين في فلسطين والعراق ولبنان وفي كل مكان ************************************************ ومن لا يحب صعود الجبال ***** يعش أبد الدهر بين الحفر ************************** أُبارك في الناس أهل الطموح ***** ومن يستلذ ركوب الخطر وألعن من لا يماشي الزمان ***** ويقنع بالعيش عيش الحجر أبو القاسم الشابي *********************************************** 02-08-2006,
03:44 AM |
|
| الذين يشاهدون محتوى الموضوع الآن : 1 ( الأعضاء 0 والزوار 1) | |
| أدوات الموضوع | |
| |
