دورة شرح الفيجول بيسك للتطبيقات VBA

[أ / محمد صالح]

كما يمكنك استعمال هذا البرنامج

youtubedownloader

[AbedElkader]

الف شكر اخي العزيز عبد الله المجرب على الشرح الوافي الكافي , ولكن لي سؤال ,,, كيف يمكن تكرار المايكرو الواحد عدة مرات وهل يمكن تسجيل مايكرو يقوم بالعملية العكسية اي مسح ما قام به المايكرو الأول ؟!

[محمد يحياوي]

الاساتذة الافاضل

كما شرح اخى محمد صالح ان الكود بدايته sub ونهايته end sub()

السؤال المطروح ::-

1- متى يبدا الكود sub puplic , sub private

2- متى يضاف فى البداية Option Explicit

3- متى الجاء لتعريف المتغيرات قبل ان اكتب بداية الكود sub saad()

لا تستعجل اخي سعد

احنا ماشيين حبه حبه وسنصل بإذن الله الى هذه المصطلحات

الان الموضوع يخص الماكرو وتسجيله

انا مع راي اخي ابو احمد الرجاء عدم استعجال دروس الدورة الى دروس متقدمة و لناخذ في الحسبان ان مقياس الدورة هم المبتدؤون

بالنسبة لطلب اخونا دغيدي يمكن عمل ذلك يدويا بالدخول الى مجلد C:\Documents and Settings\Administrator\Local Settings\Temporary Internet Files

و ستجد الملف هناك

و اذا كنت تستعمل الموزيل ففي هذا الرابط

C:\Documents and Settings\Administrator\Local Settings\Application Data\Mozilla\Firefox\Profiles\8b4fi0ix.default\Cache

[عبدالله المجرب]

الف شكر اخي العزيز عبد الله المجرب على الشرح الوافي الكافي , ولكن لي سؤال ,,, كيف يمكن تكرار المايكرو الواحد عدة مرات وهل يمكن تسجيل مايكرو يقوم بالعملية العكسية اي مسح ما قام به المايكرو الأول ؟!

اخي الفاضل هناك شروط للتكرار (لان استمرار التكرار لن يتوقف الميكرو فاذا وضعت شرط لوقف التكرار فيمكن عمل هذا الشيئ والله اعلم)

==

بالنسبة للعملية العكسية سيصبح الكود

Sub Macro1()

'

' Macro1 ماكرو

'

'

    Range("A1:G10").Select

    With Selection.Interior

	    .Pattern = xlNone

	    .TintAndShade = 0

	    .PatternTintAndShade = 0

    End With

    Range("H1").Select

End Sub

وهو مسجل

[AbedElkader]

بارك الله فيك اخي العزيز ابو احمد

.. والمايكرو يمكن به عمل اي شيئ مثل نقل بيانات وترحيل وشطب وتلوين وتنسيق و ...و....و.................... اي شيئ اخر ,,,, هلى هذا صحيح ؟

[Eid Mostafa]

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

كمساهمة منى فى إثراء هذا الموضوع

أقدم لكم برنامج 6.07 Internet Download Manager Final Retail Silent Instal

سوف يساعدكم كثيراً فى تنزيل أى فيديو.

الرابط : http://www.rapidleech2day.blogspot.com/

عيد مصطفى

[فضل حسين]

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

بارك الله فيكم جميعا وجزاكم الله كل خير . موضوع مميز وسوف نستفيد منه كثيرا ان اشاء الله وجعله فى ميزان حسناتكم جميعا .

اخى الفاضل المايسترو

بعد التحية برجاء ملفات الاكسل يكون نسخه منها على اوفيس 2003 حتى لانحرم من مشاهدة هذه الاعمال الرائعة لاننى بعمل على اوفيس 2003

ارجوك يامايسترو تلبية طلبى هذا لاستمتع باعمالكم

الف الف الف شكر

تم تعديل نوفمبر 27, 2011 بواسطه فضل 1

[محمد يحياوي]

الف شكر اخي العزيز عبد الله المجرب على الشرح الوافي الكافي , ولكن لي سؤال ,,, كيف يمكن تكرار المايكرو الواحد عدة مرات وهل يمكن تسجيل مايكرو يقوم بالعملية العكسية اي مسح ما قام به المايكرو الأول ؟!

اضافة لما تفضل به اخي ابو احمد نعطي مثالا على ذلك : ... اذا اردنا دمج عدة خلايا فان الماكرو سيكون بعد الاختصار

Selection.MergeCells = True

ثم نفك الدمج بواسطة هذا الماكرو ...

Selection.MergeCells = False

