Создание обработчика событий объектов - Microsoft Office Excel

Caside · 07.04.2011, 11:59

Нужно создать обработчик правого клика на ячейку.

Пишу в классмодуле следующее:

Код:

Public WithEvents App1 As Excel.Application

Sub App1_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
бла-бла-бла
End sub

Но обработчик не работает. Говорят надо ещё что-то инициировать в обычном модуле в обработчике открытия книги - workbook_open. Что именно надо там написать?

VictorM · 07.04.2011, 12:23

А так?

Код:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean)
Call MsgBox("бла бла бла", vbExclamation, Application.Name)

End Sub

Только код нужно помещеть в модуле листа.

EducatedFool · 07.04.2011, 12:25

Цитата:

Пишу в классмодуле следующее:

Зачем всё усложнять?

Дима даже статью у себя на сайте выкладывал по этому поводу:
http://www.excel-vba.ru/index.php?fi...w_Catch_Events

Caside · 07.04.2011, 12:48

Пробовал как в статье, ни чего не вышло. В этой книге объявлял новую переменную и писал обработчики, в обычном модуле в workbook_open писал Set App = Application.

Ещё пробовал как http://citforum.ru/programming/windo...el_obj/2.shtml тут (самый мудрёный вариант), но при открытии книги вылетает ошибка компиляции.

EducatedFool · 07.04.2011, 12:51

Цитата:

в обычном модуле в workbook_open писал Set App = Application.

Это надо было писать в модуле книги (ЭтаКнига)

Caside · 07.04.2011, 12:54

Всем спасибо, всё работает )

07.04.2011, 11:59	#1
Caside Регистрация: 07.04.2011 Сообщений: 7	Создание обработчика событий объектов Нужно создать обработчик правого клика на ячейку. Пишу в классмодуле следующее: Код: `Public WithEvents App1 As Excel.Application Sub App1_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) бла-бла-бла End sub` Но обработчик не работает. Говорят надо ещё что-то инициировать в обычном модуле в обработчике открытия книги - workbook_open. Что именно надо там написать? Последний раз редактировалось Caside; 07.04.2011 в 12:11.

07.04.2011, 12:23	#2
VictorM Старожил Регистрация: 15.05.2008 Сообщений: 2,058	А так? Код: `Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean) Call MsgBox("бла бла бла", vbExclamation, Application.Name) End Sub` Только код нужно помещеть в модуле листа. "Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь" "Большое спасибо" - Z261597841314, R208907249777, U447361470499

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Динамическое создание объектов и задание событий	TreadProblem	Общие вопросы Delphi	9	15.03.2011 17:57
обработчик событий динамических объектов	Vervolf	Общие вопросы Delphi	2	17.01.2011 18:45
Динамическое создание обработчика события	tramvajman	Компоненты Delphi	8	20.10.2010 10:41
Обработка событий динамически созданных объектов в С++ Builder	Shafty	Помощь студентам	1	26.02.2009 16:11

07.04.2011, 12:48	#4
Caside Регистрация: 07.04.2011 Сообщений: 7	Пробовал как в статье, ни чего не вышло. В этой книге объявлял новую переменную и писал обработчики, в обычном модуле в workbook_open писал Set App = Application. Ещё пробовал как http://citforum.ru/programming/windo...el_obj/2.shtml тут (самый мудрёный вариант), но при открытии книги вылетает ошибка компиляции.

07.04.2011, 12:54	#6
Caside Регистрация: 07.04.2011 Сообщений: 7	Всем спасибо, всё работает )