![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#11 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
![]() Цитата:
Поместите этот код в модуль ЭтаКнига: Код:
|
|
![]() |
![]() |
![]() |
#12 |
Форумчанин
Регистрация: 19.10.2012
Сообщений: 217
|
![]()
Спасибо всем !
Ура!!! Заработало!!! Отдельное спасибо EducatedFool за его помощь!!!! |
![]() |
![]() |
![]() |
#13 |
Форумчанин
Регистрация: 19.10.2012
Сообщений: 217
|
![]()
В этом коде все работает если открыта форма.
Private Sub Workbook_Activate() ' активировали текущую книгу - отображаем форму UserForm1.Show End Sub Private Sub Workbook_Deactivate() ' переключились на другую книгу - прячем форму UserForm1.Hide End Sub Если форма закрыта и открыт просто книга в которую добавляются данные из формы, то когда открываешь другую книгу выдает ошибку и подсвечивает UserForm1.Hide Думаю что надо если форма закрыта, то этот код не выполнять Private Sub Workbook_Deactivate() ' переключились на другую книгу - прячем форму UserForm1.Hide End Sub Не знаю как написать. Помогите пожалуйста кто знает. |
![]() |
![]() |
![]() |
#14 |
Форумчанин
Регистрация: 24.12.2012
Сообщений: 776
|
![]()
and150382, попробуйте использовать какую-нибудь переменную. Когда запустите форму, то поместите в эту переменную данные.
При активации книги, код будет смотреть, что находится в переменной, и в соответствии с этим будет выбирать действие. |
![]() |
![]() |
![]() |
#15 |
Форумчанин
Регистрация: 19.10.2012
Сообщений: 217
|
![]()
Целый день пробую и ничего не получается.
Всё равно пишет ошибку если открываю другую книгу при закрытой форме. Без вашей помощи не обойтись. Последний раз редактировалось and150382; 07.02.2013 в 00:28. |
![]() |
![]() |
![]() |
#16 |
Форумчанин
Регистрация: 24.12.2012
Сообщений: 776
|
![]()
and150382, в выложенной книге показан принцип.
|
![]() |
![]() |
![]() |
#17 |
Форумчанин
Регистрация: 19.10.2012
Сообщений: 217
|
![]()
Сделал как описано в примере и все равно выдает ошибку и подсвечивает UserForm1.Hide
Как справиться с этой ошибкой? |
![]() |
![]() |
![]() |
#18 |
Форумчанин
Регистрация: 19.10.2012
Сообщений: 217
|
![]()
Выкладываю то что я сделал и не получилось.Может я не туда код вставляю.
|
![]() |
![]() |
![]() |
#19 |
Форумчанин
Регистрация: 19.10.2012
Сообщений: 217
|
![]()
Ребят!! Подскажите пожалуйста. Без этого вся работа валится
|
![]() |
![]() |
![]() |
#20 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
![]()
а напишите еще, как эту ошибку получить (что для этого надо сделать)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Показать 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 |