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



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





الدرس الرابع من سلسة دروس vba اكسيل بعنوان إضافة أكواد الـ VBA في ملف الإكسل

الدرس الرابع من سلسة دروس vba اكسيل بعنوان إضافة أكواد الـ VBA في ملف الإكسل إظهار التبويب Developer الإنتقال إلى محر ..



13-03-2018 02:06 مساء
عبدالجيد
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 194
المشاركات : 292
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 15-2-1986
يتابعهم : 93
يتابعونه : 16
قوة السمعة : 1993
الاعجاب : 486
موقعي : زيارة موقعي
 offline 

الدرس الرابع من سلسة دروس vba اكسيل
بعنوان

إضافة أكواد الـ VBA في ملف الإكسل

  • إظهار التبويب Developer
  • الإنتقال إلى محرر الأكواد Visual Basic Editor
  • إضافة الكود و إستخدامه

Add+VBA+Code+2+your+workbook+00

 

إظهار القائمة Developer [ نسختي 2007 و 2010 ]

إذا كانت القوائم الظاهرة لديك لا تشتمل على القائمة Developer فإنك بحاجة لتفعيل أمر إظهار القائمة لأن الوضع الإفتراضي أنها تكون مخفية، ولإظهارها لابد من الوصول لإعدادت البرنامج (الإختصار Alt+F+I)

  • مايكروسوفت إكسل2007
    من القائمة Popular نقوم بتفعيل الإختيار Show Developer Tab in the Ribbon
    Add-VBA-Code-2-your-workbook-11
  • مايكروسوفت إكسل 2010
    من القائمة Customize Ribbon نقوم بتفعيل الأمر Developer على الجانب الأيمن من شاشة إعدادت البرنامج
    Add-VBA-Code-2-your-workbook-12

بعد تفعيل القائمة Developer ستجد أنه أصبح لديك قائمة جديدة كالتالي

Add+VBA+Code+2+your+workbook+01

الإنتقال إلى محرر الأكواد Visual Basic Editor

بعد إظهار القائمة Developer يمكننا الأن الإنتقال لمحرر الأكواد Visual Basic Editor ويختصر في VBE وذلك من خلال الأمر Visual Basic في Developer » Code » Visual Basic أو من خلال إستخدام (الإختصار ALT+F11)

في حالة إستخدامك لنسخة 2003 يمكنك الوصول لل VBE من خلال القائمة Tools » Macro » Visual Basic Editor

بذلك سننتقل لمحرر الأكواد كما في الشكل التالي

Add+VBA+Code+2+your+workbook+02

لا تقلق من هذه الواجهة الجديدة فبإذن الله سيتم إعداد موضوع خاص عن عناصر واجهة ال Visual basic Editor

إضافة الكود و إستخدامه

الأن وصلنا لمحرر الأكواد ولم يتبق لنا إلا إضافة الكود الذي لدينا ومن ثم تشغيله، ولإضافة الكود لابد من التعرف على المواضع التي يمكن إضافة الكود بها

Add+VBA+Code+2+your+workbook+03

  • شيت محدد في الملف Sheet
  • ملف الإكسل This Workbook
  • وحدة نمطية Module
  • يوزر فورم User Form
  • Class Module

لإضافة الكود في أحد المواضع (الكائنات Objects) السابقة نقوم بالنقر المزدوج Double Click عليها ليظهر لنا الموضع الذي سندرج الكود به وهو النافذة Code

لاحظ أن الوضع الإفتراضي للملف في بيئة VBE يشتمل على كائن لكل شيت في الملف Sheet1 , Sheet2 بالإضافة لكائن خاص بالملف ككل وهو ThisWorkbook لكننا هنا لن نُضيف الكود في هذه الكائنات بل سنقوم بإضافتها في كائن مستقل يُسمى بالوحدة النمطية Module.

لإضافة وحدة نمطية Moduleجديدة ننتقل للقائمة Insert ونختار Module بذلك سيتم إضافة Module جديد في الملف الحالي

