Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как вставить текущую дату даблкликом
 
#1
12.01.2019 19:04:03
Доброго времени Уважаемые Форумчане, прошу подсказать как можно вставить текущую дату в колонку С даблкликом. Заранее благодарен
 
 
 
#2
12.01.2019 19:17:09
В модуль листа
Код
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
 
 
 
#3
12.01.2019 19:18:24
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
 
 
 
#4
12.01.2019 19:19:10
vikttur, Спасибо огромнейшее, отлично работает
Anchoret, доброго времени, дата смещается на тридцать четыре строки. Если щелкаю в первой вставляется в 35
 
 
 
#5
12.01.2019 19:33:19
Target.Offset(, 1).Select из #2 на Cancel=true может стоит поменять.
По вопросам из тем форума, личку не читаю.
 
 
 
#6
12.01.2019 19:43:51
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
 
 
 
#7
13.01.2019 07:01:21
Anchoret, БМВ,спасибо огромное
 
 
 
#8
13.01.2019 09:15:35
alex1210,  я то что, я Виктору писал :-)
По вопросам из тем форума, личку не читаю.
 
 
 
Страницы: 1
Наверх