Здравствуйте.
Моя цель такова. Ввожу числа в ячейку А2:А100 и происходит вставка текущей даты в ячейку В2:В100. Как мне здвинуть начало новой даты на 3 часа на зад. Чтобы 05.03.2021 числа в 2:59:00 дата вводилась 04.03.2021 а 05.03.2021 числа в 3:00:00 уже вводилась 05.03.2021.
Благодарю.
Информация
Моя цель такова. Ввожу числа в ячейку А2:А100 и происходит вставка текущей даты в ячейку В2:В100. Как мне здвинуть начало новой даты на 3 часа на зад. Чтобы 05.03.2021 числа в 2:59:00 дата вводилась 04.03.2021 а 05.03.2021 числа в 3:00:00 уже вводилась 05.03.2021.
Благодарю.
| Код |
|---|
Private Sub Worksheet_Change(ByVal Target As Range)
For Each cell In Target 'проходим по всем измененным ячейкам
If Not Intersect(cell, Range("A2:A100")) Is Nothing Then 'если изменененная ячейка попадает в диапазон A2:A100
With cell.Offset(0, 1) 'вводим в соседнюю справа ячейку дату
.Value = Date
End With
End If
Next cell
End Sub
|
Информация
Изменено: - 05.03.2021 12:06:52
