Макрос для отметок времени за день
Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range Dim адрес As String Dim адрес_я1 As String On Error Resume Next Set KeyCells = Range("D:D") If Not Application.Intersect(KeyCells, Range(Target.Address)) _ Is Nothing Then адрес = Target.Address адрес_я1 = Replace(адрес, "$D", "$A", 1, 1) адрес_я2 = Replace(адрес, "$D", "$B", 1, 1) строка = Range(адрес_я2).Row - 1 столбец = Range(адрес_я2).Column адрес_я2_выше = Cells(строка, столбец).Address адрес_я3_выше = Replace(адрес_я2_выше, "$B", "$C", 1, 1) адрес_я1_выше = Replace(адрес_я2_выше, "$B", "$A",...