כיצד להוסיף טיימר ספירה לאחור בגיליון עבודה של Excel

בפני עצמו, ל- Excel אין פונקציה לכלול טיימר ספירה לאחור. עם זאת, עם שפת תכנות שנקראת Visual Basic for Applications, אפשר לכתוב מאקרו פשוט לביצוע פונקציית הספירה לאחור. מאמר זה מראה כיצד ליצור מאקרו המאפשר לטיימר לספור לאחור עד 12 שעות, מתאים לניהול זמן בתוך גליון עבודה.

פרמט את תא הטיימר

שלב 1

בגליון עבודה חדש ופתוח, נווט אל תא A1. זה יהיה המיקום של הטיימר לדוגמה.

סרטון היום

שלב 2

גישה לפורמט תא

קרדיט תמונה: התמונה באדיבות מיקרוסופט

לחץ לחיצה ימנית על תא A1 ובחר עיצוב תאים.

שלב 3

בחירת פורמט שעות דקות שניות.

קרדיט תמונה: התמונה באדיבות מיקרוסופט

בחר זְמַן מהתיבת קטגוריה ובחר אחת מהפורמטים של שעות: דקות: שניות. נְקִישָׁה בסדר כדי להגדיר את פורמט התא.

צור את המאקרו

שלב 1

פתיחת מודול VBA.

קרדיט תמונה: התמונה באדיבות מיקרוסופט

גש לחלון העריכה של Visual Basic על ידי לחיצה ALT-F11. נְקִישָׁה לְהַכנִיס משורת התפריטים ולחץ מודול.

שלב 2

הזנת קוד VBA

קרדיט תמונה: התמונה באדיבות מיקרוסופט

הזן את הטקסט הבא בחלון Module1:

עמום gCount As Date
תת טיימר()
gCount = Now + TimeValue("00:00:01")
יישום. OnTime gCount, "EndMessage"
סיום משנה
Sub EndMessage()
Dim xRng As Range
הגדר xRng = Application. ActiveSheet. טווח ("A1")


xRng. ערך = xRng. ערך - TimeSerial (0, 0, 1)
אם xRng. ערך <= 0 אז
MsgBox "הספירה לאחור הושלמה."
צא משנה
סוף אם
טיימר שיחה
סיום משנה

אתה יכול העתקה והדבקה את טקסט הקוד למעלה, או שאתה יכול להקליד אותו, שורה אחר שורה, בחלון Module1. עורך VBA מחיל עיצוב לפי הצורך.

שלב 3

שמירה כחוברת עבודה עם מאקרו

קרדיט תמונה: התמונה באדיבות מיקרוסופט

צמצם את חלון VBA על ידי לחיצה על - סמל בפינה הימנית העליונה. נְקִישָׁה קוֹבֶץ על הסרט ו שמור כ. בחר מיקום לשמירת הקובץ שלך. בחלון שמירה בשם, תן שם לחוברת העבודה שלך ובחר חוברת עבודה עם מאקרו של Excel (*.xlsm) מ ה שמור כסוג רשימה נפתחת. נְקִישָׁה להציל ולחזור לחוברת העבודה.

שימוש בטיימר

שלב 1

לחץ על התא A1 ולהיכנס 0:3:0, ואז הקש להיכנס. זה קובע את הזמן ל-0 שעות, 3 דקות ו-0 שניות.

שלב 2

לחץ על נוף לשונית על הסרט ולחץ מאקרו. בחר שָׁעוֹן עֶצֶר מרשימת המאקרו ולחץ לָרוּץ. תא הטיימר שלך יתחיל לספור לאחור לאפס, כאשר א הספירה לאחור הושלמה תיפתח דו-שיח. נְקִישָׁה בסדר לחזור לעבודה שלך.

עֵצָה

אתה לא צריך להשתמש בתא A1. מקם את הטיימר שלך בכל מקום ושנה את ההפניה לתא בשורה 8 של קוד הטיימר מ-A1 לכל תא שבו אתה משתמש.