Добрый день. Как вставить сегодняшную дату без времени
.Value = Now() - Этой функцией вставляется дата и время "07.07.2023 14:49:45"
Мне нужно чтобы вставлялась дата без времени
Вот полностью функция
.Value = Now() - Этой функцией вставляется дата и время "07.07.2023 14:49:45"
Мне нужно чтобы вставлялась дата без времени
Вот полностью функция
Код |
---|
Private Sub Worksheet_Change(ByVal Target As Range) For Each cell In Target 'проходим по всем измененным ячейкам If Not Intersect(cell, Range("B2:B10000")) Is Nothing Then 'если изменененная ячейка попадает в диапазон A2:A100 With cell.Offset(0, -1) 'вводим в соседнюю слева ячейку дату .Value = Now() End With End If Next cell End Sub |