مش مهم تكون محترف vba ولكن مهم يكون عندك معلومات عن vba

[إبراهيم ابوليله]

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

اخوانى الافاضل

احيانا نقف امام انفسنا عاجزين عن تقديم المساعده لانفسنا فى ابسط الامور

وذلك لجهلنا وعدم المامنا بالقليل من المعلومات

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

على نفسك من اليوم

وسوف نتناول امثله عمليه حتى تكون الاستفاده اكبر

تقبلو تحياتى

 

[ابولمى]

بارك الله فيك اخي ونحن في انتظارك

[عبد العزيز البسكري]

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

بارك الله فيك أستاذنا الفاضل ابراهيم أبو ليله على الفكرة الّتي هي فعلاً في أكثر من محلّها .. وفّقك الله و سدّد خطاك لما يحبّه و يرضاه

                خالص احتراماتي

                                       

[إبراهيم ابوليله]

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

الدرس الاول

1-Introduction

علشان تستطيع جعل الاكسيل قادرا على التاعمل مع ملفات vba

اتبع الخطوات الاتيه

 

تقبلوا تحياتى

تم تعديل سبتمبر 11, 2015 بواسطه إبراهيم ابوليله

[KHMB]

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

أستاذ إبراهيم

بارك الله فيك وجزاك الله خير

حبذا لو توضح الشرح علي أي اصدار اظنه علي اوفيس 2007 لان الخطوات غير موجوده علي اوفيس 2013

[إبراهيم ابوليله]

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

الدرس الاول

2-RANGE

هنا سوف نتعرف على كيفية الاشاره الى خليه او الى مجموعه من الخلايا

وانا بعتبر ان الدرس ده هو اهم درس يجب البدأ بيه فى تعلم VBA

لان مفيش تطبيق يتم فى VBA بدون الاشاره الى الخلايا تقبلوا تحياتى

[ابولمى]

مازلنا ننتظر اكمال الموضوع :)

[إبراهيم ابوليله]

مازلنا ننتظر اكمال الموضوع :)

اخوانى الافاضل

عزرا على التاخير فى استكمال الدروس ولكن

تعطل الجهاز الخاص بى

والحمد تم الاصلاح

تقبلو تحياتى

 

[ياسر خليل أبو البراء]

أخي الحبيب إبراهيم

مشكور على المجهود الرائع ومتابعينك فخلي بالك متخليش الجهاز يتعطل تاني ..

[عبدالله نبها]

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

أستاذ إبراهيم

بارك الله فيك وجزاك الله خير

طرح مميز ننتظر الاستمرار وفقك الله

[محمد حسن المحمد]

أخي الحبيب إبراهيم

مشكور على المجهود الرائع ومتابعينك فخلي بالك متخليش الجهاز يتعطل تاني ..

السلام عليكم..بردا وسلاما...متابعينكم...مواضيعكم ممتعة..الله يعافيكم.بدأنا مشوار الألف ميل بخطوة...

[إبراهيم ابوليله]

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

اخوانى الافاضل اشكرم على متابعة الموضوع

وعلى الكلمات الجميله

اتمنى ان استطيع تقديم شيئا مفيدا

تقبلوا تحياتى

[محمد حسن المحمد]

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

هذا العمل رائع .وهو مهم بالنسبة للمبتدئين أمثالنا .

فنحن لا نستخف بشيء وإن كان قليلاً فمن الحصى والرمال تتكون الجبال ومن قطرات المياه تجري الأنهار.

كل ما تقدمونه نرجو الله أن يكون بميزان حسناتكم وجزاكم الله خيراً.

تقبل تحياتي ...أما مروري قد يكون مكوثاً فالطالب لا يدرس بالمرور لأنه عابر بل بالمتابعة اللصيقة .فاجعل لنا مكاناً في بحوثك نتابع أعمالك به

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

[إبراهيم ابوليله]

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

هذا العمل رائع .وهو مهم بالنسبة للمبتدئين أمثالنا .

فنحن لا نستخف بشيء وإن كان قليلاً فمن الحصى والرمال تتكون الجبال ومن قطرات المياه تجري الأنهار.