الأن بالنقرالمزدوج Double Click على الوحدة النمطية الجديدة سيتم تفعيل نافذة الكود Code وبها ندرج الكود المراد إستعماله

Sub UnhideAll()
‘ Unhide all sheets at once
Dim WS As Worksheet
For Each WS In Worksheets
WS.Visible = True
Next
End Sub

الكود السابق يقوم بإظهار جميع الشيتات المخفية Unhide مرة واحدة.

الأن نعود مرة اخرى للإكسل بواسطة الإختصار (alt+q)

لتنفيذ الكود نذهب لمربع الحوار Macros من خلال الضغط على (الإختصار Alt+F8) ثم نقوم بتحديد الكود الذي نريد تشغيله ثم نضعط على Run.

الأن نقوم بحفظ الملف بالإمتداد المناسب الذي يمكننا من حفظ الكود في الملف

  • الإمتداد XLS » إمتداد نسخة 2003 وبه سيتم حفظ كود الماكرو دون حذف الكود
  • الإمتداد XLSX » إمتداد ملف الإكسل الخاص ببنسخة 2007 وما يليها لكن لا يمكن إضافة أكواد في ملف بهذا الإمتداد
  • الإمتداد XLSM » إمتداد خاص بملفات الإكسل التي تشتمل على اكواد وهو أحد الإمتداد الجديدة المصاحبة لنسخة 2007 ومايليها.
  • لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

أثارت هذه المشاركة إعجاب: الصقر، ظفر الله عسكر، محمد الدسوقى، Dreamier، mahmoud ayad،





13-03-2018 03:00 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4003
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 297
قوة السمعة : 11365
الاعجاب : 4042
 offline 
look/images/icons/i1.gif الدرس الرابع من سلسة دروس vba اكسيل بعنوان إضافة أكواد الـ VBA في ملف الإكسل
بارك الله فيك أخي الحبيب عبد الجيد وجزاك الله خير الجزاء

وفي انتظار الملف المرفق للدرس الرابع .. 

أثارت هذه المشاركة إعجاب: عبدالجيد،




13-03-2018 03:04 مساء
مشاهدة مشاركة منفردة [2]
الصقر
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1329
الجنس : ذكر
الدعوات : 11
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 9829
الاعجاب : 2445
 offline 
look/images/icons/i1.gif الدرس الرابع من سلسة دروس vba اكسيل بعنوان إضافة أكواد الـ VBA في ملف الإكسل

جزاكم الله خيرا اخى الكريم استاذ عبدالجيد
فى ميزان حسناتك يارب
142


أثارت هذه المشاركة إعجاب: عبدالجيد،




16-03-2018 10:50 صباحا
مشاهدة مشاركة منفردة [3]
ظفر الله عسكر
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-12-2017
رقم العضوية : 2747
المشاركات : 85
الجنس : ذكر
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 324
الاعجاب : 81
 offline 
look/images/icons/i1.gif الدرس الرابع من سلسة دروس vba اكسيل بعنوان إضافة أكواد الـ VBA في ملف الإكسل
شكرا جزيلا استاذ عبد الجيد اسم على مسمى مبدع
كان اسهل بكثير من الدرس الثالث يلي معلوماته عن المتغيرات ومجالها
اتمنى ان تشرح كم كود بالعربي الفصيح للمبتدئين امثالي بارك الله بك
مثلا الكود المدرج
اتمنى ان تتحملني ربما يكون سؤالي بسيط جدا بالنسبة اليك 
Sub UnhideAll()
‘ Unhide all sheets at once
Dim WS As Worksheet
For Each WS In Worksheets
WS.Visible = True
Next
End Sub

