השתמש ב- 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" ולאחר מכן לחץ על "UserForm" כדי להוסיף טופס חדש. בתפריט "ארגז כלים", לחץ על "תווית". תוך כדי החזקת לחצן העכבר, גרור על הטופס כדי ליצור פקד תווית חדש.
סרטון היום
שלב 2
לחץ לחיצה ימנית על התווית ובחר "מאפיינים", ולאחר מכן שנה את "גובה" ל-42 ואת "רוחב" ל-12. שנה את ה"טופ" ל-12. צור תשע תוויות נוספות באותו תהליך.
שלב 3
לחץ על "כפתור הפקודה" בחלונית "ארגז הכלים" והוסף כפתור חדש לטופס שלך. לחץ לחיצה ימנית על "כפתור הפקודה" ולחץ על "הצג קוד" כדי ליצור הליך חדש.
שלב 4
הקלד את הדברים הבאים כדי ליצור משתנה חדש ולהגדיר את הערך שלו:
Dim cnt כמספר שלם cnt = 0
שלב 5
הקלד את הדברים הבאים כדי להסתיר את כל התוויות כאשר הטופס מתחיל:
לִי. Label1.Visible = False Me. Label2.Visible = False Me. Label3.Visible = False Me. Label4.Visible = False Me. Label5.Visible = False לִי. Label6.Visible = False Me. Label7.Visible = False Me. Label8.Visible = False Me. Label9.Visible = False Me. Label10.Visible = False
שלב 6
הקלד את הדברים הבאים כדי ליצור לולאת while וחזרה 10 פעמים תוך השהיית הקוד למשך 5 שניות:
עשה תוך כדי cnt <> 10
בחר Case cnt Case Is = 1 Me. Label1.Visible = True Me. Label1.BackColor = vbBlue Case Is = 2 Me. Label2.Visible = True Me. Label2.BackColor = vbBlue Case Is = 3 Me. Label3.Visible = True Me. Label3.BackColor = vbBlue Case Is = 4 Me. Label4.Visible = True Me. Label4.BackColor = vbBlue Case Is = 5 Me. Label5.Visible = True Me. Label5.BackColor = vbBlue Case Is = 6 Me. Label6.Visible = True Me. Label6.BackColor = vbBlue Case Is = 7 Me. Label7.Visible = True Me. Label7.BackColor = vbBlue Case Is = 8 Me. Label8.Visible = True Me. Label8.BackColor = vbBlue Case Is = 9 Me. Label9.Visible = True Me. Label9.BackColor = vbBlue Case Is = 10 Me. Label10.Visible = True Me. Label10.BackColor = vbBlue End Select. לִי. יישום צביעה מחדש. המתן עכשיו + TimeValue("00:00:05")cnt = cnt + 1
לוּלָאָה
שלב 7
לחץ על התפריט "הוסף" ואז לחץ על "מודול" כדי להוסיף מודול חדש. העתק והדבק את הקוד למטה כדי להתחיל את "UserForm1.":
תת showProgressBar() UserForm1.Show End Sub
לחץ על "F5" כדי להפעיל את התוכנית שלך.
