Присвоение даты и время автоматически

[F@VORIT]

Доброго времени суток!
хотелось бы узнать есть ли возмоность присвоения даты и времени автоматически и как это сделать? Например в одной графе мы пишим сообщения, а параллельно высвечивается дата и время!

[DiemonStar]

=СЕГОДНЯ()

вносите в нужную ячейку формулу и получите там текущую дату.
Если нужно чтобы дата сохранялась, то нужен макрос:

Private Sub Worksheet_Change(ByVal Target As Range)
  Num1 = 1 'Номер столбца для ввода данных
  Num2 = 2 'Номер столбца для вывода времени
  If Target.Cells(1, 1).Column = Num1 Then
    Cells(Target.Cells(1, 1).Row, Num2) = Now()
  End If
End Sub

[IgorGO]

ну, а чтобы еще и время... то это =ТДАТА

[eikhner]

Сообщение от DiemonStar

=СЕГОДНЯ()

вносите в нужную ячейку формулу и получите там текущую дату.
Если нужно чтобы дата сохранялась, то нужен макрос:

Private Sub Worksheet_Change(ByVal Target As Range)
  Num1 = 1 'Номер столбца для ввода данных
  Num2 = 2 'Номер столбца для вывода времени
  If Target.Cells(1, 1).Column = Num1 Then
    Cells(Target.Cells(1, 1).Row, Num2) = Now()
  End If
End Sub

А если время вместе датой необходимо в ячеике ? Now на что поменять ? Тдата как по анхлийски ?

[Serge 007]

Сообщение от eikhner

Тдата как по анхлийски ?

ТДАТА=NOW
2012-10-19.gif

[staniiislav]

Сообщение от eikhner

А если время вместе датой необходимо в ячеике ? Now на что поменять ? Тдата как по анхлийски ?

что у вас не получается вам же дали пример даты и времени в одной ячейке сразу

Private Sub Worksheet_Change(ByVal Target As Range)
  Num1 = 1 'Номер столбца для ввода данных
  Num2 = 2 'Номер столбца для вывода времени
  If Target.Cells(1, 1).Column = Num1 Then
    Cells(Target.Cells(1, 1).Row, Num2) = Now()
  End If
End Sub

[staniiislav]

если вам нужно для всего столбца А
то так можно:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 1 Then
    Cells(Target.Row, Target.Column + 1) = Now()
  End If
End Sub

[eikhner]

все разобрался , спасибо всем , просто дата влезала , а со временем не хватало ширины столбца и поэтому были одни решетки , раздвинул и все пошло
сорри , туплю

[Yakim-arz]

Сообщение от DiemonStar

=СЕГОДНЯ()

вносите в нужную ячейку формулу и получите там текущую дату.
Если нужно чтобы дата сохранялась, то нужен макрос:

Private Sub Worksheet_Change(ByVal Target As Range)
  Num1 = 1 'Номер столбца для ввода данных
  Num2 = 2 'Номер столбца для вывода времени
  If Target.Cells(1, 1).Column = Num1 Then
    Cells(Target.Cells(1, 1).Row, Num2) = Now()
  End If
End Sub

Подскажите, если нужно применение макроса по столбцу, но не с первой строки. Как можно задать такой диапазон?

[Aleksandr H.]

If Target.Row > 1 then ...