将时间格式从 600 等数字更改为 06:00:00

Question

我有两个工作簿，A 和 B，以及两个工作簿中的两个工作表，1 和 2。我需要根据时间比较并找到匹配项。在工作表 1 的工作簿 B 中，我有 hh:mm:ss 24 小时时间格式。但在工作簿 A 中，我的时间以数字格式显示，如 600 和 800 等。我已将工作簿 1 中的时间格式更改为 hh:mm:ss 但第一次运行后遇到的问题time 是时间已更改为 06:00:00，在第二次运行时再次更改为 00:00:00。

    Dim rCell As Range
    Dim iHours As Integer
    Dim iMins As Integer
    Dim lrow As Long
    Dim rn As Range

    lrow = Sot.Range("d" & Rows.Count).End(xlUp).Row
    Sot.Activate
    Set rCell = Sot.Range(Cells(5, 4), Cells(lrow, 5))

    For Each rn In rCell
        If IsNumeric(rn.Value) And Len(rn.Value) > 0 Then
            iHours = rn.Value \ 100
            iMins = rn.Value Mod 100
            rn.Value = (iHours + iMins / 60) / 24
            rn.NumberFormat = "h:mm:ss"
        End If
    Next

    For i = 5 To eRowplan
        Time_from = Sotplan.Range("D" & i).Value
        Time_To = Sotplan.Range("E" & i).Value
        Time_from = TimeSerial(Hour(Time_from), Minute(Time_from), 
        Second(Time_from))
        Time_To = TimeSerial(Hour(Time_To), Minute(Time_To), Second(Time_To))
        If B_Time > "24:00" Then B_Time = "23:59"
        B_Time = TimeSerial(Hour(B_Time), Minute(B_Time), Second(B_Time))

我试过上面的代码

Answer 1

如果您想要VBA 解决方案，例如，您可以使用以下方法进行操作。 600 = 600 分钟

Dim c

For Each c In Selection
    c.Value2 = c / (24 * 60)
    c.NumberFormat = "hh:mm"
Next c

或者只使用= A1 / (24 * 60) 并格式化为Time

---

cmets 后更新

对于 600 = 06:00:00，您可以使用以下内容

Dim c, tmpTime As Variant

For Each c In Selection
    ' Test if number
    If IsNumeric(c.Value2) Then
        ' Split into character array, the Len(c.Value2) limits the size of the array otherwise
        ' an additional empty element is created
        tmpTime = Split(StrConv(c.Value2, vbUnicode), Chr$(0), Len(c.Value2))
        ' Write results back and format
        With c.Offset(0, 1)
            .Value2 = Join(tmpTime, ":")
            .NumberFormat = "hh:mm:ss"
        End With
    End If
Next c