在Excel中，有没有什么办法可以快速提前一个时间单元？

例如，假设单元格A1的值为11:37:00 PM（显示为23:37）。 我想单击单元格并立即将其推进到11:38:00 PM（显示为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 

额外

如果你有date，不想更新date，使用这个。

 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