Hoe een dubbele punt tussen getallen invoegen om ze automatisch in een tijdformaat te maken in Excel?

Wanneer je tijdformaat invoegt in werkbladcellen, heb je je dan ooit geërgerd aan het telkens de dubbele punten te moeten typen? In dit artikel zal ik het hebben over hoe je een dubbele punt kunt invoegen wanneer je getallen invoert om ze automatisch in een tijdformaat te maken in Excel.

Voeg een dubbele punt tussen getallen in om ze als tijdformaat te maken met formules

Maak de getallen automatisch om naar tijdformaat wanneer je ze invoert met VBA-code

Voeg een dubbele punt tussen getallen in om ze als tijdformaat te maken met formules

Stel dat je een lijst met getallen hebt, om de dubbele punten in te voegen en ze als tijdformaat te maken, kunnen de volgende formules je helpen.

Als de getallen altijd 3 of 4 cijfers zijn, kun je deze formule gebruiken:

=TIJD(LINKS(A1;LENGTE(A1)-2);RECHTS(A1;2);0), sleep dan de vulgreep naar beneden naar de cellen waarin je deze formule wilt hebben, en je krijgt het volgende resultaat zoals je nodig hebt:

Als de getallen 5 of 6 cijfers zijn, pas dan deze formule toe:

=(INTEGER(A1/10000)&":"&INTEGER(MOD(A1;10000)/100)&":"&MOD(A1;100))+0, en sleep de vulgreep naar beneden naar de cellen waarin je deze formule wilt hebben, en je krijgt de nummervolgorde zoals in de volgende schermafbeelding te zien is:

Vervolgens moet je de getallen formatteren als tijdformaat door op Tijd te klikken in de vervolgkeuzelijst Algemeen onder het tabblad Start, zie screenshot:

Ontdek de Magie van Excel met Kutools AI

• Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
• Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
• VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
• Formule-uitleg: Begrijp complexe formules gemakkelijk.
• Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.

Verhoog uw Excel-mogelijkheden met AI-aangedreven tools. Download Nu en ervaar een ongekende efficiëntie!

Maak de getallen automatisch om naar tijdformaat wanneer je ze invoert met VBA-code

De volgende VBA-code kan je ook helpen om de getallen automatisch om te zetten naar tijdformaat wanneer je ze invoert, doe dit als volgt:

1. Ga naar het werkblad waar je automatisch dubbele punten in getallen wilt invoegen.

2. Klik met de rechtermuisknop op het bladtabblad en selecteer Weergave Code in het contextmenu, in het pop-upvenster Microsoft Visual Basic for Applications, kopieer en plak de volgende code in het lege Module-venster, zie screenshot:

VBA-code: Maak de getallen automatisch om naar tijdformaat:

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

Opmerking: In de bovenstaande code is A1:A20 de cellen waar je later tijd wilt invoeren, en je kunt de celverwijzing naar behoefte wijzigen.

3. En nu, wanneer je getallen zoals 102319 invoert in celbereik A1:A20, en vervolgens op Enter drukt, wordt het getal automatisch opgemaakt als 10:23:19 AM tijdformaat zoals je nodig hebt.