אופיס 365 שעה כולל שניות באקסל

[ליכט]

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

 

[FullTime]

אם לא יתנו לך פתרון יותר טוב.

=MID(A2,1,2)&":"&MID(A2,3,2)&":"&MID(A2,5,2)

בA2 תכתוב את המספר...

 

[ליכט]

אם לא יתנו לך פתרון יותר טוב.

=MID(A2,1,2)&":"&MID(A2,3,2)&":"&MID(A2,5,2)

בA2 תכתוב את המספר...

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

=TEXT(A2,"00\:00\:00")

 

[ליכט]

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

ב"ה מצאתי את הפתרון

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim TimeStr As String

On Error GoTo EndMacro
If Application.Intersect(Target, Range("A2:A1000")) Is Nothing Then
    Exit Sub
End If
If Target.Cells.Count > 1 Then
    Exit Sub
End If
If Target.Value = "" Then
    Exit Sub
End If

Application.EnableEvents = False
With Target
If .HasFormula = False Then
    Select Case Len(.Value)
        Case 1 ' e.g., 1 = 00:01 AM
            TimeStr = "00:0" & .Value
        Case 2 ' e.g., 12 = 00:12 AM
            TimeStr = "00:" & .Value
        Case 3 ' e.g., 735 = 7:35 AM
            TimeStr = Left(.Value, 1) & ":" & _
            Right(.Value, 2)
        Case 4 ' e.g., 1234 = 12:34
            TimeStr = Left(.Value, 2) & ":" & _
            Right(.Value, 2)
        Case 5 ' e.g., 12345 = 1:23:45 NOT 12:03:45
            TimeStr = Left(.Value, 1) & ":" & _
            Mid(.Value, 2, 2) & ":" & Right(.Value, 2)
        Case 6 ' e.g., 123456 = 12:34:56
            TimeStr = Left(.Value, 2) & ":" & _
            Mid(.Value, 3, 2) & ":" & Right(.Value, 2)
        Case Else
            Err.Raise 0
    End Select
    .Value = TimeValue(TimeStr)
End If
End With
Application.EnableEvents = True
Exit Sub
EndMacro:
MsgBox "לא הכנסת שעה חוקית"
Application.EnableEvents = True
End Sub

נלקח מכאן: http://www.cpearson.com/excel/DateTimeEntry.htm

 

[3154]

אפשר לעשות אותו דבר רק ב 4 ספרות בלי שניות?
ואיך משתמשים בקוד?

 

[ליכט]

אפשר לעשות אותו דבר רק ב 4 ספרות בלי שניות?

אותו קוד עובד גם על 4 ספרות

ואיך משתמשים בקוד?

ראה כאן: http://www.prog.co.il/showpost.php?p=942920&postcount=7
(שם מדובר על קוד אחר, אך השימוש הוא באותו דרך).

אחרי הדבקת הקוד במקום המתאים, צריך להכניס את הטווח הרצוי בתוך הקוד, איפה שרשום: ("A2:A1000")

 

[3154]

אבל איך מגיעים למקום שבו מכניסים את הקוד?

 

[3154]

תודה רבה
הסתדרתי.

 

[3154]

הקוד עובד מצוין. רק נשארו 2 בעיות:
1. הוא מודיע "הכנסת שעה לא חוקית" במקרים מסוימים. ( לא הבנתי איזה, אבל גם כשהשעה חוקית מבחינתי)
2. יש צורך לעמוד שוב על התא בכדי שיופיע השעה ולא 00:00.
האם יש דרך לסדר בעיות אלה?

 

[asf]

אפשר לעשות אותו דבר רק ב 4 ספרות בלי שניות?
ואיך משתמשים בקוד?

הצילצול בטעות

 

[יוסף76]

Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim TimeStr As String On Error GoTo EndMacro If Application.Intersect(Target, Range("A2:A1000")) Is Nothing Then Exit Sub End If If Target.Cells.Count > 1 Then Exit Sub End If If Target.Value = "" Then Exit Sub End If Application.EnableEvents = False With Target If .HasFormula = False Then Select Case Len(.Value) Case 1 ' e.g., 1 = 00:01 AM TimeStr = "00:0" & .Value Case 2 ' e.g., 12 = 00:12 AM TimeStr = "00:" & .Value Case 3 ' e.g., 735 = 7:35 AM TimeStr = Left(.Value, 1) & ":" & _ Right(.Value, 2) Case 4 ' e.g., 1234 = 12:34 TimeStr = Left(.Value, 2) & ":" & _ Right(.Value, 2) Case 5 ' e.g., 12345 = 1:23:45 NOT 12:03:45 TimeStr = Left(.Value, 1) & ":" & _ Mid(.Value, 2, 2) & ":" & Right(.Value, 2) Case 6 ' e.g., 123456 = 12:34:56 TimeStr = Left(.Value, 2) & ":" & _ Mid(.Value, 3, 2) & ":" & Right(.Value, 2) Case Else Err.Raise 0 End Select .Value = TimeValue(TimeStr) End If End With Application.EnableEvents = True Exit Sub EndMacro: MsgBox "לא הכנסת שעה חוקית" Application.EnableEvents = True End Sub

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

איך מוחקים את ה"AM" שמופיע בכל שעה עד 12:00???

תודה רבה