شرح مبسط عن msgbox فى لغة البرمجه VBA

[الصـقر]

الاخوة الزملاء فى هذا الصرح العظيم 

اقدم لكم شرح مبسط عن msgbox فى لغة البرمجه VBA 

 

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

الرساله عبارة عن 3 أجزاء وهى كالتالى 

"title عنوان الرساله",BUTTONS الازرار,"text نص الرساله " msgbox

 

نلاحظ ان ما بين كل جزء يوجد هذه العلامه ( , ) وتكتب من خلال الضغط على shift+حرف و بالعربى 

اولا نقوم بشرح الجزء الاول من الرساله وهو "نص الرساله "

 

  نقوم بفتح محرر الاكواد من خلال ALT+F11  ُم ادارج مودويل جديد للعمل علية 

اول نوع من الرسائل هى النوع العادى 

مثال 1

لو حبينا نعمل رساله ونكتب فيها ( كلنا بنحب أوفيسنا ) اول شئ نعمل ادراج مودويل جديد ونكتب فيه الكود التالى 

Sub hossam()
MsgBox "كلنا بنحب أوفيسنا"
End Sub

نلاحظ فى الكود ان فى ثلاثة اسطر السطر الاول وهو اسم الكود  وهو هنا اسمه Hossam  ويمكن تغيير الى اى اسم تحبه انت 

الثانى وهو الكود الذى يتم تنفيذه  وفى المثال السابق هو تنفيذ رساله كلنا بنحب اوفيسنا  (كيف يتم كتابة الرساله)       msgbox ثم "الرساله" نلاحظ ان الرساله بين علامتين تنصيص اى الضغط على shift+حرف ط بالعربى من لوحه المفاتيح 

لو رجعنا الى قمنا باغلاق محرر الاكواد ورجعنا الى ورقة العمل 1 

من زر Developer بشريط القوائم  الضغط على اول زر فوق ناحية اليسار ثم رسم الزر على ورقة العمل ستظهر لك قائمة بها كل الاكواد التى قمت بعملها اختار منها كما هو بالمثال hossam 

لو قمنا بالضغط على هذا الزر ستظهر لنا الرساله التالية

 

 

 

مثال 2  

عمل رساله من شقين شق ثابت وهو الرساله وشق متغير

 مثلا "عدد الطلبه فى الفصل الاول" & ( الرقم بالخلية A1 ) 

 

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

Sub hossam()
MsgBox "عدد الطلبه فى الفصل الاول " & Range("A1").Value
End Sub

وهنا نلاحظ ان بعد الانتهاء من الرساله وضعنا علامه & ثم Range("A1").Value  اى الرقم اللى موجود بالخلية A1  وهو كما هو بالصورة 15 

 

عند الرجوع الى ورقة العمل والضغط على الزر ستظهر لنا الرساله كما هو مبين بالصورة

 

 

 

 

مثال 3 

 

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

Sub hossam()
MsgBox "عدد الطلبة فى الفصل الاول " & Range("A1").Value & vbNewLine & "عدد الطلبة فى الفصل الثانى" & Range("A2").Value
End Sub

نلاحظ هنا هذا هوالجزء الاول من الرسالة  Range("A1").Value & "عدد الطلبة فى الفصل الاول " MsgBox  نفس الكود السابق

ثم علامة &  vbNewLine & أى عمل سطر جديد  

ثم السطر الثانى من الرساله Range("A2").Value & "عدد الطلبة فى الفصل الثانى" MsgBox

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

 

 

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

وممكن يكون جزء ثابت وجزء متغير كما هو بالمثال 2

وممكن يكون جزء ثابت ومتغير اكثر من مره على سطرين كما بالمثال 3

 

 

ثانيا: نقوم بشرح الجزء الثانى  من الرساله وهو BUTTONS الازرار

 

BUTTONS الازرار,"text نص الرساله " msgbox

 

قبل ان نبداء بشرح هذا الجزء ننظر الى الصورة التالية 

                                     

                         شكل الزر                      رقمه              

      الاسم

فى اول مثال من الشرح وهو عمل رساله ثابته "كلنا بنحب أوفيسنا" فاذا اردنا عمل رساله "هل تحب أوفيسنا " هنا صيغة سؤال اى يوجد له اجابة اما نعم او لا  اذن لابد من وجود ازرار فلو حبينا نعمل كود يكون كالتالى

Sub hossam()
MsgBox "هل تحب أوفيسنا ؟", vbYesNo
End Sub

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

 

 

