Как вставить дату/время по двойному клику в разных столбцах

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Как вставить дату/время по двойному клику в разных столбцах - Мир MS Excel

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Как вставить дату/время по двойному клику в разных столбцах (Макросы/Sub)

Как вставить дату/время по двойному клику в разных столбцах

rabbit3000

Дата: Понедельник, 07.04.2014, 07:39 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Здравствуйте!

Подскажите, пжлст, как мне сделать так чтобы в 3м столбце листа по двойному клику вставлялась текущая дата в формате ДД.ММ.ГГ, а в 4м столбце вставлялась время в формате ЧЧ.ММ.СС и причем была проверка на наличие записи. Т.е. если ячейка не пуская, то переходим в режим редактирования.

Если не сложно, то дайте код целиком, т.к. к сожалению в программирование нифига не смыслю(((

Код у меня такой:
[vba]

Код

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     On Error GoTo ErrorEvent
     If Target.Column <> 3 Then
         Target = Format(Time, "Long Time")
         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
         Cancel = True

     End If

ExitNormally:
     Application.EnableEvents = True
     Exit Sub
ErrorEvent:
     MsgBox Err.Description
     Resume ExitNormally
End Sub

[/vba]

Ответить

Как вставить дату/время по двойному клику в разных столбцах (Макросы/Sub)

Страница 1 из 1
1