Hoe een dubbele punt tussen getallen invoegen om ze automatisch als tijdnotatie in Excel te maken?
Heeft u zich ooit geïrriteerd door het elke keer typen van de dubbele punten wanneer u de tijdnotatie invoegt in werkbladcellen? In dit artikel zal ik het hebben over het invoegen van een dubbele punt wanneer u getallen invoert om ze automatisch als tijdnotatie in Excel te maken.
Voeg een dubbele punt tussen de getallen in om ze als tijdnotatie met formules te maken
Maak de nummers automatisch in het tijdformaat wanneer u ze invoert met VBA-code
Voeg een dubbele punt tussen de getallen in om ze als tijdnotatie met formules te maken
Stel dat je een lijst met getallen hebt, om de dubbele punten in te voegen en ze als tijdnotatie te maken, kunnen de volgende formules je een plezier doen.
Als de cijfers altijd uit 3 of 4 cijfers bestaan, kunt u deze formule gebruiken:
=TIME(LEFT(A1,LEN(A1)-2),RIGHT(A1,2),0), sleep vervolgens de vulgreep naar de cellen waarin u deze formule wilt hebben, en u krijgt het volgende resultaat als u nodig hebt:
Als de cijfers 5 of 6 cijfers zijn, past u deze formule toe:
=(INT(A1/10000)&":"&INT(MOD(A1,10000)/100)&":"&MOD(A1,100))+0, en sleep de vulgreep naar de cellen waarin u deze formule wilt hebben, en u krijgt de nummerreeks als volgt:
Vervolgens moet u de getallen in tijdnotatie opmaken door op te klikken Tijd van het Algemeen vervolgkeuzelijst onder de Home tabblad, zie screenshot:
Maak de nummers automatisch in het tijdformaat wanneer u ze invoert met VBA-code
De volgende VBA-code kan u ook helpen bij het automatisch converteren van de getallen naar het tijdformaat wanneer u ze invoert, doe dit als volgt:
1. Ga naar het werkblad dat u automatisch dubbele punten in getallen wilt invoegen.
2. Klik met de rechtermuisknop op de bladtab en selecteer Bekijk code vanuit het contextmenu, in de pop-out Microsoft Visual Basic voor toepassingen venster, kopieer en plak de volgende code in de lege ruimte Module venster, zie screenshot:
VBA-code: maak de nummers automatisch in 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
Opmerking: In de bovenstaande code, A1: A20 zijn de cellen die u later wilt invoegen, en u kunt de celverwijzing naar behoefte wijzigen.
3. En nu, wanneer u de getallen invoert, zoals 102319 in celbereik A1: A20, en vervolgens op drukt Enter toets, zal het nummer automatisch worden opgemaakt als 10:23:19 AM tijdformaat.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, 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 vermindert honderden muisklikken voor u elke dag!
