JavaScript is not enabled!...Please enable javascript in your browser

جافا سكريبت غير ممكن! ... الرجاء تفعيل الجافا سكريبت في متصفحك.

-->
الصفحة الرئيسية

عالم الاوفيس: اكسل vba استخدام الدوال Do,Doevents,loop until لعمل عداد على Command button

  بسم الله الرحمن الرحيم
استخدام الدوال Do,Doevents,loop until لعمل عداد على Command button 


اهلا بحضراتكم متابعى موقع عالم الاوفيس .
نقدم لكم اليوم درس جديد من دروس اكسل VBA وهو عن كيفية عمل عداد معين على زر تنفيذ الامر فى الاكسل وبعد انتهاء العداد  يقوم بتنغيذ كود معين سواء كان رسالة نصية او اظهار اليوزرفورم وايضا تغيير تسمية الزر (caption) الى تسمية متغيرة ولتكن مثلا start .
كيف نقوم بعمل مثل هذ الكود ؟
نقوم بادراج الزر من تبويب المطور او Devloper ومن القائمة  Insert نختار command button .



ثم نضغط double click على هذا الزر ليفتح معنا محرر الاكواد الخاص بالزر ونكتب فية الكود التالى 

ناتى لشرح الكود بالتفصيل:

فى البداية عرفنا المتغير (a)
ثم نجعل خاصية                  commandbutton =false 
ثم نضع قيمة للمتغير                                              a=0
ونستخدم الدوال                                  ,DoEvents,Do
ثم نعمل زيادة لقيمة المتغير (a) بزيادة 1 فى كل مرة من تنفيذ الحلقة التكرارية
a = a + 1             

ثم نجعل تسمية commandbutton  تساوى قيمة المتغير  A 
ثم نستخدم دالة تكرارية اخرى (Looping ) 
الدالة  Loop Until 
نجعل التكراريعمل حتى القيمة التى نحددها للمتغير  A
Loop Until a = 2000
وبعد ذلك ننفذ الكود الذى نريد تنفيذة سواء كان اظهار رسالة نصية او اظهار يوزر فورم معين .
وايضا يمكن  يستخدم هذا الكود فى عمل  splash screenاو الشاشات الافتتاحيية من خلال اليوزر فورم  vba  
للمزيد من الشرح شاهد الفيديو التالى

الاسمبريد إلكترونيرسالة