Прописать формулу по двойному клику

@AlexanderSh88 · Регистрация: 28.09.2015

Author24 — интернет-сервис помощи студентам

Здравствуйте, подскажите, пожалуйста что нужно прописать в исходном коде листа, чтобы при двойном клике по ячейке D5, в ней прописывалась формула

Код

=СУММ(Table1[Расход])

@Vlad999 · 21.10.2015, 13:38

в модуль листа

Visual Basic

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Target.Formula = "=ваша формула записанная макрорекордером"
End Sub

@AlexanderSh88 · 21.10.2015, 13:53 **[ТС]**

Спасибо, только вот это срабатывает на всем листе, а как сделать, что бы срабатывало только тогда, когда 2 раза кликнул по D5?

@Vlad999 · 21.10.2015, 13:56

после Cancel добавить условие

Visual Basic

1	If Target.Address = "$D$5" Then Target.Formula =.....

@AlexanderSh88 · 21.10.2015, 14:18 **[ТС]**

спасибо, прописал так.

Visual Basic

1
2
3

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Target.Address = "$D$5" Then Target.Formula = "=SUM(Table1[Расход])"

Теперь работает двойной клик только на D5, но как оставить возможность редактировать другие ячейки? теперь кликнув 2 раза по какой - нибудь ячейке (с целью редактирования) ничего не происходит

@Vlad999 · 21.10.2015, 14:33

Visual Basic

1
2
3

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$D$5" Then Cancel = True: Target.Formula = "=SUM(Table1[Расход])"
end sub

@AlexanderSh88 · 21.10.2015, 14:52 **[ТС]**

Спасибо, все теперь хорошо

@AlexanderSh88 2 / 2 / 2 Регистрация: 28.09.2015 Сообщений: 286
		1
	Прописать формулу по двойному клику 21.10.2015, 13:17. Показов 1600. Ответов 6 Метки нет (Все метки) Здравствуйте, подскажите, пожалуйста что нужно прописать в исходном коде листа, чтобы при двойном клике по ячейке D5, в ней прописывалась формула Код =СУММ(Table1[Расход]) 0

@AlexanderSh88 2 / 2 / 2 Регистрация: 28.09.2015 Сообщений: 286
	21.10.2015, 13:53 [ТС]	3
	Спасибо, только вот это срабатывает на всем листе, а как сделать, что бы срабатывало только тогда, когда 2 раза кликнул по D5? 0

@AlexanderSh88 2 / 2 / 2 Регистрация: 28.09.2015 Сообщений: 286
	21.10.2015, 14:52 [ТС]	7
	Спасибо, все теперь хорошо 0

Прописать формулу по двойному клику

Решение