كل ما تقدمونه نرجو الله أن يكون بميزان حسناتكم وجزاكم الله خيراً.

تقبل تحياتي ...أما مروري قد يكون مكوثاً فالطالب لا يدرس بالمرور لأنه عابر بل بالمتابعة اللصيقة .فاجعل لنا مكاناً في بحوثك نتابع أعمالك به

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

اخى محمد

اشكرك على متابعة الموضوع

وبالفعل انا ملاحظ انك متابع جيد

لكل الاعمال الجيده التى تطرح فى المنتدى

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

تقبل تحياتى

 

تم تعديل سبتمبر 14, 2015 بواسطه إبراهيم ابوليله

[إبراهيم ابوليله]

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

الدرس الثالث

3-selection

عمل تحديد للخلايا

وسوف نتناول فى هذه الدرس الاتى

كيفيةالدخول الى محرر الاكواد

كيفية تسمية الماكرو

تحديد خليه واحده

تحديد اكثر من خليه

تحديد نطاق من الخلايا

تحديد نطاق من الخلاياالتى تم اعطائها اسم

تحديد خليه بواسطه السطر والعمود

تحديد خليه تقع ضمن نطاق الخلايا

تحديد خليه بواسطة التحرك

تحديد الاسطر

تحديد الاعمده

تحديد اخر خليه

تحديد الخلايا التى بها بيانات

نسخ البيانات المحدده

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

كيفية الدخول الى محرر الاكواد

وذلك من اجل اضافة كود معين اتبع الصوره 1

ستفتح لك نافذه بيضاء فارغه كما فى الصوره رقم 2

كيفية تسمية الماكرو

لابد ان يبدأ اسم الماكرو ب Sub   وينتهى ب end sub

نقوم باعطاء الماكرو اسم معين وليكن  selection

بالتالى ستجد ان الماكرو المنشأ يكون بهذا الشكل

كما يتضح من الصوره

تحديد خليه واحده

نفترض اننا نريد تحديد الخليه A23

سيكون شكل الكود كالاتى

Sub selection_a23()  
   'تحديد الخليه A23
   Range("A23").Select
End Sub

تحديد اكثر من خليه

نفترض اننا نريد تحديد الخليهa25 وb25

سيكون شكل الكود كالاتى

Sub selection_a25_b25()  
   'تحديد الخليه a25,b25
   Range("A25,B25").Select
End Sub

تحديد نطاق من الخلايا

نفترض اننا نريد تحديد تحديد الخلايا من a27  الى g28

سيكون شكل الكود كالاتى

Sub selection_a27tog28()
   'تحديد نطاق من الخلايا
   Range("A27:g28").Select
End Sub

تحديد نطاق من الخلاياالتى تم اعطائها اسم

نفترض اننا نريد تحديد  الخلايا من a29:g30

سوف نقوم بعمل ذلك من خلال تسمية النطاقات

اتبع الصوره

سيكون شكل الكود كالاتى

Sub select_a29tog30()
   ' تحديد نطاق من الخلاياالتى تم اعطائها اسم
   ' من a29 الى g41
   Range("select_a29tog30").Select
End Sub

تحديد خليه بواسطه السطر والعمود

نفترض اننا نريد

تحديد الخليه الواقعه بين السطر 44 والعمود 4 اى d44

وسيكون شكل الكود كالاتى

Sub selection_cells_r_c()
   ' تحديد الخليه الواقعه بين السطر 44 والعمود 4 اى d44
   Cells(44, 4).Select
End Sub

ملحوظه

بما اننا لم نتطرق الى التعرف على cells

فنعدى عليها نتعرف عليها ببساطه

cells زيها زى range

الفرق بينها وبين range انها تستخدم للاشاره الى خليه واحده فقط

ويكون شكلها الافتراضى كالاتى

Cells(row, Columns).Select

تحديد خليه تقع ضمن نطاق من الخلايا

هنا نفترض اننا لدينا نطاق مكون من مجموعه من الخلايا

من a47:g47

ونريد عند كل مره يتم  الظغط على الزر  يتم تحديد خليه مختلفه

من خلايا النطاق

سيكون شكل الكود كالاتى