كما يمكن ايضا كتابة الكود بتلك الطريقه وهى استبدال vbYesNo  بالرقم 4  كما هو موضح بالجدول اعلاه

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

Sub hossam()
msgbox "هل تحب منتدى اوفيسنا؟",4
End Sub

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

اخى حسام

موضوع جميل

سر على بركه الله

--------------------

انا شخصيا بحب المواضيع المستقله

بمعنى

ان يتم فتح موضوع كامل عن جزئيه معينه

كما فعلت انت الان

---------------------------------------------

اوجه الدعوه لكل الاعضاء للمشاركه

بكل المعلومات

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

------------

تقبلو تحياتى

[الصـقر]

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

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

اخى

حسام شاهد الفيديو

 

تقبل تحياتى

ادارج صوره.rar

[الصـقر]

استاذى/ ابراهيم ابوليله 

الف شكر ليك ولكن هل يوجد طريقه من خلال منتدى اوفيسنا

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

بسم الله ما شاء الله عليك أخي حسام تقدم عظيم

بارك الله فيك ..إنت كدا قطعت عليا أنا كنت ناوي أشرحها في الحلقة الجاية

يلا خيرها في غيرها .. ولا أشرحها تاني ؟؟

[الصـقر]

استاذى الكريم / ياسر 

شكرا لك على مرورك الكريم وثناءك على الموضوع 

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

فالتنوع فى الشرح مطلوب اهم شئ تصل المعلومه 

تقبل منى كل وافر الاحترام والتقدير

[الصـقر]

بعد اذن الادارة ارجو فتح المشاركة الاولى لعمل بعض التعديلات وتكملة الشرح 

ولكم جزيل الشكر

[مختار حسين محمود]

أستاذ حسام 

1 - ألف مبروك على الترقية

2 - موضوع رائع ويهم ناس كتير من مستخدمى اكسل

 

تم تعديل ديسمبر 2, 2014 بواسطه مختار حسين محمود

[جلال الجمال_ابو أدهم]

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

[الجموعي]

بارك الله فيك أستاذي/حسام عيسى

شرح ممتاز

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

إحترامي وتقديري

[الصـقر]

استاذى الجموعى

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

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

تقبل احترامى وتقديرى

[الصـقر]

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

[اسامةمحمد]

ما شاء الله منتدى رائع بمعنى الكلمة (طبعا باعضائه)

[Yasser Fathi Albanna]

بارك الله فيك أستاذ حسام

شرح ممتاذ

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

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

يا عم حسام إنت مخليني مش عارف أكتب الحلقة .. كل ما آجي أكتب أحس إن اللي كتبته مش هييجي حاجة جنب اللي كتبته فامسح واكتب من الأول ... شكلي هلغي الحلقة دي وأخلي موضوعك هو الحلقة اللي عليها الدور وخلاص ..

[محمد القمجي]

تسلم اﻻيادي شرح بسيط ورائع جدا جدا جدا

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

[الصـقر]

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

[الصـقر]

 

يا عم حسام إنت مخليني مش عارف أكتب الحلقة .. كل ما آجي أكتب أحس إن اللي كتبته مش هييجي حاجة جنب اللي كتبته فامسح واكتب من الأول ... شكلي هلغي الحلقة دي وأخلي موضوعك هو الحلقة اللي عليها الدور وخلاص ..

 

استاذى الكريم / ياسر

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

فالتنوع فى الشرح مطلوب اهم شئ تصل المعلومه

تقبل منى كل وافر الاحترام والتقدير

[أبو محمد عباس]

الاخ العزيز حسام عيسى

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

شرح اكثر من رائع

جعله الله في ميزان حسناتكم

وفقكم الله وزادكم من فضله علما ومعرفة

لكم كل الحب والاحترام والتقدير

[محمود_الشريف]

أخى فى الله

الأستاذ الكريم // حسام عيسى

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

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

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

اخى الصقر الجريح انها مهارة ( موهبة ) تبسيط المعلومة 

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

تم تعديل يناير 6, 2015 بواسطه سيف الدين حسام

[وليد زقزوق]

الاخ

الصـقـر

في جزء المسج اللي بيطلع مع الازرار yes&no وغيرهم ايضا هل ممكن نفعل الازرار كي تعمل بعض الوظائف

[الصـقر]

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

Sub hossam()
Q = MsgBox("هل تحب اوفيسنا", vbYesNo)
If Q = vbNo Then
   MsgBox "طيب ليه وأوفيسنا بتخدمنا كلنا": Exit Sub
End If

If Q = vbYes Then
MsgBox "أوفيسنا بتموت فيك"
End If
End Sub

تقبل تحياتى