Здраствуйте.
Имеется таблица, в которой ведется учет клиентов детской комнаты. По сути - журнал посещений.
Время прибытия ребенка, после заполнения ячейки "Имя" , автоматически ставится в ячейку напротив макросом:
Однако часто возникает необходимость исправить имя, но время должно оставаться прежним.
Пример прилагается
Заранее спасибо.
Имеется таблица, в которой ведется учет клиентов детской комнаты. По сути - журнал посещений.
Время прибытия ребенка, после заполнения ячейки "Имя" , автоматически ставится в ячейку напротив макросом:
Код |
---|
Private Sub Worksheet_Change(ByVal Target As Range) For Each cell In Target If Not Intersect(cell, Range("A:A")) Is Nothing Then With cell.Offset(0, 3) .Value = Now .EntireColumn.AutoFit End With End If Next cell End Sub |
Однако часто возникает необходимость исправить имя, но время должно оставаться прежним.
Пример прилагается
Заранее спасибо.