Я новичок и я делаю изменение / контроль времени, когда кто-либо меняет ячейку в определенном диапазоне (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