استخدم Excel و VBA لإنشاء شريط تقدم.
يتم استخدام شريط التقدم في تطبيق الكمبيوتر للإشارة إلى تقدم العملية. إنه عادةً مستطيل يتم تحريكه أثناء تقدم العملية. Visual Basic for Applications ، أو VBA ، هي لغة برمجة كمبيوتر مستخدمة في تطبيقات Microsoft Office لأتمتة المهام الروتينية وإنشاء واجهات مستخدم. يمكنك بسهولة إنشاء شريط تقدم باستخدام VBA في Microsoft Office Excel. Excel هو تطبيق جداول بيانات مضمن في مجموعة Microsoft Office.
الخطوة 1
افتح Microsoft Office Excel ، ثم اضغط على "Alt" و "F11" لفتح محرر Visual Basic. انقر بزر الماوس الأيمن فوق "VBAProject" ، ثم انقر فوق "نموذج مستخدم" لإدراج نموذج جديد. من قائمة "Toolbox" ، انقر على "Label". أثناء الضغط على زر الماوس ، اسحب النموذج لإنشاء عنصر تحكم تسمية جديد.
فيديو اليوم
الخطوة 2
انقر بزر الماوس الأيمن فوق الملصق وحدد "خصائص" ، ثم قم بتغيير "الارتفاع" إلى 42 و "العرض" إلى 12. قم بتغيير "Top" إلى 12. قم بإنشاء تسعة ملصقات أخرى باستخدام نفس العملية.
الخطوه 3
انقر فوق "CommandButton" في جزء "مربع الأدوات" وقم بإضافة زر جديد إلى النموذج الخاص بك. انقر بزر الماوس الأيمن فوق "CommandButton" وانقر فوق "عرض التعليمات البرمجية" لإنشاء إجراء جديد.
الخطوة 4
اكتب ما يلي لإنشاء متغير جديد وتحديد قيمته:
خافت cnt كعدد صحيح cnt = 0
الخطوة الخامسة
اكتب ما يلي لإخفاء جميع التسميات عند بدء النموذج:
أنا. Label1.Visible = False Me. Label2.Visible = False Me. Label3.Visible = False Me. Label4.Visible = False Me. Label5.Visible = خطأ أنا. Label6.Visible = False Me. Label7.Visible = False Me. Label8.Visible = False Me. Label9.Visible = False Me. Label10.Visible = خطأ
الخطوة 6
اكتب ما يلي لإنشاء حلقة while وكررها 10 مرات أثناء الإيقاف المؤقت للكود لمدة 5 ثوانٍ:
افعل بينما cnt <> 10
حدد Case cnt Case Is = 1 Me. Label1.Visible = True Me. Label1.BackColor = حالة vbBlue = 2 Me. Label2.Visible = True Me. Label2.BackColor = حالة vbBlue = 3 Me. Label3.Visible = True Me. Label3.BackColor = حالة vbBlue = 4 Me. Label4.Visible = True Me. Label4.BackColor = حالة vbBlue = 5 Me. Label5.Visible = True Me. Label5.BackColor = حالة vbBlue = 6 Me. Label6.Visible = True Me. Label6.BackColor = حالة vbBlue = 7 Me. Label7.Visible = True Me. Label7.BackColor = حالة vbBlue = 8 Me. Label8.Visible = True Me. Label8.BackColor = حالة vbBlue = 9 Me. Label9.Visible = True Me. Label9.BackColor = حالة vbBlue = 10 Me. Label10.Visible = True Me. Label10.BackColor = vbBlue End حدد. أنا. تطبيق إعادة الرسم. انتظر الآن + TimeValue ("00:00:05")
cnt = cnt + 1
حلقة
الخطوة 7
انقر على قائمة "إدراج" ثم انقر على "وحدة" لإضافة وحدة جديدة. انسخ والصق الرمز أدناه لبدء "UserForm1.":
Sub showProgressBar () UserForm1.Show End Sub
اضغط على "F5" لتشغيل البرنامج الخاص بك.