יצירת שעון עצר באקסל (סגנון בסיסי + טוסטרים)

בעודי עובד ב- IBM, הייתי חלק ממועדון ToastMasters הבינלאומי. זה מקום שבו אתה יכול לשפר את כישורי התקשורת וההנהגה שלך.

קטע מעניין בישיבות השבועיות היה דיבור מאולתר. בחלק זה של הפגישה, אדם קיבל נושא והוא נאלץ לדבר עליו במשך 2 דקות. היה אדם מיועד שנהג לתזמן את הנאום ומציג כרטיס ירוק בדקה אחת, כרטיס צהוב ב -1: 30 דקות, וכרטיס אדום לאחר 2 דקות.

בדרך כלל, סמארטפון או שעון משמשים לתזמון הנאום, והזמן הנדרש נרשם באופן ידני על נייר.

לא פעם קורה שהאדם שוכח להציג את הקלפים הצבעוניים או לפעמים שוכח להקליט את העיתוי לרמקולים (קרה איתי כל הזמן). בהתחשב בדברים אלה, יצרתי שעון עצר באקסל שיעזור לזמן ולהקליט את הנאומים.

בואו ללמוד תחילה כיצד ליצור שעון עצר בסיסי ב- Excel.

כיצד ליצור שעון עצר ב- Excel (בסיסי)

בשעון עצר פשוט/בסיסי באקסל, אני מתכוון למשהו שיתחיל כאשר נלחץ על כפתור ההתחלה ויפסיק כאשר נלחץ על כפתור העצירה.

משהו כפי שמוצג להלן:

הורד את שעון העצר הבסיסי הזה ב- Excel

כדי ליצור שעון עצר זה ב- Excel, עליך לדעת על יישום.בזמן שיטה ב- VBA.

שיטת Application.OnTime ב- VBA

ניתן להשתמש בשיטת Application.OnTime כאשר ברצונך להריץ קוד שצוין בעתיד. לדוגמה, תוכל להשתמש בו כדי להציג תיבת הודעות שתזכיר לך לקום ולמתוח את הרגליים לאחר שעה אחת או לקבל תרופות לאחר 3 שעות.

תחביר יישום. זמן שעון:

Application.OnTime (הזמן המוקדם ביותר, תהליך, זמן אחרון, לוח זמנים)

• Earlyliest Time: הזמן שבו ברצונך להריץ את ההליך.
• נוהל: שם ההליך שצריך להריץ.
• LatestTime (אופציונלי): במקרה שבו קוד אחר פועל ולא ניתן להריץ את הקוד שצוין בזמן שצוין, תוכל לציין את ה- LatestTime שעליו עליו להמתין. לדוגמה, זה יכול להיות EarliestTime + 45 (מה שאומר שהוא יחכה 45 שניות עד שההליך השני יסתיים). אם גם לאחר 45 שניות ההליך הוא לא מסוגל להריץ, הוא נזנח. אם לא תציין זאת, Excel יחכה עד שניתן יהיה להריץ את הקוד ולאחר מכן להריץ אותו.
• לוח זמנים (אופציונלי): אם הוא מוגדר כ- True, הוא מתזמן הליך זמן חדש. אם False, הוא מבטל את ההליך שהוגדר קודם לכן. כברירת מחדל, זה נכון.

דוגמה לשיטת Application.OnTime

בדיקת משנה () Application.OnTime Now + TimeValue ("00:00:05"), "ShowMessage" סוף תת תת ShowMessage () MsgBox ("HELLO") סיום תת

החלק הראשון של המאקרו משתמש בשיטת Application.OnTime ומריץ את ההליך ShowMessage (במרכאות כפולות) לאחר חמש שניות. הליך ShowMessage פשוט מציג את תיבת ההודעות עם ההנחיה שלום.

אתה יכול להשתמש בפורמט זה כדי להפעיל כל הליך לאחר זמן מוגדר מהזמן הנוכחי.

