اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

رابط هذا التعليق
شارك

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

كما شرح اخى محمد صالح ان الكود بدايته 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

وهو مسجل

رابط هذا التعليق
شارك

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

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

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

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

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

عيد مصطفى

رابط هذا التعليق
شارك

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

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

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

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

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

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

تم تعديل بواسطه فضل 1
رابط هذا التعليق
شارك

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

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


Selection.MergeCells = True

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

Selection.MergeCells = False

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

Selection.MergeCells = Not Selection.MergeCells

  • Like 1
رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

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

اخي الفاضل

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

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

مثال

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

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


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

    ActiveWindow.SelectedSheets.Visible = False

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

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

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

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

والله اعلم

رابط هذا التعليق
شارك

السلام عليكم

اخي عبد الله

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

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

الكود


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

رابط هذا التعليق
شارك

السلام عليكم

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

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

====

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

السلام عليكم

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

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

====

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

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

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

رابط هذا التعليق
شارك

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

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

والسؤال هو:

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

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

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

  • Like 1
رابط هذا التعليق
شارك


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

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

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

اخي سعد عابد

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

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

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

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

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

استخدام Range و Cells

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

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

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

هذا مابجعبتي

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

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

تحياتى

سعد عابد

رابط هذا التعليق
شارك

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

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

والسؤال هو:

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

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

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

السلام عليكم

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

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

  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

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

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

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

والى الامام

متابع بصمت

رابط هذا التعليق
شارك

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

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

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

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

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

يمكن تسجيل الماكرو من تبويب المطور 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

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

========

وفي الأخير

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

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

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

  • Like 2
رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
×
×
  • اضف...

Important Information