текущая дата в excel

Ответ от Иван Леконтцев[гуру]
формула:
=ЕСЛИ (B1>0;СЕГОДНЯ ();"")
Если В1 больше нуля-вставляет текущую дату, иначе пусто-пусто.
Не забудьте ячейки с формулой перевести в формат даты. Так же можно поэкспериментировать с форматом даты...

Ответ от Владимир Беликов[гуру]
=now()
вставь в ячейку

Ответ от Dmitriy[мастер]
Есть конечно функция СЕГОДНЯ (), но она будет пересчитываться по текущей дате, поэтому не очень подходит (копировать вручную значение тоже не вариант) .
Полуавтоматический вариант предложить сходу могу 🙂
Создаём макрос:
Sub TodayDay()
Cells(ActiveCell.Row, 1).Value = Date
End Sub
Назначаем макросу горячую клавишу (например Ctrl-D), после ввода данных в столбце B нажимаетм TAB(чтобы покинуть ячейку, но остаться в той-же строке) , потом Ctrl-D.
Если удобнее завершение редактирования по ENTER, то надо в макросе поправить строку куда будет вставляться дата - Cells(ActiveCell.Row - 1, 1).
|======================================================|
Более автоматизированный вариант.
Создаём для ДАННОГО листа макрос:
Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Column = 3 Then
Cells(ActiveCell.Row, 1).Value = Date
End If
If ActiveCell.Column = 2 Then
Cells(ActiveCell.Row - 1, 1).Value = Date
End If
End Sub
При изменении листа проверяется колонка - если третья, значит завершение ввода было по табу (пишем дату в туже строку, в первую колонку) ; если вторая, значит было завершение ввода данных по ENTER(пишем дату в предидущей строке, в первую колонку) .
На 2003-ем работает.
<updated>
Если после ввода данных во втором столбце завершать ввод кликом мышки куда попало, то этот макрос толку никакого не даст 🙁
</updated>

Ответ от ЂриМ[гуру]
через формулу подставить дату и потом маркером автозаполнения заполнять весь столбец А

Ответ от 3 ответа[гуру]

Ответ от 3 ответа[гуру]