Excel VBA; создание оповещения об изменении временной переменной - PullRequest
0 голосов
/ 24 января 2020

Я новичок и я делаю изменение / контроль времени, когда кто-либо меняет ячейку в определенном диапазоне (A1: A5), следующая ячейка справа стирается (если изменение было в A1, то B1 стирается), пока все хорошо, дело в том, что мне нужно окно сообщения, которое появится, если B1 не претерпел никаких изменений на прошлой неделе, это возможно? Я сплю...?

До сих пор это код, который я использовал (взятый из другого ответа BTW) для контроля изменений, но для контроля времени у меня есть ключ = 0.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet
Dim cel As Range
Dim myRow As Long

Set ws = ThisWorkbook.Sheets("Sheet1")

If Not Intersect(Target, Range("F5:F12")) Is Nothing Then ' watch all the cells in this range
    For Each cel In Target ' do the next steps for each cell that was changed
        myRow = cel.Row
        Range("G" & myRow).ClearContents
        Application.EnableEvents = False
        If IsEmpty(ws.Range("A" & myRow)) Then Sheet1.Range("A" & myRow).Value = ""
        Application.EnableEvents = True
    Next cel
End If

End Sub






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