Sub selection_rnd()
    'تحديد نطاق من الخلايا التى تقع فى النطاق من a47 الى a57
   'Cells(Int(Rnd * 10) + 47, 1).Select
   ' تحديد خليه تقع ضمن نطاق الخلايا من a47 الى g47
   Cells(47, Int(Rnd * 7) + 1).Select
End Sub

لاحظ ان عدد الاعمده 10 اعمده هى
من a الى g

تحديد خليه بواسطة التحرك

نفترض اننا نريد  تحديد الخليه التى تلى الخليه a51 بمقدار سطرين وفى نفس العمود

سوف نستخدم هنا    offset

سيكون شكل الكود كالاتى

Sub selection_move()
   ' تحديد الخليه التى تلى الخليه a51 بمقدار سطرين وفى نفس العمود
   Cells(51, 1).Offset(2, 1).Select
End Sub

ملاحظه

بما اننا لم نتطرق الى offset

فنتعرف سريعا على كيفيه استخدامها

offset هى عباره عن التحرك لاتجاه معين

الشكل الافتراضى ل offset

Offset(row,columns)

فلو كتب هكذا

Offset(1,2)

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

فمثلا فى مثالنا هنا

Cells(51, 1).Offset(2, 1).Select

فلو حزفنا offset

واصبح الكود بهذا الشكل

Cells(51, 1).Select

فهذا يعنى اننا سوف نقوم بتحديد الخليه a51

ثم حينما نضيف offset ليصبح الكود بهذا الشكل

Cells(51, 1).Offset(2, 1).Select

فهذا يعنى اننا سوف نقوم بتحديد الخليه a51 ثم نتحرك بمقدار سطرين لاسفل اى اننا اصبحنا الان فى السطر 53 ثم التحرك بمقدار عمود واحد لنصبح فى العمود  الثانى

وبما اننا اصبحنا فى السطر 53 والعمود 2 سنجد ان الخليه التى تقع فيهما هى الخليه b53

تحديد الاسطر

نفترض اننا نريد تحديد الاسطر من 53 الى 54

سيكون شكل الكود كالاتى

Sub selection_row()
   ' تحديد الاسطر من 53 الى 54
   Rows("53:54").Select
End Sub

تحديد الاعمده

نفترض اننا نريد تحديد الاعمده من العمود a الى العمودG

سيكون شكل الكود كالاتى

Sub selection_COL()
   ' تحديد الاعمده
   Columns("A:G").Select
End Sub

تحديد اخر خليه

نفترض اننا لدينا مجموعه من الخلايا فى السطر الاول

مملوؤه بالبيانات وان اول خليه بها بيانات هى الخليه a58

ونريد الوصول الى اخر خليه بها بيانات بعد الخليه a58

سيكون شكل الكود كالاتى

 

Sub SELECTLASTCELLS()
' تحديد اخر خليه بها بيانات
Range("A58").End(xlDown).Select
End Sub

تحديد الخلايا التى بها بيانات بداية من خليه معينه

نفترض اننا نريد تحديد الخلايا التى بها بيانات

بداية من الخليه a62

سيكون شكل الكود كالاتى

Sub SELECTCELLSDATA()
' تحديد الخلايا التى بها بيانات بداية من
Range("A62", Range("A62").End(xlDown)).Select
End Sub

اتمنى ان يكون الدرس مفيدا

مرفق شيت اكسيل به التطبيقات

 learnvba.rar

تقبلوا  تحياتى

تم تعديل سبتمبر 14, 2015 بواسطه إبراهيم ابوليله

[محمد حسن المحمد]

السلام عليكم

شكراً أستاذ إبراهيم

جزاك الله خيراً

[Yasser Fathi Albanna]

بارك الله فيك

أسلوبك رائع فى الشرح يا أ / إبراهيم

جزاك الله خيرا

[عبد العزيز البسكري]

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

والله هذا ما نحتاج إليه في بداية مشوارنا مع الاكسل ..

بارك الله فيك و جزاك الله خيرًا على المعلومات القيّمة

         خالص احتراماتي

[ابو يوسف المصري]

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

 

[ابولمى]

