¿Cómo insertar dos puntos entre números para convertirlos automáticamente en formato de hora en Excel?

Cuando insertas formato de hora en las celdas de una hoja de cálculo, ¿te has molestado alguna vez con tener que escribir los dos puntos cada vez? En este artículo, hablaré sobre cómo insertar dos puntos al ingresar números para convertirlos automáticamente en formato de hora en Excel.

Insertar dos puntos entre números para convertirlos en formato de hora con fórmulas

Convertir automáticamente los números en formato de hora mientras los ingresas con código VBA

Insertar dos puntos entre números para convertirlos en formato de hora con fórmulas

Supongamos que tienes una lista de números, para insertar los dos puntos y convertirlos en formato de hora, las siguientes fórmulas pueden ayudarte.

Si los números siempre tienen 3 o 4 dígitos, puedes usar esta fórmula:

=TIME(LEFT(A1,LEN(A1)-2),RIGHT(A1,2),0), luego arrastra el controlador de relleno hacia abajo a las celdas donde deseas aplicar esta fórmula, y obtendrás el siguiente resultado según sea necesario:

Si los números tienen 5 o 6 dígitos, por favor aplica esta fórmula:

=(INT(A1/10000)&":"&INT(MOD(A1,10000)/100)&":"&MOD(A1,100))+0, y arrastra el controlador de relleno hacia abajo a las celdas donde deseas aplicar esta fórmula, y obtendrás la secuencia numérica como se muestra en la siguiente captura de pantalla:

Luego, debes formatear los números como formato de hora haciendo clic en Hora desde la lista desplegable General bajo la pestaña Inicio, ver captura de pantalla:

Descubre la Magia de Excel con Kutools AI

• Ejecución Inteligente: Realiza operaciones en celdas, analiza datos y crea gráficos, todo impulsado por comandos simples.
• Fórmulas Personalizadas: Genera fórmulas adaptadas para optimizar tus flujos de trabajo.
• Codificación VBA: Escribe e implementa código VBA sin esfuerzo.
• Interpretación de Fórmulas: Comprende fórmulas complejas con facilidad.
• Traducción de Texto: Supera las barreras del idioma dentro de tus hojas de cálculo.

Potencia tus capacidades de Excel con herramientas impulsadas por IA. ¡Descarga Ahora y experimenta una eficiencia como nunca antes!

Convertir automáticamente los números en formato de hora mientras los ingresas con código VBA

El siguiente código VBA también puede ayudarte a convertir automáticamente los números en formato de hora cuando los ingreses, por favor haz lo siguiente:

1. Ve a la hoja de cálculo donde deseas insertar dos puntos en los números automáticamente.

2. Haz clic derecho en la pestaña de la hoja y selecciona Ver Código desde el menú contextual; en la ventana emergente de Microsoft Visual Basic para Aplicaciones, copia y pega el siguiente código en la ventana del Módulo en blanco, ver captura de pantalla:

Código VBA: Convertir automáticamente los números en formato de hora:

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

Nota: En el código anterior, A1:A20 son las celdas donde deseas insertar la hora más tarde, y puedes cambiar la referencia de la celda según sea necesario.

3. Y ahora, cuando ingreses números como 102319 en el rango de celdas A1:A20, y luego presiones la tecla Intro, el número se formateará automáticamente como 10:23:19 AM en formato de hora según sea necesario.