لذلك يمكن دمج الماكرووين في ماكرو واحد يقوم بالعمل و عكسه اي الدمج و فك الدمج في نفس الامر باستعمال هذا اماكرو المعدل

Selection.MergeCells = Not Selection.MergeCells

[AbedElkader]

الاخ الكريم ابو احمد والاخوة الاساتذة اصحاب الخبرة , نرجوا منكم توضيح فيما يمكن استخدام المايكرو(مثال او اكثر من الامثلة المعقدة ) وهل برمجة VBA تعتمد على المايكروا ام هي اوسع من ذلك بكثير ؟

[عبدالله المجرب]

الاخ الكريم ابو احمد والاخوة الاساتذة اصحاب الخبرة , نرجوا منكم توضيح فيما يمكن استخدام المايكرو(مثال او اكثر من الامثلة المعقدة ) وهل برمجة VBA تعتمد على المايكروا ام هي اوسع من ذلك بكثير ؟

اخي الفاضل

الميكرو يتم تسجيله للقيام بحفظ أوامر قمت انت بالقيام بها

ويمكن ان يستفاد من تسجيل الميكرو في معرفة مسميات الاوامر بلغة الفيجوال بيسك

مثال

لو قمت بعمل تسجيل ميكرو لاخفاء ورقة عمل

ستحصل على الكود التالي

Sheets("ورقة2").Select

    ActiveWindow.SelectedSheets.Visible = False

ويمكن الاستفادة من هذا في معرفة ان اخفاء الاوراق ياخذ القيمة False في الامر Visible

لذا يمكنك ان تخفي عدد من الاوراق دفعة واحدة باستخدام حلقات التكرار وهذا الامر

وبالنقيض فان الاظهار ياخذ القيمة True لنفس الامر

وهكذا لمختلف الاوامر

والله اعلم

[AbedElkader]

حياك الله على الرد السريع اخي ابو احمد

وهل يمكن تعديل المايكرو وتحريره وحذفه (باختصار مالذي يمكن فعله مع ىالماايكرو)؟

[عادل حنفي]

السلام عليكم

اخي عبد الله

بارك الله فيك و اشجعك علي القيام بهذه الدورة و اتمني ان يكون لدي الوقت للمشاركة معكم

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

الكود

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Cells.Interior.ColorIndex = xlNone

With Selection.Interior

			.Pattern = xlSolid

			.PatternColorIndex = xlAutomatic

			.ColorIndex = 46

	End With

End Sub

رابط للف مرفق به الكود

http://www.4shared.com/file/dBVu_kyH/select.html

[عادل حنفي]

السلام عليكم

اخي بالفعل تم رفع ملف لكن اعتقد ان هناك مشكلة بالموقع لرفع الملفات

عموما هذا رابط للملف

====

تم إضافة الملف للمرفقات

select.rar

[AbedElkader]

السلام عليكم

اخي بالفعل تم رفع ملف لكن اعتقد ان هناك مشكلة بالموقع لرفع الملفات

عموما هذا رابط للملف

====

تم إضافة الملف للمرفقات

السلام عليكم

اخي بالفعل تم رفع ملف لكن اعتقد ان هناك مشكلة بالموقع لرفع الملفات

عموما هذا رابط للملف

====

تم إضافة الملف للمرفقات

وعليكم السلام

اخي الكريم , بارك الله فيك على الكود المميز , ولكن هل يمكن عمل ذلك من خلال مايكرو؟ لان الموضوع الان يتحدث عن المايكرو ,,,, وجزاك الله خيراً

[أ / محمد صالح]

سؤال هذه الحلقة من دورة vba للمشتركين في الدورة

عرفنا في الشرح كيف يتم ربط تنفيذ الماكرو بمفتاح اختصار عند تسجيل الماكرو

والسؤال هو:

كيف يتم تعيين اختصار لماكرو بعد تسجيله؟

................

بإذن الله سيتم احتساب نقاط لمن يجيب أولاً ولمن يقوم بإرفاق الملفات المطلوبة منه كتقييم لأداء المشتركين في الدورة

[AbedElkader]

هل نجيب نحن ام ننتظر الاجابة من طرفكم ؟!

[محمد يحياوي]

الاخ الفاضل محمد صالح السؤال الذي طرحته لايمكن ان يجيب عليه من يتابع الدورة لذلك ارجوا ان تكون الاسئلة من المقرر !!!

[saad abed]

