Нужна помощь для автоматического ввода даты и времени и расчета времени, прошедшего с момента ввода предыдущей строки - PullRequest
0 голосов
/ 26 октября 2018

Мне нужно сформировать электронную таблицу или программу, в которой в отдельных строках будет автоматически вводиться дата и время, когда я набираю текст в отношении клинического события.

Когда я вводил бы текст в следующую строку, мне нужно, чтобы он вводил это время, И в другом столбце укажите время, прошедшее с момента ввода предыдущей строки.

Я искал в Интернете несколько месяцев, так как у меня была «маленькая» программа, которая могла делать это в Windows много лет назад. Но теперь мне нужно такое для работы на Mac, iOS и, надеюсь, Windows. Я не могу ничего найти любой ценой, но многое вижу, чтобы отслеживать время для выставления счетов. У меня есть Excel на всех, и приветствую предложения. Я не программист, но друг, который только что прошел, сказал, что он думал, что может сделать с VB? Заранее спасибо.

1 Ответ

0 голосов
/ 26 октября 2018

Я не знаю, отличается ли vba от продуктов Apple, но вот один из способов, которым это можно сделать (по крайней мере, в 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 (в секундах) всякий раз, когда что-либо вводится в любой другой столбец в этой строке. Примечание: проверка ошибок ограничена.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...