Цитата:
Сообщение от Kayra
Способ для чайников
|
(патетично) Мда. И это гордость отечественной науки. Вышел из забоя, глянул, а тут такой позор: элементарную вещь написать не могут...
Maksimus, только ради Вас оторвался от производства. Цените.
Код:
Option Explicit
' Обратите внимание! Это функция конкретного листа, она должна быть там, а не в модуле
' Откройте VBA проект, выберите лист и по правой кнопке мыши Viev Code
' В открывшееся окно скопируйте программу. Работает по двойному нажатию
'
' Копирайт (ц) 2013 Hogfather. Олл райтс резервед
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo ErrorEvent
' Только одна ячейка
If Target.Cells.Count > 1 Then
Exit Sub
End If
' Чтобы избежать зацикливания
Application.EnableEvents = False
' Если ячейка пустая -- ставим дату
If Target.Offset(0, 0).Value = "" Or IsNull(Target.Offset(0, 0).Value) Then
Target.Offset(0, 0).Value = Date
End If
ExitNormally:
' Возвращаем всё взад
Application.EnableEvents = True
Exit Sub
ErrorEvent:
MsgBox Err.Description
Resume ExitNormally
End Sub