יצירת פורמט שעה באקסל

[יעילות]

יש לי אקסל 2007 [בחלונות XP]
יש לי טבלה של שעות נוכחות וברצוני ליצור מצב שלא יצטרכו להקליד שעות [בתבנית 24 שעות] עם נקודתיים אלא רק יכניסו 3 או 4 מספרים ואוטומטי ייהפך לתבנית שעה עם נקודתיים.
למשל: אקליד 1250 וייהפך אוטומטית ל 12:50
או למשל: אקליד 945 וייהפך ל 09:45 [אם לא לפחות אקליד 0945 וייהפך ל 09:45
כרגע התא מוגדר כך: בתוך תבניות מס' נוספות: שעה בצורת hh:mm'.
השאלה אם זו ההגדרה הנכונה או שצריך הגדרה של טקסט.
וכן מה הנוסחה כדי להשיג את תוספת הנקודותיים בין השעות לדקות באופן אוטומטי?
תודה רבה מראש לכל המתעניינים וכ''ש למסייעים.
אני מדגישה: אין כוונתי לשעה נוכחית שמקבלים ע''י הקשת צירוף המקשים: CTRL+SHIFT+ף.
נ.ב. מצ''ב בזה הגליון שערכתי, כשהמדובר על עמודות D ו E [שורות: 34-3]

 

[יעילות]

יש לי אקסל 2007 [בחלונות XP]
יש לי טבלה של שעות נוכחות וברצוני ליצור מצב שלא יצטרכו להקליד שעות [בתבנית 24 שעות] עם נקודתיים אלא רק יכניסו 3 או 4 מספרים ואוטומטי ייהפך לתבנית שעה עם נקודתיים.
למשל: אקליד 1250 וייהפך אוטומטית ל 12:50
או למשל: אקליד 945 וייהפך ל 09:45 [אם לא לפחות אקליד 0945 וייהפך ל 09:45
כרגע התא מוגדר כך: בתוך תבניות מס' נוספות: שעה בצורת hh:mm'.
השאלה אם זו ההגדרה הנכונה או שצריך הגדרה של טקסט.
וכן מה הנוסחה כדי להשיג את תוספת הנקודותיים בין השעות לדקות באופן אוטומטי?
תודה רבה מראש לכל המתעניינים וכ''ש למסייעים.
אני מדגישה: אין כוונתי לשעה נוכחית שמקבלים ע''י הקשת צירוף המקשים: CTRL+SHIFT+ף.
נ.ב. מצ''ב בזה הגליון שערכתי, כשהמדובר על עמודות D ו E [שורות: 34-3]

הודעה משמחת:
בסוף הסתדרתי חלקית עם עמודת עזר בעצת מיכאל אבידן - מנהל פורום מייקרוסופט אופיס בפורום תפוז.
ניתן לעיין בקישור הבא:  http://www.mabat3.co.il/phpBB3/viewtopi ... 876#p59876
כמו''כ מצ''ב הקובץ המעודכן עם עמודות עזר לכל המעוניין.

 

[יעילות]

עדכון לשעון נוכחות

הודעה משמחת:
בסוף הסתדרתי חלקית עם עמודת עזר בעצת מיכאל אבידן - מנהל פורום מייקרוסופט אופיס בפורום תפוז.
ניתן לעיין בקישור הבא:  http://www.mabat3.co.il/phpBB3/viewtopi ... 876#p59876
כמו''כ מצ''ב הקובץ המעודכן עם עמודות עזר לכל המעוניין.

אולי זה עדכון:
מצ''ב שעון נוכחות שאולי מעודכן יותר. קרדיט למיכאל (מיקי) אבידן מנהל פורום ''אופיס'' ב''תפוז'', שסייע לי רבות בבניית השעון הזה.
אמנם, לא יישמתי את כל עיצותיו [מחמת קוצר המשיג כמובן...], אבל בכל אופן נעזרתי בהן רבות.
הרוצה להחכים יתבונן בקישור הבא - אתר ייעודי לאקסל: http://www.mabat3.co.il/phpBB3/view...39bb0c96a50f888cfcf211a44ae847&p=59893#p59893 ויוסיף דעת [נקווה שבלי מכאוב...], ואולי יחכימני איך משנים את פורמט השעה בשפת הVBA, ללא הזדקקות לעמודות עזר, וכן בענין התאריך האוטומטי ואולי גם בהצגת תאריך עברי אוטומטי.
בהצלחה ותודה לכולם.

 

[יעילות]

צירוף השעון

העיקר חסר מן הספר, הנה השעון המצורף עימכם הסליחה.

 

[Rרחמים]

הנה קוד שצריך להוסיף לגליון:

Option Explicit
Dim אפשר  As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
  If (Target.Column = 4 Or Target.Column = 5) And אפשר = True Then
      אפשר = False
      If Len(Target.Value) = 3 Then
        Target.Value = Mid(Target.Value, 1, 1) & ":" & Mid(Target.Value, 2)
      ElseIf Len(Target.Value) > 3 Then
      Target.Value = Mid(Target.Value, 1, 2) & ":" & Mid(Target.Value, 3)
      End If
  End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    אפשר = True
End Sub

את המספרים 4 ו 5 מחליפים במספר העמודות בהם מכניסים את שעת ההתחלה והסוף.

 

[יעילות]

הקוד

הנה קוד שצריך להוסיף לגליון:

Option Explicit
Dim אפשר  As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
  If (Target.Column = 4 Or Target.Column = 5) And אפשר = True Then
      אפשר = False
      Target.Value = Mid(Target.Value, 1, 2) & ":" & Mid(Target.Value, 3)
  End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    אפשר = True
End Sub

את המספרים 4 ו 5 מחליפים במספר העמודות בהם מכניסים את שעת ההתחלה והסוף.

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

 

[Rרחמים]

1. בחץ השחור לחיצה כפולה
2. להדביק באזור החץ האדום.
בהצלחה.

צפה בקובץ המצורף 152653

 

[יעילות]

1. בחץ השחור לחיצה כפולה
2. להדביק באזור החץ האדום.
בהצלחה.

צפה בקובץ המצורף 152653

אני מתפעמת מהתגובה המהירה, אך מה הכוונה במשפט זה שכתבתם:
את המספרים 4 ו 5 מחליפים במספר העמודות בהם מכניסים את שעת ההתחלה והסוף.
מה צריך לעשות בדיוק?
ושוב צרור תודות

 

[Rרחמים]

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

 

[יעילות]

בעיה בשמירת הקוד

כשאני מנסה לשמור את הקוד מופיעה לי הודעה כפי שניתן לראות בתמונה המצורפת.
וחוץ מזה מה עושים אח''כ בתוך גליון הנתונים כדי לבטל את עמודות העזר שיהיו בשימוש רק עמודות F וG?
אם אפשר הסבר מפורט צעד אחר צעד, מצידי אפשר גם במייל או בטלפונים המצויים בחתימתי.
תודה רבה על העבר ועל העתיד.

 

[Rרחמים]

טוב אז אני מצרף קובץ מוגמר תשפרי אותו מבחינת העיצוב ותעלי אותו שוב לתועלת כולם.
צפה בקובץ המצורף 152658

 

[יעילות]

השעון המשופר לעת עתה

טוב אז אני מצרף קובץ מוגמר תשפרי אותו מבחינת העיצוב ותעלי אותו שוב לתועלת כולם.
צפה בקובץ המצורף 152658

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

 

[יעילות]

שיפורים נוספים בשעון

מצ''ב שעון נוכחות עם תאריך לועזי רץ ועברי מקביל לו [כלומר צריך להקליד רק את התאריך הלועזי הראשון].
קרדיטים לניקים: a26955, למען דעת
ולשאר השכלולים שבשעון למיכאל [מיקי] אבידן, מנהל פורום אופיס ב''תפוז'', ולניק ''Rרחמים'' על המקרו שחוסך הקלדת נקודותיים בשעה.
תודה לכל העוזרים.
תיהנו.
ניתן לעיין ולהוסיף להחכים:
http://www.prog.co.il/showthread.php?t=110375
וגם כאן: http://www.mabat3.co.il/phpBB3/viewtopic.php?f=4&t=17300&sid=6f39bb0c96a50f888cfcf211a44ae847&p=59893#p59893

 

[אביחי בס]

אפשר הסבר איך עובדים עם זה? יש לחצן לכניסה ויציאה וזה מחשב אוט'?

 

[ליכט]

הנה קוד שצריך להוסיף לגליון:

Option Explicit
Dim אפשר  As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
  If (Target.Column = 4 Or Target.Column = 5) And אפשר = True Then
      אפשר = False
      If Len(Target.Value) = 3 Then
        Target.Value = Mid(Target.Value, 1, 1) & ":" & Mid(Target.Value, 2)
      ElseIf Len(Target.Value) > 3 Then
      Target.Value = Mid(Target.Value, 1, 2) & ":" & Mid(Target.Value, 3)
      End If
  End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    אפשר = True
End Sub

את המספרים 4 ו 5 מחליפים במספר העמודות בהם מכניסים את שעת ההתחלה והסוף.

יש לי אקסל לניהול מאפיית מצות, ואני צריך לרשום כל ח"י דקות מתי בדיוק הם התחילו (כולל שניות), מה צריך לשנות בקוד הזה כדי שיהיה אפשר לכתוב לדוגמא 104533 וזה יהפוך אוטומטי ל-10:45:33

 

[ליכט]

יש לי אקסל לניהול מאפיית מצות, ואני צריך לרשום כל ח"י דקות מתי בדיוק הם התחילו (כולל שניות), מה צריך לשנות בקוד הזה כדי שיהיה אפשר לכתוב לדוגמא 104533 וזה יהפוך אוטומטי ל-10:45:33

הקפצה...