excel - 在 Excel 中，有什么方法可以将时间单元快速提前一分钟？

Question

例如，假设单元格 A1 的值为 11:37:00 PM（显示为 23:37）。我想单击单元格并立即将其推进到晚上 11:38:00（显示为 23:38）。不得不删除并将新的时间值输入到顶部的区域中，这很烦人。

Answer 1

这将使您能够单击 A 列中的任何单元格并添加 1 分钟。将此子添加到要添加分钟的工作表中。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 1 Then 'edit this to change a different column
        Cells(Target.Row, Target.Column).Value = Cells(Target.Row, Target.Column) + TimeValue("00:01:00")
    End If
End Sub

额外的

如果您有日期并且不想更新日期，请使用它。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 1 Then 'edit this to change a different column
        var = DateValue(Cells(Target.Row, Target.Column).Value)
        Cells(Target.Row, Target.Column).Value = Cells(Target.Row, Target.Column) + TimeValue("00:01:00")
        var2 = DateValue(Cells(Target.Row, Target.Column).Value)
        If var <> var2 Then
            Cells(Target.Row, Target.Column).Value = Cells(Target.Row, Target.Column).Value - 1
        End If
    End If
End Sub