在单元格中声明数值是小时

Question

我想在单元格中声明一个特定的值是一小时。例如，我在一个单元格中有24个，我希望将其视为24小时。

这样我可以使用公式来计算新的日期和时间。

我有一个我需要直接使用数小时的数字列表。

24 - Need to represent as 24 hours
13 - Need to represent as 13 hours
14 - Need to represent as 14 hours
6 - Need to represent as 6 hours
8 - Need to represent as 8 hours

Answer 1

选择您要处理的单元格并运行此短宏：

Sub HourByHour()
    Dim r As Range

    For Each r In Selection
        If r.Value <> "" And IsNumeric(r) Then
            r.Value = TimeSerial(r.Value, 0, 0)
            r.NumberFormat = "h"
        End If
    Next r
End Sub

修改＃1：

要将24显示为24，请改用此宏：

Sub HourByHour()
    Dim r As Range

    For Each r In Selection
        If r.Value <> "" And IsNumeric(r) Then
            r.Value = TimeSerial(r.Value, 0, 0)
            r.NumberFormat = "[h]"
        End If
    Next r
End Sub

Answer 2

试试这个vba。选择该组并运行：

Sub hr()
Selection.NumberFormat = "[hh]:mm:ss"
Selection.Value = ActiveSheet.Evaluate("INDEX(INT(" & Selection.Address(0, 0) & "/24)+TIME(" & Selection.Address(0, 0) & ", 0, 0),)")

End Sub

对于公式版本：

在空栏中：

=INT(A1/24)+Time(A1,,)

并复制下来。然后将值复制并粘贴到所需的列上，并格式化该列[hh]:mm:ss

Answer 3

如果您想将其视为时间价值，为什么不将它作为时间价值？ 如果是一次性操作，您可以使用“选择性粘贴”将整个单元格除以24，或者可以使用=RC[-1]/24创建其他列。

以天为单位存储值的好处是，当您使用数字格式[h]时，它会正确格式化，此外您只需​​将值一起添加或将它们添加到日期字段。