Question

例如，假设Cell 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

<强>附加

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

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

在Excel中，有没有办法快速推进一个时间单元一分钟？

1 个答案: