Note: The other languages of the website are Google-translated. Back to English

Come inserire i due punti tra i numeri per renderli automaticamente in formato ora in Excel?

Quando inserisci il formato dell'ora nelle celle del foglio di lavoro, sei mai stato infastidito dal digitare ogni volta i due punti? In questo articolo, parlerò di come inserire i due punti quando si immettono i numeri per renderli automaticamente in formato ora in Excel.

Inserisci i due punti tra i numeri per renderli come formato ora con formule

Crea automaticamente i numeri in formato ora quando li inserisci con il codice VBA


freccia blu freccia destra Inserisci i due punti tra i numeri per renderli come formato ora con formule

Supponendo che tu abbia una lista di numeri, per inserire i due punti e renderli come formato ora, le seguenti formule possono farti un favore.

Se i numeri sono sempre 3 o 4 cifre puoi usare questa formula:

=TIME(LEFT(A1,LEN(A1)-2),RIGHT(A1,2),0), quindi trascina il quadratino di riempimento verso il basso sulle celle in cui desideri contenere questa formula e otterrai il seguente risultato di cui hai bisogno:

doc inserisce i due punti nei numeri 1

Se i numeri sono 5 o 6 cifre, applica questa formula:

=(INT(A1/10000)&":"&INT(MOD(A1,10000)/100)&":"&MOD(A1,100))+0e trascina il quadratino di riempimento verso il basso sulle celle in cui desideri contenere questa formula e otterrai la sequenza numerica come mostrato nella seguente schermata:

doc inserisce i due punti nei numeri 2

Quindi dovresti formattare i numeri come formato ora facendo clic su Tempo dal Generale elenco a discesa sotto il file Casa scheda, vedi screenshot:

doc inserisce i due punti nei numeri 3


freccia blu freccia destra Crea automaticamente i numeri in formato ora quando li inserisci con il codice VBA

Il seguente codice VBA può anche aiutarti a convertire automaticamente i numeri in formato ora quando li inserisci, per favore fai come segue:

1. Vai al foglio di lavoro in cui desideri inserire automaticamente i due punti nei numeri.

2. Fare clic con il pulsante destro del mouse sulla scheda del foglio e selezionare Visualizza codice dal menu contestuale, nel saltato fuori Microsoft Visual Basic, Applications Edition finestra, copia e incolla il seguente codice nello spazio vuoto Modulo finestra, vedi screenshot:

Codice VBA: crea automaticamente i numeri in formato ora:

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 inserisce i due punti nei numeri 4

NOTA: Nel codice sopra, A1: A20 sono le celle che vuoi inserire più tardi e puoi modificare il riferimento di cella secondo le tue necessità.

3. E ora, quando inserisci numeri come 102319 nell'intervallo di celle A1: A20, quindi premi Entra chiave, il numero verrà formattato automaticamente come formato orario 10:23:19 in base alle tue esigenze.

doc inserisce i due punti nei numeri 5


I migliori strumenti per la produttività in ufficio

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

  • Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
  • Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
  • Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
  • Più di 300 potenti funzionalità. Supporta Office/Excel 2007-2021 e 365. Supporta tutte le lingue. Facile implementazione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
scheda kte 201905

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
fondo officetab
Commenti (5)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
Grazie. Molto ben illustrato.
Questo commento è stato fatto dal moderatore sul sito
如果只要時跟分以及24小時制,請問可以怎麼改?
Questo commento è stato fatto dal moderatore sul sito
Ciao, Kyra,
你可以嘗試使用下面的vba來實現: (只顯示時和分)

Private Sub Worksheet_Change (ByVal Target As Excel.Range)
Dim xStr come stringa
Dim xVal come stringa
In caso di errore Vai a EndMacro
Se Application.Intersect(Target, Range("A1:A20")) non è nulla, allora esci da Sub
Se Target.Count > 1 Quindi esci da Sub
Se Target.Value = "" Quindi esci da Sub
Application.EnableEvents = False
Con Obiettivo
Se non .HasFormula allora
xVal = .Valore
Seleziona Caso Len(xVal)
Caso 1 ' ad esempio, 1 = 00:01
xStr = "00:0" & xVal
Caso 2 ' ad esempio, 12 = 00:12
xStr = "00:" & xVal
Caso 3 ' ad esempio, 735 = 7:35
xStr = Sinistra(xVal, 1) & ":" & Destra(xVal, 2)
Caso 4 ' es. 1234 = 12:34
xStr = Sinistra(xVal, 2) & ":" & Destra(xVal, 2)
Caso 5 ' es. 12345 = 1:23:45 NON 12:03:45
xStr = Left(xVal, 1) & ":" & Mid(xVal, 2, 2) & ":" & Right(xVal, 2)
Caso 6 ' es. 123456 = 12:34:56
xStr = Left(xVal, 2) & ":" & Mid(xVal, 3, 2) & ":" & Right(xVal, 2)
Case Else
Err.Rilancia 0
End Select
.Valore = Formato(ValoreOra(xStr), "Tempo breve")
End If
Fine Con
Application.EnableEvents = True
Exit Sub
FineMacro:
MsgBox "Non hai inserito un orario valido"
Application.EnableEvents = True
End Sub
Questo commento è stato fatto dal moderatore sul sito
In una versione precedente di Windows sono stato in grado di cambiare il delimitatore di tempo dei due punti in un altro carattere (di solito un asterisco) per rendere più facile e veloce l'immissione di molti dati temporali. C'è ancora un modo per farlo o è stato "nuovo e migliorato" nell'oblio?
Questo commento è stato fatto dal moderatore sul sito
qualcuno sa come eseguire questa macro su fogli di google per favore?
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite

Seguici

Copyright © 2009 - www.extendoffice.com. | Tutti i diritti riservati. Offerto da ExtendOffice, | Mappa del sito
Microsoft e il logo Office sono marchi o marchi registrati di Microsoft Corporation negli Stati Uniti e / o in altri paesi.
Protetto da Sectigo SSL