Здраствуйте.
Имеется таблица, в которой ведется учет клиентов детской комнаты. По сути - журнал посещений.
Время прибытия ребенка, после заполнения ячейки "Имя" , автоматически ставится в ячейку напротив макросом:
Однако часто возникает необходимость исправить имя, но время должно оставаться прежним.
Пример прилагается
Заранее спасибо.
Имеется таблица, в которой ведется учет клиентов детской комнаты. По сути - журнал посещений.
Время прибытия ребенка, после заполнения ячейки "Имя" , автоматически ставится в ячейку напротив макросом:
| Код |
|---|
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 |
Однако часто возникает необходимость исправить имя, но время должно оставаться прежним.
Пример прилагается
Заранее спасибо.
