如何在Excel中自动插入冒号将数字转换为时间格式？

当您在工作表单元格中输入时间格式时，是否曾经为每次都要手动输入冒号而感到烦恼？本文将介绍如何在输入数字时自动插入冒号，使其成为时间格式的方法。

使用公式在数字间插入冒号并将其转换为时间格式

通过VBA代码在输入时自动将数字转换为时间格式

使用公式在数字间插入冒号并将其转换为时间格式

假设您有一列数字，需要插入冒号并将其转换为时间格式，以下公式可以帮助您完成此操作。

如果数字总是3位或4位数，您可以使用以下公式：

=TIME(LEFT(A1,LEN(A1)-2),RIGHT(A1,2),0)，然后向下拖动填充柄到您希望包含该公式的单元格，您将得到如下结果：

如果数字是5位或6位数，请应用以下公式：

=(INT(A1/10000)&":"&INT(MOD(A1,10000)/100)&":"&MOD(A1,100))+0，并向下拖动填充柄到您希望包含该公式的单元格，您将得到如下截图所示的数字序列：

然后，您需要通过点击“开始”选项卡下“常规”下拉列表中的“时间”来将数字格式化为时间格式，如下截图所示：

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！

通过VBA代码在输入时自动将数字转换为时间格式

以下VBA代码也可以帮助您在输入数字时自动将其转换为时间格式，请按照以下步骤操作：

1. 转到您希望自动在数字中插入冒号的工作表。

2. 右键单击工作表标签，然后从上下文菜单中选择“ 查看代码”。在弹出的“Microsoft Visual Basic for Applications”窗口中，请将以下代码复制并粘贴到空白的模块窗口中，如下截图所示：

VBA代码：自动将数字转换为时间格式：

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

注意：在上述代码中，A1:A20 是您稍后要插入时间的单元格，您可以根据需要更改单元格引用。

3. 现在，当您在单元格范围 A1:A20 中输入数字（例如 102319）并按下 Enter 键后，数字将自动格式化为您所需的 10:23:19 AM 时间格式。