ahmdatef
04-25-2006, 06:44 PM
الماكرو هو أمر تصنعه بنفسك لتسهل على نفسك أداء العمليات الروتينية و المتكررة التى كانت تحتاج لتنفيذها الكثير من الوقت و الأوامر من خلال الماكرو تستطيع انجازها أسرع و أسهل انظر فمثلا تحتاج من حين لآخر تشغيل برنامج الحاسبة لإجراء بعض العمليات الحسابية أو تشغيل محرر الصور الشهير الفوتو شوب للتعديل فى الصور لست مضطرا الآن للخروج من برنامج الورد لتشغيل البرامج السابقة فبضغطة زر يتم تشغيل تلك البرامج و مثال آخر يبرهن على قوة الماكرو لنفرض أنك تحتاج فى كل مرة إنشاء جدول يحتوى على تنسيقات معينة كعدد معين من الصفوف و الأعمدة و يكون لها تنسيق مخصص من حيث لون الخلايا و تنسيق الكلمات الموجودة فى داخل الخلايا إلخ طبعا سيكون من الممل تكرار العملية فى كل مرة فما رأيك بزر واحد يقوم عنك بكل هذه الأعمال انظر الصورة التالية
http://img181.imageshack.us/img181/103/macrooffice 00013sh.jpg
أسهل طريقة لإنشاء ماكرو هى تسجيله و سنأخذ مثالا بسيطا لماكرو يقوم مثلا بإلغاء نص من نقطة الإدراج إلى نهاية السطر قم أولا بفتح وثيقة وورد مكتوب بها بعض العبارات ثانيا قم بوضع مؤشر الكتابة فى أى مكان من السطر ثم اتيع الصور
http://img181.imageshack.us/img181/598/macrooffice 00026kj.jpg
http://img181.imageshack.us/img181/3533/macrooffic e00035ji.jpg
http://img181.imageshack.us/img181/158/macrooffice 00040nf.jpg
انقر هنا لمشاهدة لقطة فيديو تشرح ما سبق (http://www.badongo.com/vid/101221)
بالطبع هذا ماكرو صغير يقوم بإلغاء النص من نقطة الإدراج حتى نهاية السطر و أخذناه كمثال توضيحى لكيفية تسجيل الماكرو و يمكنك تسجيل ما تشاء من ماكروات تؤدى عمليات أعقد من ذلك بكثير لكن لاحظ شيئا مهما أن الماكرو لا يقوم بتسجيل نقرات الماوس بل يسجل فقط الضربات على لوحة المفاتيح
سنأخذ مثالا آخر سهل يمكننا من تشغيل أى برنامج من داخل الورد و سنقوم بكتابته بأنفسنا من قائمة ( أدوات ) اختر ( ماكرو ) ثم ( محرر الفيجوال بيسك ) كما فى الصورة التالية
http://img181.imageshack.us/img181/9490/macrooffic e00057fa.jpg
أو يمكنك الضغط على alt + f11 من لوحة المفاتيح فتظهر النافذة التالية
http://img181.imageshack.us/img181/6161/macrooffic e00064xo.jpg
داخل تلك النافذة اكتب ما يلى
Sub calc ( )
!!!!! "E:\!!!!!!S\system32\calc.exe" '4
End Sub
كما نلاحظ يتكون ذلك الماكرو من عدة أسطر يجب أن يبدأ كل ماكرو بكلمة Sub متبوعة باسم الماكرو و هنا calc و ينتهى الماكرو دائما بعبارة End Sub و السطر أو السطور بينهما نكتب بينهما الأوامر البرمجية و هى فى مثالنا الحالى
!!!!! "E:\!!!!!!S\system32\calc.exe" '4
تستطيع طبعا كتابة مسار أى برنامج تريد تشغيله .و لا تنسى بعد كتابة الماكرو أن تقوم بحفظه . حسنا الآن تجريب الماكرو فى برنامج الورد من قائمة (أدوات ) اختر ( ماكرو ) ثم ( وحدات ماكرو )
http://img181.imageshack.us/img181/2083/macrooffic e00073fc.jpg
كما نلاحظ فى الصورة السابقة يمكن تنفيذ الماكرو أو تحريره أو حذفه إلخ
دعونا نتعرف على طريقة أسهل تمكننا من تشغيل الماكرو بنقرة زر فى برنامج الورد اضغط القائمة ( أدوات ) ثم اختر (تخصيص ) ستظهر النافذة الموجودة فى الصورة التالية من يمين النافذة اختر ( وحدات ماكرو ) ستظهر وحدات الماكرو المخزنة فى حاسوبك اسحبها بزر الفأرة الأيسر و ضعه على أى شريط من الشرائط كما فى الصورة
http://img181.imageshack.us/img181/1552/macrooffic e00087xw.jpg
اضغط هنا لتحميل ملف فيديو يشرح الفقرة السابقة (http://www.badongo.com/vid/101220)
كما لاحظنا أن قوة الماكرو فى تطبيقات الأوفيس تعتمد على الإلمام بلغة الفيجوال بيسك فكلما تعمقنا فى تلك اللغة كلما استطعنا أن نصنع وحدات ماكرو أكثر احترافا و لكن دعونا نأخذ فكرة بسيطة دون الدخول فى تفاصيل كثيرة كتابة وحدات الماكرو تعتمد على البرمجة بالكائنات حيث يتعامل مع البيانات على إنها كائنات 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 = Active!!!!!!!!.Tables.Add(Selection.Range, iRows, iColumns)
myTable.AutoFormat Format:=wdTableFormatColorful3
End Sub
يفضل نقل السطور السابقة من الصورة التالية حتى لا يحدث خطأ
http://img181.imageshack.us/img181/7747/macrooffic e00097su.jpg
فى السطر الثانى و الثالث نقوم بالإعلان عن وجود ثلاث كائنات هم الأعمدة و الصفوف و الجدول نفسه
فى السطر الرابع أقوم بإظهار نافذة تسأل المستخدم عن عدد الصفوف
فى السطر الخامس نظهر نافذة تسألنا عن عدد الأعمدة
فى السطر السادس نقوم بإنشاء الجدول بناء على الأرقام التى أدخلها المستخدم
السطر السابع نقوم بتنسيق الجدول و لاحظ الرقم 3 المكتوب غيره برقم 2 مرة و رقم 4 مرة أخرى ستحصل على شكل مختلف فى كل مرة
السطر الأخير نقوم فيه بإنهاء الماكرو
جرب تنفيذ تلك الخطوات و شاهد النتيجة بنفسك
انقر هنا لمشاهدة ملف فيديو (http://www.badongo.com/vid/101222)
بالطبع تلك كانت مقدمة بسيطة عن الماكرو أردت بها تنبيهكم فقط لأهمية الماكرو و من يريد أن يتعمق أكثر من ذلك فعليه أن يقرأ ملفات المساعدة الموجودة فى برامج الأوفيس عن الفيجوال بيسك فور أبليكشن و المصدر الثانى البحث فى الانترنت عن المعلومات التى تتعلق بذلك الموضوع الطريقة الثالثة أن تسجل ماكرو بما تريد فعله و تقوم بتعديله كيفما شئت و اعلموا أن التجربة و الخطأ خير معلم و بالرغم من أننى درست لغة السى و ليست لغة الفيجوال بيسك إلا أن ذلك لم يمنعنى من انجاز شوط كبير فى التعامل مع الماكرو و نصيحة لإخوانى بدلا من انفاق الساعات الطويلة فى اللعب أو الدردشة التى لا طائل من ورائها يمكن تخصيص و لو وقت صغير لإجادة تقنيات الحاسب لننفع أنفسنا أولا و أمتنا العربية و الاسلامية مرة ثانية و لا تنسونى من صالح دعائكم
http://img181.imageshack.us/img181/103/macrooffice 00013sh.jpg
أسهل طريقة لإنشاء ماكرو هى تسجيله و سنأخذ مثالا بسيطا لماكرو يقوم مثلا بإلغاء نص من نقطة الإدراج إلى نهاية السطر قم أولا بفتح وثيقة وورد مكتوب بها بعض العبارات ثانيا قم بوضع مؤشر الكتابة فى أى مكان من السطر ثم اتيع الصور
http://img181.imageshack.us/img181/598/macrooffice 00026kj.jpg
http://img181.imageshack.us/img181/3533/macrooffic e00035ji.jpg
http://img181.imageshack.us/img181/158/macrooffice 00040nf.jpg
انقر هنا لمشاهدة لقطة فيديو تشرح ما سبق (http://www.badongo.com/vid/101221)
بالطبع هذا ماكرو صغير يقوم بإلغاء النص من نقطة الإدراج حتى نهاية السطر و أخذناه كمثال توضيحى لكيفية تسجيل الماكرو و يمكنك تسجيل ما تشاء من ماكروات تؤدى عمليات أعقد من ذلك بكثير لكن لاحظ شيئا مهما أن الماكرو لا يقوم بتسجيل نقرات الماوس بل يسجل فقط الضربات على لوحة المفاتيح
سنأخذ مثالا آخر سهل يمكننا من تشغيل أى برنامج من داخل الورد و سنقوم بكتابته بأنفسنا من قائمة ( أدوات ) اختر ( ماكرو ) ثم ( محرر الفيجوال بيسك ) كما فى الصورة التالية
http://img181.imageshack.us/img181/9490/macrooffic e00057fa.jpg
أو يمكنك الضغط على alt + f11 من لوحة المفاتيح فتظهر النافذة التالية
http://img181.imageshack.us/img181/6161/macrooffic e00064xo.jpg
داخل تلك النافذة اكتب ما يلى
Sub calc ( )
!!!!! "E:\!!!!!!S\system32\calc.exe" '4
End Sub
كما نلاحظ يتكون ذلك الماكرو من عدة أسطر يجب أن يبدأ كل ماكرو بكلمة Sub متبوعة باسم الماكرو و هنا calc و ينتهى الماكرو دائما بعبارة End Sub و السطر أو السطور بينهما نكتب بينهما الأوامر البرمجية و هى فى مثالنا الحالى
!!!!! "E:\!!!!!!S\system32\calc.exe" '4
تستطيع طبعا كتابة مسار أى برنامج تريد تشغيله .و لا تنسى بعد كتابة الماكرو أن تقوم بحفظه . حسنا الآن تجريب الماكرو فى برنامج الورد من قائمة (أدوات ) اختر ( ماكرو ) ثم ( وحدات ماكرو )
http://img181.imageshack.us/img181/2083/macrooffic e00073fc.jpg
كما نلاحظ فى الصورة السابقة يمكن تنفيذ الماكرو أو تحريره أو حذفه إلخ
دعونا نتعرف على طريقة أسهل تمكننا من تشغيل الماكرو بنقرة زر فى برنامج الورد اضغط القائمة ( أدوات ) ثم اختر (تخصيص ) ستظهر النافذة الموجودة فى الصورة التالية من يمين النافذة اختر ( وحدات ماكرو ) ستظهر وحدات الماكرو المخزنة فى حاسوبك اسحبها بزر الفأرة الأيسر و ضعه على أى شريط من الشرائط كما فى الصورة
http://img181.imageshack.us/img181/1552/macrooffic e00087xw.jpg
اضغط هنا لتحميل ملف فيديو يشرح الفقرة السابقة (http://www.badongo.com/vid/101220)
كما لاحظنا أن قوة الماكرو فى تطبيقات الأوفيس تعتمد على الإلمام بلغة الفيجوال بيسك فكلما تعمقنا فى تلك اللغة كلما استطعنا أن نصنع وحدات ماكرو أكثر احترافا و لكن دعونا نأخذ فكرة بسيطة دون الدخول فى تفاصيل كثيرة كتابة وحدات الماكرو تعتمد على البرمجة بالكائنات حيث يتعامل مع البيانات على إنها كائنات 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 = Active!!!!!!!!.Tables.Add(Selection.Range, iRows, iColumns)
myTable.AutoFormat Format:=wdTableFormatColorful3
End Sub
يفضل نقل السطور السابقة من الصورة التالية حتى لا يحدث خطأ
http://img181.imageshack.us/img181/7747/macrooffic e00097su.jpg
فى السطر الثانى و الثالث نقوم بالإعلان عن وجود ثلاث كائنات هم الأعمدة و الصفوف و الجدول نفسه
فى السطر الرابع أقوم بإظهار نافذة تسأل المستخدم عن عدد الصفوف
فى السطر الخامس نظهر نافذة تسألنا عن عدد الأعمدة
فى السطر السادس نقوم بإنشاء الجدول بناء على الأرقام التى أدخلها المستخدم
السطر السابع نقوم بتنسيق الجدول و لاحظ الرقم 3 المكتوب غيره برقم 2 مرة و رقم 4 مرة أخرى ستحصل على شكل مختلف فى كل مرة
السطر الأخير نقوم فيه بإنهاء الماكرو
جرب تنفيذ تلك الخطوات و شاهد النتيجة بنفسك
انقر هنا لمشاهدة ملف فيديو (http://www.badongo.com/vid/101222)
بالطبع تلك كانت مقدمة بسيطة عن الماكرو أردت بها تنبيهكم فقط لأهمية الماكرو و من يريد أن يتعمق أكثر من ذلك فعليه أن يقرأ ملفات المساعدة الموجودة فى برامج الأوفيس عن الفيجوال بيسك فور أبليكشن و المصدر الثانى البحث فى الانترنت عن المعلومات التى تتعلق بذلك الموضوع الطريقة الثالثة أن تسجل ماكرو بما تريد فعله و تقوم بتعديله كيفما شئت و اعلموا أن التجربة و الخطأ خير معلم و بالرغم من أننى درست لغة السى و ليست لغة الفيجوال بيسك إلا أن ذلك لم يمنعنى من انجاز شوط كبير فى التعامل مع الماكرو و نصيحة لإخوانى بدلا من انفاق الساعات الطويلة فى اللعب أو الدردشة التى لا طائل من ورائها يمكن تخصيص و لو وقت صغير لإجادة تقنيات الحاسب لننفع أنفسنا أولا و أمتنا العربية و الاسلامية مرة ثانية و لا تنسونى من صالح دعائكم