السطر الاول اسم الماكرو اظهر كل الرؤوس
السطر الثاني باعتبار في فاصله لا ينفذ وهو شرح للسطر الاول
السطر الثالث dim للدلالة على وجود متغير اسميناه ws في هذا المصنف 
السطر الرابع من اجل المتغير ws في هذا المصنف ما معنى  Each هنا 
السطر الخامس اظهر المتغير ولو كانت القيمه false  بدل true لكان عما نقول للمتغير لا تظهر المتغير
السطر السادس Next
يعني التالي ما هو المقصود بالتالي 
السطر السابع انهي الماكرو
السؤال كيف عرف انو نحنا اسندنا للمتغير القيمه اظهار الصفحات
اشكرك من الاعماق ربي يزيدك علم ومعرفه وحسنات
عند ذكر المتغير ليه ما ذكرت نوعه هنا مثلا سترينغ او ...
تحياتي لك وتقبل مروري واسئلتي 

 

أثارت هذه المشاركة إعجاب: محمد الدسوقى، عبدالجيد،




16-03-2018 03:38 مساء
مشاهدة مشاركة منفردة [4]
محمد الدسوقى
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 360
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 40
يتابعهم : 7
يتابعونه : 237
قوة السمعة : 2386
الاعجاب : 594
 offline 
look/images/icons/i1.gif الدرس الرابع من سلسة دروس vba اكسيل بعنوان إضافة أكواد الـ VBA في ملف الإكسل
بارك الله فيك أستاذى / عبد الجيد
وجزاكم الله خيرا على هذا المجهود العظيم
متواصلين معك ومتابعين إن شاء الله
دوس شويه فى VBA

أثارت هذه المشاركة إعجاب: ظفر الله عسكر، عبدالجيد،




17-03-2018 08:56 صباحا
مشاهدة مشاركة منفردة [5]
عبدالجيد
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 194
المشاركات : 292
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 15-2-1986
يتابعهم : 93
يتابعونه : 16
قوة السمعة : 1993
الاعجاب : 486
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif الدرس الرابع من سلسة دروس vba اكسيل بعنوان إضافة أكواد الـ VBA في ملف الإكسل
المشاركة الأصلية كتبت بواسطة: ظفر الله عسكر »
شكرا جزيلا استاذ عبد الجيد اسم على مسمى مبدع
كان اسهل بكثير من الدرس الثالث يلي معلوماته عن المتغيرات ومجالها
اتمنى ان تشرح كم كود بالعربي الفصيح للمبتدئين امثالي بارك الله بك
مثلا الكود المدرج
اتمنى ان تتحملني ربما يكون سؤالي بسيط جدا بالنسبة اليك 
Sub UnhideAll()
‘ Unhide all sheets at once
Dim WS As Worksheet
For Each WS In Worksheets
WS.Visible = True
Next
End Sub

السطر الاول اسم الماكرو اظهر كل الرؤوس
السطر الثاني باعتبار في فاصله لا ينفذ وهو شرح للسطر الاول
السطر الثالث dim للدلالة على وجود متغير اسميناه ws في هذا المصنف 
السطر الرابع من اجل المتغير ws في هذا المصنف ما معنى  Each هنا 
السطر الخامس اظهر المتغير ولو كانت القيمه false  بدل true لكان عما نقول للمتغير لا تظهر المتغير
السطر السادس Next
يعني التالي ما هو المقصود بالتالي 
السطر السابع انهي الماكرو
السؤال كيف عرف انو نحنا اسندنا للمتغير القيمه اظهار الصفحات
اشكرك من الاعماق ربي يزيدك علم ومعرفه وحسنات
عند ذكر المتغير ليه ما ذكرت نوعه هنا مثلا سترينغ او ...
تحياتي لك وتقبل مروري واسئلتي 

 

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

أثارت هذه المشاركة إعجاب: ظفر الله عسكر،




17-03-2018 09:31 صباحا
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4003
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 297
قوة السمعة : 11365
الاعجاب : 4042
 offline 
