logo

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



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





13-03-2018 02:06 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 194
المشاركات : 387
الدولة : مصر
الجنس :
تاريخ الميلاد : 15-2-1986
الدعوات : 2
قوة السمعة : 2972
الاعجاب : 4
موقعي : زيارة موقعي
الدرس الرابع من سلسة دروس vba اكسيل
بعنوان

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


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

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</li>
  • مايكروسوفت إكسل 2010
    من القائمة Customize Ribbon نقوم بتفعيل الأمر Developer على الجانب الأيمن من شاشة إعدادت البرنامج
    Add-VBA-Code-2-your-workbook-12</li>

بعد تفعيل القائمة 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</li>
  • ملف الإكسل This Workbook</li>
  • وحدة نمطية Module</li>
  • يوزر فورم User Form</li>
  • Class Module</li>

لإضافة الكود في أحد المواضع (الكائنات 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</pre>


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


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


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


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


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







look/images/icons/i1.gif الدرس الرابع من سلسة دروس vba اكسيل بعنوان إضافة أكواد الـ VBA في ملف الإكسل
  13-03-2018 03:00 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36752
الاعجاب : 184
بارك الله فيك أخي الحبيب عبد الجيد وجزاك الله خير الجزاء

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




look/images/icons/i1.gif الدرس الرابع من سلسة دروس vba اكسيل بعنوان إضافة أكواد الـ VBA في ملف الإكسل
  13-03-2018 03:04 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1824
الجنس :
الدعوات : 21
قوة السمعة : 20034
الاعجاب : 12
موقعي : زيارة موقعي

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




توقيع :الصقر

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


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

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




look/images/icons/i1.gif الدرس الرابع من سلسة دروس vba اكسيل بعنوان إضافة أكواد الـ VBA في ملف الإكسل
  16-03-2018 03:38 مساءً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 820
الجنس :
تاريخ الميلاد : 14-10-1973
الدعوات : 79
قوة السمعة : 8468
الاعجاب : 12
بارك الله فيك أستاذى / عبد الجيد
وجزاكم الله خيرا على هذا المجهود العظيم
متواصلين معك ومتابعين إن شاء الله
دوس شويه فى VBA




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

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




look/images/icons/i1.gif الدرس الرابع من سلسة دروس vba اكسيل بعنوان إضافة أكواد الـ VBA في ملف الإكسل
  17-03-2018 09:31 صباحاً   [6]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36752
الاعجاب : 184
المشاركة الأصلية كتبت بواسطة: YasserKhalil بارك الله فيك أخي الحبيب عبد الجيد وجزاك الله خير الجزاء

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




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

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




look/images/icons/i1.gif الدرس الرابع من سلسة دروس vba اكسيل بعنوان إضافة أكواد الـ VBA في ملف الإكسل
  18-03-2018 06:37 صباحاً   [8]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36752
الاعجاب : 184
بارك الله فيك أخي الحبيب عبد الجيد وجعله الله في ميزان حسناتك يوم القيامة .. قووووووول آمين يا عبده 111




look/images/icons/i1.gif الدرس الرابع من سلسة دروس vba اكسيل بعنوان إضافة أكواد الـ VBA في ملف الإكسل
  18-03-2018 08:08 صباحاً   [9]
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 194
المشاركات : 387
الدولة : مصر
الجنس :
تاريخ الميلاد : 15-2-1986
الدعوات : 2
قوة السمعة : 2972
الاعجاب : 4
موقعي : زيارة موقعي
المشاركة الأصلية كتبت بواسطة: YasserKhalil بارك الله فيك أخي الحبيب عبد الجيد وجعله الله في ميزان حسناتك يوم القيامة .. قووووووول آمين يا عبده 111
المشاركة الأصلية كتبت بواسطة: YasserKhalil بارك الله فيك أخي الحبيب عبد الجيد وجعله الله في ميزان حسناتك يوم القيامة .. قووووووول آمين يا عبده 111
اللهم آمييين
نحن وانتم ان شاء الله





اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كنترول أبي الحسن للصف الرابع والخامس والسادس الإبتدائي – إصدار (9) لسنة 2021م أباالحسن
7 2010 رغد سامح
سلسلة تعليم بور كويري الجزء الرابع جلب بيانات من نطاق أو من جدول mmagedmemo
5 1254 محمد حسن المحمد
الفيديو الرابع والثمانون من سلسلة تعلم اكسس معي - من الصفر نبدأ - الاستاذ محمد جابر escimo10000
0 858 escimo10000
الفيديو الرابع والسبعون - من سلسلة تعلم اكسس معي - من الصفرنبدأ - الاستاذ محمد جابر escimo10000
0 491 escimo10000
الفيديو الرابع والستون - من سلسلة تعلم اكسس معي - من الصفر نبدأ - الاستاذ محمد جابر escimo10000
0 535 escimo10000

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









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

الساعة الآن 10:42 AM