Как заблокировать событие BeforeDoubleClick во время обработки события SelectionChange / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как заблокировать событие BeforeDoubleClick во время обработки события SelectionChange

8 сообщений из 8, страница 1 из 1

Как заблокировать событие BeforeDoubleClick во время обработки события SelectionChange

#36785046

Mishel97

Гость

Всем доброе время суток!

Событие SelectionChange возникает при новом выделении ячейки одним кликом мыши. После возникновения события SelectionChange может, например, загружатся форма.

Однако пользователь делает два клика мыши. Возникает событие BeforeDoubleClick – двойной клик мыши, ячейка переходит в режим редактирования, а загруженная форма блокируется. Для выхода из положения необходимо закрыть форму, причём используя событие SelectionChange и повторить процедуру с одним кликом мыши.

Такой вопрос – как заблокировать событие BeforeDoubleClick – двойной клик мыши во время начала обработки события SelectionChange и, таким образом не допустить блокировку формы ?

...

Рейтинг:

0 / 0

11.08.2010, 00:15

| Ответить | Цитировать | Написать

Как заблокировать событие BeforeDoubleClick во время обработки события SelectionChange

#36785071

White Owl

Участник

Сообщения: 12 726

Рейтинг: 0 / 0

выбирай на вкус:
- Заблокировать ячейки способные вызывать форму от редактирования
- Первой командой в обработчике поставить application.enableevents=false
- Не заниматься мазохизмом рисуя ГУИ в Эксель

...

Рейтинг:

0 / 0

11.08.2010, 01:15

| Ответить | Цитировать | Написать

Как заблокировать событие BeforeDoubleClick во время обработки события SelectionChange

#36785100

KL (XL)

Участник

Откуда: Madrid

Сообщения: 2 087

Рейтинг: 0 / 0

White Owl- Не заниматься мазохизмом рисуя ГУИ в Эксель
О-о! Сова опять опять откопал томогавк и вышел на тропу войны :-)

...

Рейтинг:

0 / 0

11.08.2010, 02:53

| Ответить | Цитировать | Написать

Как заблокировать событие BeforeDoubleClick во время обработки события SelectionChange

#36786671

White Owl

Участник

Сообщения: 12 726

Рейтинг: 0 / 0

KL (XL)White Owl- Не заниматься мазохизмом рисуя ГУИ в Эксель
О-о! Сова опять опять откопал томогавк и вышел на тропу войны :-)А у тебя было впечатление что я его закапывал???

...

Рейтинг:

0 / 0

11.08.2010, 17:44

| Ответить | Цитировать | Написать

Как заблокировать событие BeforeDoubleClick во время обработки события SelectionChange

#36786989

KL (XL)

Участник

Откуда: Madrid

Сообщения: 2 087

Рейтинг: 0 / 0

White OwlА у тебя было впечатление что я его закапывал???
Признаться, был грех, но это было, когда я активно участвовал в этом форуме :) Я наверное много пропустил ;)

...

Рейтинг:

0 / 0

11.08.2010, 19:45

| Ответить | Цитировать | Написать

Как заблокировать событие BeforeDoubleClick во время обработки события SelectionChange

#36789674

Mishel97

Гость

White Owl, спасибо за отзыв.

Третий вариант не рассматривался. Пользователь созданной программы сегодня стал технологическим лидером.

Остаётся первых два варианта. С инструкцией EnableEvents=False результата не достиг. Если эту инструкцию вставить в начале Private Sub Worksheet_SelectionChange(ByVal Target As Range), то не загружается форма. Не даёт эффекта код

EnableEvents=False
UserForm1.Show
EnableEvents=True

или код в модуле формы

Private Sub UserForm_Initialize()
EnableEvents=False
End Sub

Private Sub UserForm_Terminate()
EnableEvents=True
End Sub

Остаётся защита листа. Очевидно единтвенная профилактика блокировать BeforeDoubleClick при обработке события SelectionChange.

...

Рейтинг:

0 / 0

12.08.2010, 23:06

| Ответить | Цитировать | Написать

Как заблокировать событие BeforeDoubleClick во время обработки события SelectionChange

#36791937

ZVI

Участник

Откуда: Sevastopol

Сообщения: 473

Рейтинг: 0 / 0

Вариант решения 1:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

' Form sheet module code
Const CallingFormCells = "A1,B2,C3:C5"  ' Выделение этих ячеек активирует форму

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Cancel = Not Intersect(Range(CallingFormCells), Target) Is Nothing
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(Range(CallingFormCells), Target) Is Nothing Then UserForm1.Show
End Sub

Вариант решения 2:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.

' Form sheet module code
Const CallingFormCells = "A1,B2,C3:C5"  ' Выделение этих ячеек активирует форму
Dim IsBusy As Boolean

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Intersect(Range(CallingFormCells), Target) Is Nothing Then Exit Sub
  IsBusy = True
  UserForm1.Show
  IsBusy = False
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Cancel = IsBusy
End Sub

...

Рейтинг:

0 / 0

14.08.2010, 17:26

| Ответить | Цитировать | Написать

Как заблокировать событие BeforeDoubleClick во время обработки события SelectionChange

#36792263

Mishel97

Гость

ZVI, выбор есть. Раборает как защита, даже лучше - нет диалога. Большое спасибо.

...

Рейтинг:

0 / 0

15.08.2010, 10:24

| Ответить | Цитировать | Написать

8 сообщений из 8, страница 1 из 1

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&gotonew=1&tid=2177791]:	0ms
get settings:	10ms
get forum list:	19ms
check forum access:	4ms
check topic access:	4ms
track hit:	91ms
get topic data:	12ms
get first new msg:	7ms
get forum data:	3ms
get page messages:	48ms
get tp. blocked users:	2ms
others:	246ms

total:	446ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы