|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
10.02.2013, 18:28 | #21 |
Форумчанин
Регистрация: 24.12.2012
Сообщений: 776
|
and150382, удалите из Excel-книги из сообщения #18 лишние модули и модуль класса и выложите книгу на Форуме.
|
10.02.2013, 18:48 | #22 |
Форумчанин
Регистрация: 19.10.2012
Сообщений: 217
|
IgorGO При открытой форме -открываю другую книгу-всё работает. Если форма закрыта и открыт просто лист в который добавляются данные из формы, то когда открываешь другую книгу выдает ошибку и подсвечивает UserForm1.Hide
|
10.02.2013, 18:53 | #23 |
Форумчанин
Регистрация: 19.10.2012
Сообщений: 217
|
Скрипт Я удалил все ненужные модули
|
10.02.2013, 20:04 | #24 |
Форумчанин
Регистрация: 19.10.2012
Сообщений: 217
|
Вроде разобрался. Правда не знаю правильно ли сделал или нет.
Option Explicit Public myFlag As Boolean Private Sub Workbook_Activate() 'Если в переменной "myFlag" слово "False", то 'значит, что процедуру не запускали и форма не запущена. If myFlag = False Then ' активировали текущую книгу - отображаем форму UserForm1.Show 'Выходим из кода. Exit Sub End If End Sub Private Sub Workbook_Deactivate() If myFlag = False Then ' переключились на другую книгу - прячем форму UserForm1.Hide Exit Sub End If End Sub Последний раз редактировалось and150382; 10.02.2013 в 20:08. |
14.02.2013, 19:57 | #25 |
Форумчанин
Регистрация: 19.10.2012
Сообщений: 217
|
Всё вроде работало
Теперь тоже самое происходит. Если форму закрываю и переключаюсь с закрытой формой на другую книгу, то выскакивает ошибка и подсвечивает UserForm1.Hide С открытой формой всё нормально: при переключении на другую книгу форма закрывается. Помогите решить эту проблему, неделю бился над ней-вроде всё стало нормально. Теперь опять!!! Не пойму в чем дело |
14.02.2013, 20:22 | #26 |
Форумчанин
Регистрация: 24.12.2012
Сообщений: 776
|
and150382, добавьте этот код в код формы. Событие "Terminate" срабатывает, когда форму закрывают (не скрывают с монитора, а вообще закрывают).
Код:
|
14.02.2013, 20:33 | #27 |
Форумчанин
Регистрация: 19.10.2012
Сообщений: 217
|
Добавил, ничего не происходит.
Всё осталось как и было Вот засада то.... |
14.02.2013, 21:26 | #28 |
Форумчанин
Регистрация: 19.10.2012
Сообщений: 217
|
Знающие люди скажите что нужно сделать. Не получается у меня ( только изучаю VBA )
|
14.02.2013, 22:03 | #29 |
Форумчанин
Регистрация: 24.12.2012
Сообщений: 776
|
У меня работает в выложенном файле.
Последний раз редактировалось Скрипт; 14.02.2013 в 22:06. |
14.02.2013, 22:19 | #30 |
Форумчанин
Регистрация: 19.10.2012
Сообщений: 217
|
Вроде работает!
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Показать Form2 по верх Form1 и сделать активной | Shouldercannon | Общие вопросы Delphi | 15 | 02.07.2011 21:13 |
Как можно сделать так, чтобы дочерняя форма была поверх всех окон после наступления определённого события? | Вадим Мошев | Общие вопросы Delphi | 4 | 10.06.2011 13:01 |
Как реализовать переход на верх страницы по образцу? | akokin | JavaScript, Ajax | 4 | 10.12.2009 16:07 |
Как сделать так, чтобы форма была поверх всех окон? | Jupiter | Общие вопросы Delphi | 9 | 31.07.2009 17:42 |
Как сделать так чтобы окно формы всегда было поверх остальных окон? | HelloZAPOR | Общие вопросы Delphi | 5 | 23.07.2007 08:05 |