Wie füge ich einen Doppelpunkt zwischen Zahlen ein, um sie automatisch als Zeitformat in Excel zu erstellen?
Haben Sie sich beim Einfügen des Zeitformats in Arbeitsblattzellen jemals darüber geärgert, jedes Mal die Doppelpunkte einzugeben? In diesem Artikel werde ich darüber sprechen, wie Sie einen Doppelpunkt einfügen, wenn Sie Zahlen eingeben, um sie automatisch als Zeitformat in Excel zu erstellen.
Fügen Sie einen Doppelpunkt zwischen Zahlen ein, um sie als Zeitformat mit Formeln zu erstellen
Stellen Sie die Zahlen automatisch auf das Zeitformat ein, wenn Sie sie mit VBA-Code eingeben
Fügen Sie einen Doppelpunkt zwischen Zahlen ein, um sie als Zeitformat mit Formeln zu erstellen
Angenommen, Sie haben eine Liste mit Zahlen, um die Doppelpunkte einzufügen und als Zeitformat festzulegen. Die folgenden Formeln können Ihnen einen Gefallen tun.
Wenn die Zahlen immer 3 oder 4 Ziffern sind, können Sie diese Formel verwenden:
=TIME(LEFT(A1,LEN(A1)-2),RIGHT(A1,2),0)Ziehen Sie dann den Füllpunkt nach unten zu den Zellen, in denen diese Formel enthalten sein soll, und Sie erhalten bei Bedarf das folgende Ergebnis:
Wenn die Zahlen 5 oder 6 Ziffern sind, wenden Sie bitte diese Formel an:
=(INT(A1/10000)&":"&INT(MOD(A1,10000)/100)&":"&MOD(A1,100))+0Ziehen Sie den Füllpunkt nach unten zu den Zellen, in denen diese Formel enthalten sein soll. Die folgende Zahlenfolge wird angezeigt:
Dann sollten Sie die Zahlen als Zeitformat formatieren, indem Sie auf klicken Uhrzeit von dem Allgemeines Dropdown-Liste unter Home Registerkarte, siehe Screenshot:
Stellen Sie die Zahlen automatisch auf das Zeitformat ein, wenn Sie sie mit VBA-Code eingeben
Der folgende VBA-Code kann Ihnen auch dabei helfen, die Zahlen bei der Eingabe automatisch in das Zeitformat zu konvertieren. Gehen Sie dazu folgendermaßen vor:
1. Gehen Sie zu dem Arbeitsblatt, in das Sie automatisch Doppelpunkte in Zahlen einfügen möchten.
2. Klicken Sie mit der rechten Maustaste auf die Registerkarte Blatt und wählen Sie Code anzeigen aus dem Kontextmenü in der herausgesprungenen Microsoft Visual Basic für Applikationen Fenster, bitte kopieren Sie den folgenden Code und fügen Sie ihn in das Feld ein Modul Fenster, siehe Screenshot:
VBA-Code: Automatische Anpassung der Zahlen an das Zeitformat:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Updateby Extendoffice 20160606
Dim xStr As String
Dim xVal As String
On Error GoTo EndMacro
If Application.Intersect(Target, Range("A1:A20")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
Application.EnableEvents = False
With Target
If Not .HasFormula Then
xVal = .Value
Select Case Len(xVal)
Case 1 ' e.g., 1 = 00:01 AM
xStr = "00:0" & xVal
Case 2 ' e.g., 12 = 00:12 AM
xStr = "00:" & xVal
Case 3 ' e.g., 735 = 7:35 AM
xStr = Left(xVal, 1) & ":" & Right(xVal, 2)
Case 4 ' e.g., 1234 = 12:34
xStr = Left(xVal, 2) & ":" & Right(xVal, 2)
Case 5 ' e.g., 12345 = 1:23:45 NOT 12:03:45
xStr = Left(xVal, 1) & ":" & Mid(xVal, 2, 2) & ":" & Right(xVal, 2)
Case 6 ' e.g., 123456 = 12:34:56
xStr = Left(xVal, 2) & ":" & Mid(xVal, 3, 2) & ":" & Right(xVal, 2)
Case Else
Err.Raise 0
End Select
.Value = TimeValue(xStr)
End If
End With
Application.EnableEvents = True
Exit Sub
EndMacro:
MsgBox "You did not enter a valid time"
Application.EnableEvents = True
End Sub
Hinweis: In dem obigen Code, A1: A20 ist die Zelle, die Sie später einfügen möchten, und Sie können die Zellreferenz nach Bedarf ändern.
3. Und jetzt, wenn Sie die Zahlen wie 102319 im Zellenbereich A1: A20 eingeben und dann drücken Enter Taste, die Nummer wird automatisch nach Bedarf als Zeitformat 10:23:19 formatiert.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!