• 
  اخوانى
  هناك سؤال محيرنى كلما تكلمنا عن شئ رد علينا من يقول ان هذا الامر متقدم ان هذا الامر ليس فى مكانة
  ما من مكرو الا ويبدا sub وينتهى end sub قالوا انت مستعجل
  ان افعل والجهاز يترجم الافعال الى اكواد كيف افهمها ومن اين ابدا
  معذرة لعدم استيعابى لخطة الدوره
  او لعدم استيعابى للفيجول عامة فعذرونى واشروح لنا ارجوكم عن تجربة شخصية منكم كيف بدااتم
  

[الـعيدروس]

السلام عليكم

اولا اشكر القائمين على هذه الدورة المميزة على رأسهم عبدالله المجرب

اخي سعد عابد

بالنسبة للماكرو وكتابتة عني انا شخصيا

بدأت بتتبع الأكواد بمعنى مجرد ماانفذ كود من اي موضوع اقوم بقرأته ومادور كل سطر منه

وبعض اكواد اقعد ادور على دالة استخدمت فيه يمكن ياخذ مني اسبوع

هذا الكلام كصفه عامة

واما مابدأت بتعلمه بصفه خاصة

استخدام Range و Cells

و For next ومايليها من أدوات التكرار

والطريقة الاولى هيا تسجيل ماكرو والتعديل عليه

هذه بالاخص سوف تفيدك كثير

هذا مابجعبتي

والسلام عليكم

[معتصم محمد]

الأستاذ الفاضل / سعد عابد

نقدر رغبتك في التعلم وسد الفجوات المعلوماتية، لكن

وفقاً لخطة الدورة فإن الجزء الأول هو لفهم كيفيةإستخدام اداة مسجل الماكرو - وبعيداً عن هذه الدورة فإن اول خطوات الدخول لعالم الأكواد في اي دورة يكون بشرح مسجل الماكرو-

وظيفة هذه المرحلة هو تعلم كيفية تسجيل الماكرو وكيفية استخدام هذا الماكرو.

بينما ما ترغب في معرفته فسوف نتطرق له مع الوقت فمثلاً هناك من لا يعرف اين هو الكود الناشئ عن تسجيل الماكرو ولا ما هو شكل الكود اساساً، فكيف نقوم بالتحدث عن الكود يبدأ ب SUB في حالة الأكواد العادية التي لا تكون نتيجتها قيمة معينة وتبدأ ب Function في حالة كتابة دالة مستحدثة UDF

نحن نرغب فقط في آلا نشتت اذهان من يدخل هذا المجال للمرة الأولى؛ لانه ان تشتت ذهنه فقد لا يُكمل هذه الدورة

لذلك ارجو من الجميع الإلتزام بخطة الدورة وعد الإستفسار عن اي مواضيع خارج النقاط التي تم شرحها (فضلاً لا أمراً)، وفي حالة رغبتك في الإستفسار عن شي خارج اطار الدور فيمكن انشاء موضوع جديد

بالتوفيق للجميع

[saad abed]

استاذ معتصم محمد

ااشكرك على ردك وعلى تفهمك وربما تعجلت

فل تلتمسوا لى العذر لانى احب العلم والتعلم

اشكركم وفقكم الله

بانتظار حتى تصلوا الى ما اصبوا اليه

تحياتى

سعد عابد

[عبدالله المجرب]

سؤال هذه الحلقة من دورة vba للمشتركين في الدورة

عرفنا في الشرح كيف يتم ربط تنفيذ الماكرو بمفتاح اختصار عند تسجيل الماكرو

والسؤال هو:

كيف يتم تعيين اختصار لماكرو بعد تسجيله؟

................

بإذن الله سيتم احتساب نقاط لمن يجيب أولاً ولمن يقوم بإرفاق الملفات المطلوبة منه كتقييم لأداء المشتركين في الدورة

السلام عليكم

سؤال وجيه ومن المقرر

وهذا شرح للطريقة

[أبوعبد الله]

إخواني الأعزاء وأحبابي

أولاً : أرجو أن تسامحوني على تأخري عليكم في مواصلة وإكمال ما بدأه أخي الحبيب عبدالله المجرب ، وأرجو أن تقبلوا مني أجمل التهاني بمناسبة العام الهجري الجديد فكل عام وأنتم بكل خير .

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

وتقبلوا تحياتي وتقديري .

أخوكم ومحبكم أبو عبدالله

الحلقة الثانية.rar

[الـعيدروس]

السلام عليكم

اتمنى ان تكون نتائج هذا الموضوع = إختراق حالة الخوف من كتابة الأكواد ومن التعديل عليها

لاني اشوف بعض الاكواد كالطلاسم لاافهم مها شيئ

واتمنى تعدد الحلول عند التقدم في الدورة

والى الامام

متابع بصمت

[أ / محمد صالح]

بسم الله الرحمن الرحيم

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

مواصلة لما بدأه أخواي عبد الله المجرب وأبو عبد الله