look/images/icons/i1.gif الدرس الرابع من سلسة دروس vba اكسيل بعنوان إضافة أكواد الـ VBA في ملف الإكسل
المشاركة الأصلية كتبت بواسطة: YasserKhalil »
بارك الله فيك أخي الحبيب عبد الجيد وجزاك الله خير الجزاء

وفي انتظار الملف المرفق للدرس الرابع .. 


شكلك نسيت المرفق يا عبده
اتعودنا على المرفق الرائع .. لا تحرمنا منه يا غالي

أثارت هذه المشاركة إعجاب: ظفر الله عسكر،




17-03-2018 01:04 مساء
مشاهدة مشاركة منفردة [7]
عبدالجيد
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 194
المشاركات : 292
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 15-2-1986
يتابعهم : 93
يتابعونه : 16
قوة السمعة : 1993
الاعجاب : 486
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif الدرس الرابع من سلسة دروس vba اكسيل بعنوان إضافة أكواد الـ VBA في ملف الإكسل
المشاركة الأصلية كتبت بواسطة: YasserKhalil »
المشاركة الأصلية كتبت بواسطة: YasserKhalil »
بارك الله فيك أخي الحبيب عبد الجيد وجزاك الله خير الجزاء

وفي انتظار الملف المرفق للدرس الرابع .. 


شكلك نسيت المرفق يا عبده
اتعودنا على المرفق الرائع .. لا تحرمنا منه يا غالي

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

أثارت هذه المشاركة إعجاب: ظفر الله عسكر، YasserKhalil،




18-03-2018 06:37 صباحا
مشاهدة مشاركة منفردة [8]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4003
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 297
قوة السمعة : 11365
الاعجاب : 4042
 offline 
look/images/icons/i1.gif الدرس الرابع من سلسة دروس vba اكسيل بعنوان إضافة أكواد الـ VBA في ملف الإكسل
بارك الله فيك أخي الحبيب عبد الجيد وجعله الله في ميزان حسناتك يوم القيامة .. قووووووول آمين يا عبده 111

أثارت هذه المشاركة إعجاب: عبدالجيد،




18-03-2018 08:08 صباحا
مشاهدة مشاركة منفردة [9]
عبدالجيد
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 194
المشاركات : 292
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 15-2-1986
يتابعهم : 93
يتابعونه : 16
قوة السمعة : 1993
الاعجاب : 486
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif الدرس الرابع من سلسة دروس vba اكسيل بعنوان إضافة أكواد الـ VBA في ملف الإكسل
المشاركة الأصلية كتبت بواسطة: YasserKhalil »
بارك الله فيك أخي الحبيب عبد الجيد وجعله الله في ميزان حسناتك يوم القيامة .. قووووووول آمين يا عبده 111
المشاركة الأصلية كتبت بواسطة: YasserKhalil »
بارك الله فيك أخي الحبيب عبد الجيد وجعله الله في ميزان حسناتك يوم القيامة .. قووووووول آمين يا عبده 111

اللهم آمييين
نحن وانتم ان شاء الله

أثارت هذه المشاركة إعجاب: YasserKhalil،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
الحلقة الرابعة عشر الحلقات التكرارية Eslam Abdullah
4 72 YasserKhalil
لاتوجد مشاكل بعد اليوم - الدرس الرابع :تشغيل قواعد تدقيق الأخطاء أو إيقاف تشغيلها عبدالجيد
5 283 Mohamed Abdullah
الدرس الرابع: من سلسلة الدوال الاكثر شيوعا فى الاكسيل ـ الدالة MATCH عبدالجيد
3 203 بكار للأبد
الدرس الرابع: حل تمرين الدرس الثالث1 عبدالجيد
5 345 الصقر
الحلقة الرابعة VBA Eslam Abdullah
12 316 YasserKhalil

الكلمات الدلالية
الدرس ، الرابع ، سلسة ، دروس ، اكسيل ، بعنوان ، إضافة ، أكواد ، الإكسل ،


 







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



الساعة الآن 12:43 صباحا

أعلن هنا
أعلن هنا
أعلن هنا