Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe dubbele waarden tussen getallen in te voegen om ze automatisch als tijdnotatie in Excel te maken?

Wanneer u tijdnotaties in werkbladcellen invoegt, heeft u zich dan ooit geïrriteerd over het elke keer typen van de dubbele punten? In dit artikel zal ik het hebben over het invoegen van dubbele punt bij het invoeren van getallen om ze automatisch als tijdnotatie in Excel te maken.

Voeg dubbele punt tussen cijfers in om ze als tijdnotatie te maken met formules

Maak de nummers automatisch naar het tijdformaat wanneer u ze invoert met VBA-code


pijl blauwe rechterbel Voeg dubbele punt tussen cijfers in om ze als tijdnotatie te maken met formules


Stel dat u een lijst met nummers hebt, om de dubbele punten in te voegen en ze als tijdnotatie te maken, kunnen de volgende formules u een plezier doen.

Als de nummers altijd 3- of 4-cijfers zijn, kunt u deze formule gebruiken:

=TIME(LEFT(A1,LEN(A1)-2),RIGHT(A1,2),0), sleep dan de vulgreep naar de cellen die u deze formule wilt laten bevatten, en u krijgt het volgende resultaat als u dat nodig hebt:

doc invoeg dubbele punt in cijfers 1

Als de cijfers 5- of 6-cijfers zijn, moet u deze formule toepassen:

=(INT(A1/10000)&":"&INT(MOD(A1,10000)/100)&":"&MOD(A1,100))+0, en sleep de vulgreep naar de cellen die u deze formule wilt laten bevatten, en u krijgt de nummerreeks als volgt:

doc invoeg dubbele punt in cijfers 2

Vervolgens moet u de getallen opmaken als tijdnotatie door op te klikken Tijd van de Algemeen drop-down lijst onder de Home tab, zie screenshot:

doc invoeg dubbele punt in cijfers 3


pijl blauwe rechterbel Maak de nummers automatisch naar het tijdformaat wanneer u ze invoert met VBA-code

De volgende VBA-code kan je ook helpen bij het automatisch converteren van de getallen naar het tijdformaat wanneer je ze invoert, doe dit als volgt:

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

2. Klik met de rechtermuisknop op het bladentabblad en selecteer Bekijk code uit het contextmenu, in de popped out Microsoft Visual Basic voor toepassingen venster, kopieer en plak de volgende code in de blanco module venster, zie screenshot:

VBA-code: maak de nummers automatisch naar het 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

doc invoeg dubbele punt in cijfers 4

Let op: In de bovenstaande code, A1: A20 zijn de cellen die u later wilt invoegen en u kunt de celverwijzing naar uw behoefte wijzigen.

3. En nu, wanneer u de getallen zoals 102319 invoert in celbereik A1: A20, en druk dan op invoeren toets, wordt het nummer automatisch geformatteerd als 10: 23: 19 AM tijdnotatie zoals u nodig hebt.

doc invoeg dubbele punt in cijfers 5


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Inhoud gesplitste cellen; Combineer dubbele rijen / kolommen... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Dave · 2 months ago
    In an earlier version of windows I was able to change the colon time delimiter to another character (usually an asterisk) to make it easier and faster to enter lots of time data. Is there still a way to do this or has it been "new & improved" into oblivion?
  • To post as a guest, your comment is unpublished.
    kyra · 1 years ago
    如果只要時跟分以及24小時制,請問可以怎麼改?
    • To post as a guest, your comment is unpublished.
      skyyang · 1 years ago
      Hi, kyra,
      你可以嘗試使用下面的vba來實現: (只顯示時和分)

      Private Sub Worksheet_Change(ByVal Target As Excel.Range)
      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 = Format(TimeValue(xStr), "Short Time")
      End If
      End With
      Application.EnableEvents = True
      Exit Sub
      EndMacro:
      MsgBox "You did not enter a valid time"
      Application.EnableEvents = True
      End Sub
  • To post as a guest, your comment is unpublished.
    Steven · 1 years ago
    Thank you. Very well illustrated.