Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Как вставить текущую дату даблкликом
 
Доброго времени Уважаемые Форумчане, прошу подсказать как можно вставить текущую дату в колонку С даблкликом. Заранее благодарен
 
В модуль листа
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Range("C:C"), Target) Is Nothing Then Exit Sub
    Target.Value = Date
    Target.Offset(, 1).Select
End Sub
 
alex1210,
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim aa As Range, a&
a = Me.UsedRange.Rows.Count: Set aa = Me.Range("C" & a)
If Len(aa) > 0 Then aa.Offset(1, 0) = Date Else aa = Date
End Sub
 
vikttur, Спасибо огромнейшее, отлично работает
Anchoret, доброго времени, дата смещается на тридцать четыре строки. Если щелкаю в первой вставляется в 35
 
Target.Offset(, 1).Select из #2 на Cancel=true может стоит поменять.
 
alex1210, исправил:
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim a&
a = Application.CountA(Intersect(Me.UsedRange, Columns(3)))
If a = 0 Then a = 1 Else a = a + 1
Me.Range("C" & a) = Date
End Sub
 
Anchoret, БМВ,спасибо огромное
 
alex1210,  я то что, я Виктору писал :-)
Страницы: 1
Читают тему (гостей: 1)
Наверх