Question

我需要形成一个电子表格或程序，其中当我键入有关临床事件的文本时，各个行将自动输入日期和时间。

当我将文本输入到下一行时，我需要输入该时间，并且在另一列中输入自上一行输入以来经过的时间。

我搜索互联网已经有几个月了，因为很多年前我有一个“小”程序可以在Windows上做到这一点。但是现在我需要在Mac，iOS和Windows上都可以使用。我找不到任何费用，但是在那里看到很多东西来跟踪计费时间。我所有方面都有Excel，欢迎提出建议。我不是程序员，但是刚刚过去的一个朋友说他认为自己可以使用VB？预先感谢。

Answer 1

我不知道vba在苹果产品上是否有所不同，但这是可以完成的一种方法（至少在Windows中是这样）。

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ws As Worksheet
    Set ws = Target.Worksheet

    If Target.Column >= 2 Then
        ws.Range("A" & Target.Row).Value = Now()
        If Target.Row - 1 <> 0 Then
            ws.Range("B" & Target.Row).Value = DateDiff("s", ws.Range("A" & Target.Row - 1).Value, ws.Range("A" & Target.Row).Value)
        End If
    End If
End Sub

每当在该行的任何其他列中输入任何内容时，这都会在A列中添加时间戳，并将自上一行输入以来的时间（以秒为单位）放入B列中。注意：有限的错误检查。

需要帮助以自动输入日期和时间并计算自上一行输入以来经过的时间

1 个答案: