¿Cómo insertar dos puntos entre números para convertirlos en formato de hora automáticamente en Excel?
Cuando inserta el formato de hora en las celdas de la hoja de trabajo, ¿alguna vez le ha molestado escribir los dos puntos cada vez? En este artículo, hablaré sobre cómo insertar dos puntos al ingresar números para convertirlos en formato de hora automáticamente en Excel.
Inserte dos puntos entre los números para convertirlos en formato de hora con fórmulas
Realice automáticamente los números al formato de hora cuando los ingrese con el código VBA
Inserte dos puntos entre los números para convertirlos en formato de hora con fórmulas
Suponiendo que tiene una lista de números, para insertar los dos puntos y hacerlos como formato de hora, las siguientes fórmulas pueden hacerle un favor.
Si los números son siempre de 3 o 4 dígitos, puede utilizar esta fórmula:
=TIME(LEFT(A1,LEN(A1)-2),RIGHT(A1,2),0), luego arrastre el controlador de relleno hacia las celdas que desea que contengan esta fórmula, y obtendrá el siguiente resultado que necesite:
Si los números son de 5 o 6 dígitos, aplique esta fórmula:
=(INT(A1/10000)&":"&INT(MOD(A1,10000)/100)&":"&MOD(A1,100))+0y arrastre el controlador de relleno hacia las celdas que desea que contengan esta fórmula, y obtendrá la secuencia numérica como se muestra en la siguiente captura de pantalla:
Luego, debe formatear los números como formato de hora haciendo clic en Horario del desplegable General lista desplegable debajo del Inicio pestaña, ver captura de pantalla:
Realice automáticamente los números al formato de hora cuando los ingrese con el código VBA
El siguiente código VBA también puede ayudarlo a convertir automáticamente los números al formato de hora cuando los ingrese, haga lo siguiente:
1. Vaya a la hoja de trabajo en la que desea insertar dos puntos en los números automáticamente.
2. Haga clic con el botón derecho en la pestaña de la hoja y seleccione Ver código en el menú contextual, en el emergente Microsoft Visual Basic para aplicaciones ventana, copie y pegue el siguiente código en el espacio en blanco Módulo ventana, ver captura de pantalla:
Código de VBA: haga automáticamente los números al 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 que desea insertar más tarde, y puede cambiar la referencia de celda según sus necesidades.
3. Y ahora, cuando ingrese los números como 102319 en el rango de celdas A1: A20, y luego presione Participar , el número se formateará como el formato de hora 10:23:19 AM automáticamente según lo necesite.
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!