المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : 15 - وحدات الماكرو



MaX2arab
02-12-2007, 05:10 PM
وحدات الماكرو

إذا كنت تؤدي إحدى المهام بشكل متكرر في Microsoft Excel، يمكنك أتمتة هذه المهمة باستخدام ماكرو. يعد الماكرو سلسلة من الأوامر والدالات التي يتم تخزينها في وحدة نمطية من Microsoft Visual Basic ويمكن تشغيله كلما احتجت إلى تنفيذ المهمة. على سبيل المثال، إذا كنت تقوم بإدخال سلاسل نصية طويلة في الخلايا غالباً، يمكنك إنشاء ماكرو ليقوم بتنسيق تلك الخلايا بحيث يتم التفاف النص.
تسجيل وحدات الماكرو عند تسجيل ماكرو، يقوم Excel بتخزين معلومات كل خطوة تتخذها أثناء أداء سلسلة الأوامر. يمكنك بعد ذلك تشغيل الماكرو لتكرار الأوامر أو إعادة قراءتها. إذا حدث خطأ أثناء تسجيل الماكرو، يتم تسجيل التصحيحات التي تقوم بإجرائها أيضاً. يقوم Visual Basic بتخزين كل وحدة ماكرو في وحدة نمطية جديدة مرفقة بالمصنف.

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

تأمين الماكرو يوفر Excel عناصر حماية ضد الفيروسات التي يمكن نقلها عبر وحدات الماكرو. إذا كنت تشارك الآخرين في وحدات ماكرو، يمكنك أن تصدر شهادات للماكرو عن طريق التوقيع الرقمي وذلك ليتمكن المستخدمون الآخرون من التحقق من صحة كونها من مصدر موثوق به. كلما تفتح مصنفاً يحتوي على وحدات ماكرو، يمكنك التحقق من صحة مصدرها قبل أن تقوم بتمكينها.

إنشاء ماكرو
1. من قائمة أدوات، اختر ماكرو ثم انقر فوق تسجيل ماكرو جديد.
2. في المربع اسم الماكرو، أدخل اسماً للماكرو.
ملاحظات
o يجب أن يكون الحرف الأول في اسم الماكرو حرفاً أبجدياً. ويمكن للأحرف الأخرى أن تكون حروفاً أبجدية، أو أرقاماً، أو تسطيراً. ولا يسمح باستخدام المسافات في اسم الماكرو؛ ويعمل التسطير أسفل السطر كفاصل بين الكلمات.
o لا تقم باستخدام اسم ماكرو يكون مرجعاً لخلية أيضاً و إلا قد تتلقى رسالة خطأ للإعلام بأن اسم الماكرو غير صالح.
3. إذا أردت تشغيل الماكرو بالضغط على أحد مفاتيح اختصار لوحة المفاتيح، أدخل حرفاً في المربع مفتاح الاختصار. يمكنك استخدام CTRL+ الحرف (للأحرف الصغيرة) أو CTRL+SHIFT+ الحرف (للأحرف الكبيرة)، حيث يكون الحرف هو أي مفتاح يمثل الحرف على لوحة المفاتيح. لا يمكن أن يكون حرف مفتاح الاختصار الذي تستخدمه رقماً أو حرفاً خاصاً مثل @ أو #.
ملاحظة سوف يبطل مفتاح الاختصار أية مفاتيح اختصار افتراضية مناظرة في Microsoft Excel عندما يكون المصنف الذي يتضمن الماكرو مفتوحاً.
4. ضمن المربع تخزين الماكرو في، انقر فوق الموقع الذي تريد تخزين الماكرو به.
إذا أردت توفير إحدى وحدات الماكرو كلما قمت باستخدام Excel، حدد مصنف الماكرو الشخصي .
5. إذا أردت تضمين وصفاً للماكرو، قم بكتابته في المربع الوصف.
6. انقر فوق موافق.
7. قم بتنفيذ الإجراءات التي تريد تسجيلها.
8. ضمن شريط الأدوات إيقاف التسجيل، انقر فوق إيقاف التسجيل.

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

تشغيل ماكرو من زر أو عنصر تحكم رسومي
1. انقر فوق الزر أو عنصر التحكم الرسومي بحيث تظهر مقابض التحجيم.
2. بعد تحديد الكائن الرسومي، انقر بزر الماوس الأيمن فوق أحد مقابض التحجيم للزر أو الكائن الرسومي لعرض قائمة الاختصار.
3. ضمن قائمة الاختصار، انقر فوق تعيين ماكرو.
4. قم بأحد الإجراءات التالية:
o لتعيين ماكرو موجود للزر أو الكائن الرسومي، أدخل اسم الماكرو في المربع اسم الماكرو، ثم انقر فوق موافق.
o لتسجيل ماكرو جديد لتعيينه إلى الكائن الرسومي المحدد، انقر فوق تسجيل. عندما تنتهي من تسجيل الماكرو، انقر فوق إيقاف التسجيل ضمن شريط الأدوات إيقاف التسجيل.
o لكتابة ماكرو جديد في محرر Visual Basic، انقر فوق جديد. لتحرير ماكرو موجود، انقر فوق اسم الماكرو في المربع اسم الماكرو، ثم انقر فوق تحرير.
ملاحظة إذا قمت بتعين ماكرو إلى زر أو كائن آخر يتم استعماله بالفعل كارتباط تشعبي، يتم حذف معلومات الارتباط التشعبي. يؤدي النقر فوق الزر أو الكائن بعد ذلك إلى تشغيل الماكرو بدلاً من الارتباط التشعبي.

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

تحرير ماكرو
قبل تحرير الماكرو، يجب أن تكون معتاداً على العمل بمحرر Visual Basic. حيث يمكن استخدام محرر Visual Basic لكتابة وتحرير وحدات الماكرو المرفقة بمصنفات Microsoft Excel.
1. ضمن القائمة أدوات، أشر إلى ماكرو، ثم انقر فوق وحدات الماكرو.
2. أدخل اسماً للماكرو في المربع اسم الماكرو.
3. انقر فوق تحرير.

حذف ماكرو
1. افتح المصنف الذي يحتوي على الماكرو الذي تريد حذفه.
2. ضمن القائمة أدوات، أشر إلى ماكرو، ثم انقر فوق وحدات الماكرو.
3. ضمن القائمة وحدات ماكرو في، انقر فوق هذا المصنف.
4. ضمن المربع اسم الماكرو، انقر فوق اسم الماكرو الذي تريد حذفه.
5. انقر فوق حذف.



مثال لماكرو لتنسيق خلايا نقوم بتحديدها :
Sub تنسيق_خلايا()
' اختصار لوحة المفاتيح: Ctrl+f
Selection.NumberFormat = "@"
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.ReadingOrder = xlContext
End With
With Selection.Font
.Name = "Andalus"
.FontStyle = "اسود عريض"
.Size = 12
End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Interior
.ColorIndex = 19
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End Sub

خالد القدس
01-10-2008, 04:00 PM
درس رائع استفدت منه كثيرا
بارك الله فيك وجزاك خيرا
:good:

islamsamy
29-05-2009, 07:39 PM
بارك الله فيك ايها ............الرجل الاكثر من الرائع
احيك على مجهودك الرائع بالمنتدى
اشكرك بشده

nadeef
14-07-2010, 05:12 AM
الاخ / الفاضل

السلام عليكم و رحمة الله تعالى و بركاته

ارجو ان تفيدني بشرح و افي عن طريقة عمل ارتباط تشعبي في اكسل 2007 لاوراق عمل مخفية

http://file7azm.info/do.php?img=807