פונקציית זמן VBA | דוגמה לשימוש בפונקציית זמן VBA של Excel

פונקציית זמן VBA של Excel

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

TIME הוא סוג של פונקציה נדיפה, אין לו תחביר אליו.

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

TIME ()

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

כיצד להשתמש בפונקציית TIME ב- VBA?

תן לי להראות לך את הדוגמה של זמן פשוט בפונקציית Excel. בצע את השלבים הבאים כדי ליצור קוד לשימוש בפונקציה TIME.

ניתן להוריד תבנית פונקצית זמן VBA זו כאן - תבנית פונקצית זמן VBA

שלב 1: צור מאקרו.

קוד:

 זמן זמן_דוגמה 1 () סוף משנה 

שלב 2: הכריז על משתנה כמחרוזת.

קוד:

 זמן זמן_דוגמה 1 () עמעום הנוכחי בזמן כמחרוזת משנה משנה 

שלב 3: הקצה ערך למשתנה זה באמצעות פונקציית TIME.

קוד:

 Sub Time_Example1 () עמום CurrentTime כמחרוזת CurrentTime = זמן סיום זמן 

שלב 4: כעת הראה את התוצאה בתיבת ההודעות.

קוד:

 זמן זמן_דוגמה 1 () עמום CurrentTime כמחרוזת CurrentTime = זמן MsgBox CurrentTime סוף משנה 

הפעל קוד זה באמצעות מקש F5 או באופן ידני נקבל את השעה הנוכחית.

לכן, כאשר אני מריץ זמן קוד זה היה 11.51.54 בבוקר.

חלופה של פונקציה עכשיו ()

שילוב של תאריך ושעה כאלטרנטיבה לפונקציה NOW

כפי שאמרתי בתחילת המאמר NOW יכול להכניס תאריך ושעה נוכחיים. עם זאת אנו יכולים להשתמש בשתי פונקציות אחרות כפונקציה חלופית לפונקציה NOW, שתי פונקציות אלה הן פונקציות VBA DATE ו- VBA TIME.

תאריך ה- VBA יחזיר את התאריך הנוכחי והשעה תחזיר את השעה הנוכחית, כך שזה הופך את הפונקציה NOW. להלן ערכת קוד שתכניס את התאריך והשעה הנוכחיים לתא A1.

קוד:

 טווח זמן זמן_דוגמה 2 () ("A1"). ערך = תאריך & "" ותת סוף זמן 

קוד זה יוסיף את התאריך והשעה הנוכחיים בתא A1.

אנו יכולים גם להחיל פורמט על ערכים אלה באמצעות פונקציית FORMAT. הקוד שלמטה יפרמט את התאריך והשעה.

קוד:

 טווח זמן_דוגמה 2 () ("A1"). ערך = תאריך וטווח זמן ("A1"). מספר פורמט = "dd-mmm-yyyy hh: mm: ss AM / PM" Sub Sub 

כעת התוצאה של קוד זה היא כדלקמן.

עקוב אחר חוברת העבודה שלך רשומות פתוחות באמצעות פונקציית זמן ב- VBA

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

צור גיליון חדש ושנה אותו כ- "גיליון מסלול".

שלב 1: לחץ פעמיים על חוברת עבודה זו מעורך VBE.

Step 2: Select the workbook from the object drop-down list.

Step 3: As soon as you select this option you can see new macro automatically created by itself in the name “Workbook_Open()”.

Step 4: Inside this macro, we will need to write a code to track the workbook opening date & time.

I have already written code and below is the code for you.

Code:

 Private Sub Workbook_Open() Dim LR As Long LR = Sheets("Track Sheet").Cells(Rows.Count, 1).End(xlUp).Row + 1 Sheets("Track Sheet").Cells(LR, 1).Value = Date & " " & Time() Sheets("Track Sheet").Cells(LR, 1).NumberFormat = "dd-mmm-yyyy hh:mm:ss AM/PM" End Sub 

This will record your workbook opening times like the below one.