VBA עכשיו (מדריך שלב אחר שלב) | כיצד להשתמש בפונקציה Now ב- Excel VBA?

פונקציית Excel VBA Now

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

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

הנוסחה של ה- VBA NOW היא פשוטה.

עכשיו ()

דוגמה לפונקציה NOW ב- Excel VBA

עיין בדוגמה הפשוטה לפונקציה NOW ב- VBA. בצע את הצעדים הבאים כדי לכתוב את קוד ה- VBA ולקבל ידע לא מבוטל על NOW כמו גם על כתיבת הקוד.

שלב 1: התחל את תת התהליך על ידי מתן שם מאקרו.

קוד:

 Sub Now_Example1 () Sub Sub

שלב 2: הכריז על המשתנה כ- "תאריך". הסיבה מדוע עלינו להכריז על המשתנה כ- "תאריך" מכיוון שהתוצאה הסופית שלנו היא בתבנית תאריך ושעה.

קוד:

 Sub Now_Example1 () Dim k בתור תאריך סוף Sub 

שלב 3: הקצה את הערך למשתנה "k" על ידי הפעלת פונקציית VBA NOW.

קוד:

 Sub Now_Example1 () Dim k as Date k = Now End Sub 

שלב 4: כעת הראה את ערך הפונקציה NOW שהקצנו למשתנה "k" בתיבת ההודעות ב- VBA.

קוד:

 Sub Now_Example1 () Dim k as Date k = Now MsgBox k End Sub 

אוקי, סיימנו.

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

התוצאה מראה 15/4/2019 בשעה 5:03:35.

פורמט התאריך של המחשב שלי הוא "mm-dd-yyyy".

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

קוד:

 Sub Now_Example1 () Dim k as Date k = Now MsgBox Format (k, "DD-MMM-YYYY HH: MM: SS") Sub Sub 

הפעל את הקוד וראה את ההבדל.

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

נדיף בטבע:

כפי שניתן לראות בדוגמה הראשונה קיבלנו את תוצאת הזמן כ- 5:03:35 ובדוגמה השנייה, אנו מקבלים את התוצאה כ- 17:19:02. אז זה מראה כי פונקציית NOW היא פונקציה נדיפה המשתנה בכל שנייה.

אלטרנטיבה לפונקציית טיימר ב- VBA

כחלופה ל- VBA TIMER, אנו יכולים להשתמש בפונקציה "VBA NOW" כדי לחשב את הזמן הכולל שלוקח המאקרו להשלמת המשימה.

השתמש בקוד שלמטה כדי לחשב את הזמן שלוקח לקוד שלך.

C0de:

 תת TotalDuration () עמום k כתאריך k = עכשיו '' 'הזן את הקוד שלך כאן' '' MsgBox "סה"כ הזמן שנלקח על ידי המאקרו להשלמת המשימה הוא:" & _ פורמט ((עכשיו - k), "HH: MM : SS ") סוף משנה 

באזור בצבע ירוק העתק והדבק את הקוד שלך.

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

ככה, אנו יכולים להשתמש בפונקציה NOW במובנים רבים ב- VBA.

אתה יכול להוריד תבנית פונקציה VBA Now של Excel כאן - תבנית פונקציות VBA Now