Можно ли на одном листе использовать макрос для проставления даты и времени мне нужно именно не добиться этого форматированием ячеек а создать макрос на одном листе NOW и TIME для дальнейших вычислений как объединить такие макросы не знаю?
Код |
---|
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub 'если выделена не одна ячейка - выход из процедуры
Rem если изменененная ячейка попадает в диапазон
If Not Intersect(Target, Range("B7:B10000")) Is Nothing Then
With Target.Offset(0, 2) 'вводим в соседнюю справа ячейку дату
.Value = Time
.EntireColumn.AutoFit 'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке
End With
End If
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub 'если выделена не одна ячейка - выход из процедуры
Rem если изменененная ячейка попадает в диапазон
If Not Intersect(Target, Range("E7:E10000")) Is Nothing Then
With Target.Offset(0, 2) 'вводим в соседнюю справа ячейку дату
.Value = Now
.EntireColumn.AutoFit 'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке
End With
End If
End Sub
|