بارك الله فيك اخي ابراهيم شرح جميل وواضح ..لكنني لم استطع فهم offset لكن ربما يمكنني الاستغناء عنها :) واتمنى ان يكون من بين الدروس القادمه اذا ممكن شرح الكلمات الاساسيه او المحجوزه في اللغه مثل add , go to ,finally

تم تعديل سبتمبر 14, 2015 بواسطه مستخدم جديد9

[إبراهيم ابوليله]

بارك الله فيك

أسلوبك رائع فى الشرح يا أ / إبراهيم

جزاك الله خيرا

اخى ياسر

منور المشاركه

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

تقبل تحياتى

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

والله هذا ما نحتاج إليه في بداية مشوارنا مع الاكسل ..

بارك الله فيك و جزاك الله خيرًا على المعلومات القيّمة

         خالص احتراماتي

اخى عبد العزيز

انك لمتابع جيد

ودائما ما اجدك فى كل موضوع اتابعه

اتمنى لك الاستفاده

والتوفيق

تقبل تحياتى

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

 

اخى ابو يوسف

انا بالفعل مش متمكن فى vba

ولكن اعتقد ان المعلومات التى عندى

تكفينى فى الكثير من الاحيان عن السؤال

وهذا ما يأمله الكثيرون

وتدريجيا

بنستفيد اكثر وبتزيد المعلومات اكثر واكثر

فبصراحه

حبيت اوفر وقت كبير على الاخوه الاعضاء فى تقديم المساعده

فى الكثير من الامور السهله

وان شاء الله يكون الموضوع مفيد

بنسبة حتى ؟؟؟؟؟؟؟؟؟؟؟؟ احنا ونصيبنا بقى

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

اما بخصوصو ان الاستاذ ياسر متابع الموضوع

فده شرف كبير لينا طبعا

وبالتأكيد

ان لولا وجود امثال الاستاذ ياسر فى هذا المنتدى

لما تعلمنا شيئا

نسأل الله ان يجعل الاعمال فى ميزان الاعمال

تقبل تحياتى

تم تعديل سبتمبر 15, 2015 بواسطه إبراهيم ابوليله

[إبراهيم ابوليله]

بارك الله فيك اخي ابراهيم شرح جميل وواضح ..لكنني لم استطع فهم offset لكن ربما يمكنني الاستغناء عنها :) واتمنى ان يكون من بين الدروس القادمه اذا ممكن شرح الكلمات الاساسيه او المحجوزه في اللغه مثل add , go to ,finally

اخى الفاضل  مستخدم جديد
مشكورا على المتابعه للموضوع

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

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

اليك محاوله بسيطه منى لتوضيح OFFSET

تقبل تحياتى

 

 

 

تم تعديل سبتمبر 15, 2015 بواسطه إبراهيم ابوليله

[عبد العزيز البسكري]

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

وفّقك الله أستاذنا الغالي ابراهيم أبو ليله و سدّد خطاك..بارك الله فيك على المواضيع المميّزة المثيرة .. فعلا أنا أتابع دروسك باهتمام حتى إني أقوم بنسخها لدراستها بتأنٍّ

كم هو رائع و جميل أن نرى هذا النشاط في بيتنا الثاني " أوفيسنا "

                      أكمل المشوار على بركة الله

[عماراللهيبي]

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

الاخ ابو ليله 

السلام عليكم 

شكرا الف شكر 

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

 

[إبراهيم ابوليله]

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

وفّقك الله أستاذنا الغالي ابراهيم أبو ليله و سدّد خطاك..بارك الله فيك على المواضيع المميّزة المثيرة .. فعلا أنا أتابع دروسك باهتمام حتى إني أقوم بنسخها لدراستها بتأنٍّ

كم هو رائع و جميل أن نرى هذا النشاط في بيتنا الثاني " أوفيسنا "

                      أكمل المشوار على بركة الله

اخى عبد العزيز

اسال الله ان يزيدك من فضله وعلمه

تقبل تحياتى

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

الاخ ابو ليله 

السلام عليكم 

شكرا الف شكر 

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

 

اخى عمار

انه لشرف لى متابعتك للموضوع

تقبل تحياتى