כעת, בעזרת מושג זה, הבה נבחן את הקוד ליצירת שעון עצר פשוט ב- Excel.

Dim NextTick כתאריך, t כתאריך Sub StartStopWatch () t = Time Call StartTimer End Sub Sub StartTimer () NextTick = Time + TimeValue ("00:00:01") טווח ("A1"). Value = Format (NextTick - t - TimeValue ("00:00:01"), "hh: mm: ss") Application.OnTime NextTick, "StartTimer" End Sub SubTimeTimer () על חידוש השגיאה המשך את היישום הבא. "StartTimer", לוח זמנים: = Sub End false

קוד זה כולל 3 חלקים:

• החלק הראשון מאתחל את הזמן הנוכחי למשתנה t. לאחר מכן הוא קורא להליך אחר StartTimer.
• הליך StartTimer משתמש במשתנה NextTick אשר עולה עם 1 בכל שנייה שחולפת. בגליון העבודה, לתא A1 יש את טיימר הריצה כפי שציינו את NextTick - t -TimeValue ("00:00:01"), "hh: mm: ss") להיות הערך בתא זה. לאחר מכן הוא מפעיל שוב את קוד StartTimer לאחר כל שנייה.
• StopTimer מבטל את הליך Application.Ontime על ידי הפיכת ערך לוח הזמנים לשקר. זה עוצר את הטיימר.

הנה מה שתקבל עם הקוד לעיל (הקצתי את הפקודות המאקרו לכפתורי התחלה/עצירה):

זהו שעון עצר בסיסי ב- Excel.

אני קורא לזה בסיסי מכיוון שאי אפשר לעצור באמצע ולהפעיל מחדש את המקום שבו עזבת. זה תמיד יופעל מחדש מ -1 כאשר אתה לוחץ על כפתור ההתחלה.

כעת, לאחר שלמדת את היסודות של שיטת Application.OnTime, תוכל לשנות זאת בקלות ליצירת כל סוג של שעון עצר שתרצה ב- Excel.

שעון עצר ב- Excel (עבור ToastMasters)

השתמשתי ברעיון שנדון למעלה ויצרתי שעון עצר ב- Excel שניתן להשתמש בו בפגישת Toastmasters (שהזכרתי בתחילת הדרכה זו).

להלן הדברים שניתן לעשות באמצעות שעון העצר הזה:

• אתה יכול לעצור את הטיימר ולאחר מכן להפעיל מחדש מאותו הזמן (מוקלט עד אז).
• אתה יכול לאפס את הטיימר. זה מגדיר את ערך הטיימר ל- 0. ברגע שאתה עושה את זה הוא מתעד אוטומטית את כל הזמן שחלף.
• הוא משנה את צבע תיבת הטיימר, בהתאם לערך שעון העצר (זו יכולה להיות תזכורת טובה להראות את הכרטיסים הירוקים/צהובים/אדומים).

כך זה נראה:

בהדגמה למעלה, הגדרתי את שינוי הצבע כל חמש שניות. תוכל לציין בקלות מתי ברצונך לשנות את הצבע (הכרטיס הירוק בדקה אחת, הכרטיס הצהוב לאחר 1.5 דקות וכרטיס האדום תוך 2 דקות) על ידי שינוי הערכים בגיליון החישוב.

ברגע שתלחץ על כפתור האיפוס, צבע הטיימר יחזור ללבן, ערך הטיימר יהפוך ל -0 והוא יתעד את השעה בעמודה G.

הערה: מכיוון שקבצים אלה מכילים מאקרו, יהיה עליך להפעיל פקודות מאקרו לפני השימוש בו. כאשר תפתח את חוברת העבודה, תראה כפתור צהוב - אפשר תוכן. לחץ עליו כדי להפעיל פקודות מאקרו.

אם אתה יוצר משהו מגניב באמצעות טיימר, שתף אותו איתי.