أضف المزيد من القوة إلى تطبيقات الأوفيس

[ahmdatef]

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


أسهل طريقة لإنشاء ماكرو هى تسجيله و سنأخذ مثالا بسيطا لماكرو يقوم مثلا بإلغاء نص من نقطة الإدراج إلى نهاية السطر قم أولا بفتح وثيقة وورد مكتوب بها بعض العبارات ثانيا قم بوضع مؤشر الكتابة فى أى مكان من السطر ثم اتيع الصور






انقر هنا لمشاهدة لقطة فيديو تشرح ما سبق

بالطبع هذا ماكرو صغير يقوم بإلغاء النص من نقطة الإدراج حتى نهاية السطر و أخذناه كمثال توضيحى لكيفية تسجيل الماكرو و يمكنك تسجيل ما تشاء من ماكروات تؤدى عمليات أعقد من ذلك بكثير لكن لاحظ شيئا مهما أن الماكرو لا يقوم بتسجيل نقرات الماوس بل يسجل فقط الضربات على لوحة المفاتيح
سنأخذ مثالا آخر سهل يمكننا من تشغيل أى برنامج من داخل الورد و سنقوم بكتابته بأنفسنا من قائمة ( أدوات ) اختر ( ماكرو ) ثم ( محرر الفيجوال بيسك ) كما فى الصورة التالية



أو يمكنك الضغط على alt + f11 من لوحة المفاتيح فتظهر النافذة التالية



داخل تلك النافذة اكتب ما يلى

Sub calc ( )
****l "E:\WINDOWS\system32\calc.exe" '4
End Sub

كما نلاحظ يتكون ذلك الماكرو من عدة أسطر يجب أن يبدأ كل ماكرو بكلمة Sub متبوعة باسم الماكرو و هنا calc و ينتهى الماكرو دائما بعبارة End Sub و السطر أو السطور بينهما نكتب بينهما الأوامر البرمجية و هى فى مثالنا الحالى
****l "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 = Active****************.Tables.Add(Selection.Range, iRows, iColumns)
myTable.AutoFormat Format:=wdTableFormatColorful3
End Sub

يفضل نقل السطور السابقة من الصورة التالية حتى لا يحدث خطأ



فى السطر الثانى و الثالث نقوم بالإعلان عن وجود ثلاث كائنات هم الأعمدة و الصفوف و الجدول نفسه
فى السطر الرابع أقوم بإظهار نافذة تسأل المستخدم عن عدد الصفوف
فى السطر الخامس نظهر نافذة تسألنا عن عدد الأعمدة
فى السطر السادس نقوم بإنشاء الجدول بناء على الأرقام التى أدخلها المستخدم
السطر السابع نقوم بتنسيق الجدول و لاحظ الرقم 3 المكتوب غيره برقم 2 مرة و رقم 4 مرة أخرى ستحصل على شكل مختلف فى كل مرة
السطر الأخير نقوم فيه بإنهاء الماكرو
جرب تنفيذ تلك الخطوات و شاهد النتيجة بنفسك

انقر هنا لمشاهدة ملف فيديو

بالطبع تلك كانت مقدمة بسيطة عن الماكرو أردت بها تنبيهكم فقط لأهمية الماكرو و من يريد أن يتعمق أكثر من ذلك فعليه أن يقرأ ملفات المساعدة الموجودة فى برامج الأوفيس عن الفيجوال بيسك فور أبليكشن و المصدر الثانى البحث فى الانترنت عن المعلومات التى تتعلق بذلك الموضوع الطريقة الثالثة أن تسجل ماكرو بما تريد فعله و تقوم بتعديله كيفما شئت و اعلموا أن التجربة و الخطأ خير معلم و بالرغم من أننى درست لغة السى و ليست لغة الفيجوال بيسك إلا أن ذلك لم يمنعنى من انجاز شوط كبير فى التعامل مع الماكرو و نصيحة لإخوانى بدلا من انفاق الساعات الطويلة فى اللعب أو الدردشة التى لا طائل من ورائها يمكن تخصيص و لو وقت صغير لإجادة تقنيات الحاسب لننفع أنفسنا أولا و أمتنا العربية و الاسلامية مرة ثانية و لا تنسونى من صالح دعائكم
قمت بعمل كتاب الكترونى يتناول الشرح السابق مع ملفات الفيديو و بعض الأمثلة العملية المفيدة التى لم ترد فى الموضوع حجم الكتاب 2 ميجا تقريبا يمكن تحميله من أى من الروابط التالية


http://www.bigupload.com/d=4636E611


http://www.mooload.com/new/file.php?...339590/111.rar

http://snaggys.com/download.php?id=8E94EC71


http://www.yousendit.com/transfer.ph...7AC21F22F56C38

http://www7.spread-it.com/dl.php?id=...85ed49c8162409

http://www.sendspace.com/file/cij0ng

http://www.9q9q.net/index.php?f=nJj10ZUQ

http://www.4shared.com/file/2410323/b3ffc8c9/111.html

http://www.badongo.net/file/1025741

http://rapidshare.de/files/25253566/111.rar.html

http://www.uploading.com/?get=IVNXPC2B

[جرح الزمن]

يعطيك العافية اخوي


مجهود رائع


دمت بخير

[ahmdatef]

اقتباس   المشاركة الأصلية كتبت بواسطة جرح الزمن يعطيك العافية اخوي مجهود رائع دمت بخير

شرف لى مرورك بالموضوع جزاك الله خيرا

[شموع الحب]

يعطيك ربي الف عافية اخي ahmdatef

[ahmdatef]

اقتباس   المشاركة الأصلية كتبت بواسطة شموع الحب يعطيك ربي الف عافية اخي ahmdatef

شكرا على مرورك الكريم