بسم الله الرحمن الرحيم
استخدام الدوال 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
للمزيد من الشرح شاهد الفيديو التالى