هنا تلخيص لكل ما يخص الماكرو من حيث التسجيل والتعامل بالحذف أو التعديل أو الاستدعاء

................

يمكن تسجيل الماكرو من تبويب المطور developer أو من شريط الحالة status bar

* - لإطهار تبويب المطور في أوفيس 2007:

اضغط على زر الأوفيس ثم خيارات إكسل excel options ثم من التبويب شائع popular اختر "إظهر تبويب المطور في الشريط" Show Developer tab in the Ribbon ثم موافق ok

* - لإطهار تبويب المطور في أوفيس 2010:

اضغط على تبويب ملف file tab ثم خيارات options ثم تخصيص الشريط customize ribbon ثم اختيار المطور developer من القائمة اليمنى ثم موافق ok

* - لإظهر زر تسجيل الماكرو في شريط الحالة status bar إذا لم يكن موجوداً اضغط بزر الفارة الأيمن على شريط الحالة ثم اختر تسجيل ماكرو macro recording

===

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

===

* - ولإيقاف تسجيل الماكرو يمكن استعمال شريط المطور أو شريط الحالة

===

للتعامل مع الماكرو بالتعديل أو الحذف يمكن الوصول لها من خلال الضغط على alt+f11 للوصول لنافذة محرر الفيجوال بيسك أو الضغط على زر الماكروات macros في شريط المطور أو الشغط على alt+f8 من لوحة المفاتيح

ثم نحدد الماكرو المراد تعديله أو حذفه ثم نضغط على زر تعديل edit أو حذف delete

* - ويمكن أيضا حذف الماكرو من شاشة محرر الفيجوال بيسك وذلك بتحديد نص الماكرو بداية من sub إلى end sub ثم الضغط على delete من لوحة المفاتيح (كحذف أي نص عادي)

---

* - لوضع اختصار أو وصف أو تغيير مكان تخزين ماكرو نضغط على خيارات options في نافذة الماكروات بعد تحديد الماكرو المطلوب.

==

لتشغيل الماكرو:

* - يمكنك تشغيل الماكرو من خلال الضغط على الماكروات macros في شريط المطور developer ثم اختيار الماكرو المطلوب ثم الضغط على تشغيل run

أو بالضغط على alt+f8 لظهور نفس النافذة واختيار الماكرو المطلوب ثم الضغط على run

* - أو يمكنك تشغيل الماكرو من داخل شاشة محرر الفيجوال بيسك بالوقوف بالمؤشر داخل الماكرو المطلوب ثم الضغط على f5 من لوحة المفاتيح أو من قائمة run اختر run sub/user form

* - أو يمكنك ربط الماكرو بزر أو بصورة أو بشكل تلقائي وذلك من خلال الضغط بزر الفارة الأيمن على الأداة المطلوب ربطها بماكرو ثم اختيار "تعيين ماكرو" assign macro تظهر نافذة يمكنك اختيار الماكرو المطلوب ربطه ثم موافق ok أو تسجيل ماكرو جديد بالضغط على "تسجيل" record أو كتابة كود ماكرو جديد بالضغط على "جديد" new

* - يمكنك إضافة الماكرو إلى شريط الوصول السريع (الشريط الصغير على يمين زر أوفيس أو تبويب ملف) وذلك من حلال:

الضغط على السهم في نهاية شريط الوصول السريع ثم اختيار "أوامر أكثر" more commands أو الضغط بزر الفارة الأيمن على شريط الوصول السريع أو الشريط ribbon واختيار "تخصيص شريط الوصول السريع" customize quick access tool bar تظهر نافذة الخيارات على تبويب شريط الوصول السريع

نختار من القائمة العلوية اليسرى "اختيار الأوامر من" choose commands from ماكروات macros

تظهر جميع الماكروات افل القائمة اختر منها ما تشاء ثم اضغط على زر إضافة add

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

* - لإضافة الماكرو إلى تبويب جديد في الشريط (خاص بأوفيس 2010):

نضغط بزر الفارة الأيمن على شريط الوصول السريع أو الشريط ribbon واختيار "تخصيص الشريط" customize the ribbon

ثم نختار من القائمة اليسرى العلوية الماكروات macros ثم ننشئ تبويباً جديداً من خلال الضغط على زر "تبويب جديد" new tab اسفل الجزء الأيمن من النافذة ثم تحديد الماكرو المطلوب من اليسار والضغط على زر إضافة add

وبنفس الطريقة يمكنك تعديل اسم التبويب أوالماكرو وأيقونته

========

وفي الأخير

لكم مني كل التمنيات بالتوفيق

ولا ينقصني سوى دعاؤكم

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