EXEL вопрос

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Ответить
Артур
Сообщения: 1
Зарегистрирован: 18 мар 2005, 13:15
Контактная информация:

как сделать чтоб я ставил значение в ячейку, а справа или слева (ячейки) автоматически ставилась дата ввода? было бы супер если бы и время ставилось..
Аватара пользователя
Naeel Maqsudov
Сообщения: 2570
Зарегистрирован: 20 фев 2004, 19:17
Откуда: Moscow, Russia
Контактная информация:

Alt+F11, затем открываем модуль нужного листа и вставляем туда следующее:

Код: Выделить всё

Dim noskip As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column < 255 And Not noskip Then
    noskip = True
    Target.Next = Now
    noskip = False
  End If
End Sub
Все.

Будет ли видно время или дата определите форматированием (меню Формат\ячейки)
Ответить