Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
На помощь! Не могу закрыть UserForm с помощью команды Unload UserForm1
 
#1
19.06.2010 18:12:27
Здравствуйте, никак не получается закрыть UserForm3 использую следующий макрос  
 
Sub Rev_Level() 'Вызываю форму  
UserForm3.Show  
End Sub  
 
Private Sub CommandButton3_Click() 'Exit  
Unload UserForm3  
Exit Sub  
End Sub  
 
При нажатии на кнопку Cancel (CommandButton3) программа сворачивает форму. При очередном вызове формы кнопка уже не работает и программа зависает.  
 
При том что удивительно для первых двух форм UserForm1 и Userform2 все работает.  
 
Пример прикрепил, спасибо за помощь!
 
 
 
#2
19.06.2010 18:34:54
1. Зачем Exit Sub?  
2. Если кнопка принадлежит ЭТОЙ форме, то вместо Unload UserForm3 можно написать:  
Unload Me
 
 
 
#3
19.06.2010 18:39:24
c Unload Me таже история. Может кто-нибудь проверит мой файл, наверно я чего-то не понимаю.
 
 
 
#4
19.06.2010 18:43:42
Я бы проверил, но...
 
 
 
#5
19.06.2010 18:48:36
Мож, в правила и повнимательнее. Насчет версии.
Я сам - дурнее всякого примера! ...
 
 
 
#6
19.06.2010 18:49:12
как я уже говорил, Таблица из одного листа, на первом листе кнопка, по нажатию на которую я вызываю форму. Выходит форма первый раз ее можно закрыть. Прописал    
Private Sub CommandButton3_Click() 'Exit  
Unload Me  
End Sub  
При очередном вызове формы программа зависает. Единственное решение, после первого раза нажать в редакторе СТОП, тогда форма выгружется.
 
 
 
#7
19.06.2010 18:50:16
{quote}{login=Юрий М}{date=19.06.2010 06:34}{thema=}{post}1. Зачем Exit Sub?  
2. Если кнопка принадлежит ЭТОЙ форме, то вместо Unload UserForm3 можно написать:  
Unload Me{/post}{/quote}  
Можно еще  
End  
Убьет все объекты и переменные.
Я сам - дурнее всякого примера! ...
 
 
 
#8
19.06.2010 18:51:41
Прикрепил в версии 2003 <BR><STRONG>Файл удален</STRONG> - велик размер. [Модераторы]
 
 
 
#9
19.06.2010 18:55:23
{quote}{login=KuklP}{date=19.06.2010 06:50}{thema=Re: }{post}{quote}{login=Юрий М}{date=19.06.2010 06:34}{thema=}{post}1. Зачем Exit Sub?  
2. Если кнопка принадлежит ЭТОЙ форме, то вместо Unload UserForm3 можно написать:  
Unload Me{/post}{/quote}  
Можно еще  
End  
Убьет все объекты и переменные.{/post}{/quote}  
 
Попробовал, ничего не меняется
 
 
 
#10
19.06.2010 18:59:54
ОТКЛЮЧИЛ  
'Private Sub RefEdit1_Exit(ByVal Cancel As MSForms.ReturnBoolean)  
'   If Range(RefEdit1.Value).Cells.Count > 1 Then  
'      RefEdit1.Value = ""  
'   End If  
'      TextBox1.Value = Cells(Range(Me.RefEdit1).Row, 5).Value  
'End Sub  
'  
РАБОТАЕТ - ГДЕ-ТО ОШИБКА
 
 
 
#11
19.06.2010 19:08:19
{quote}{login=}{date=19.06.2010 06:59}{thema=}{post}ОТКЛЮЧИЛ  
'Private Sub RefEdit1_Exit(ByVal Cancel As MSForms.ReturnBoolean)  
'   If Range(RefEdit1.Value).Cells.Count > 1 Then  
'      RefEdit1.Value = ""  
'   End If  
'      TextBox1.Value = Cells(Range(Me.RefEdit1).Row, 5).Value  
'End Sub  
'  
РАБОТАЕТ - ГДЕ-ТО ОШИБКА{/post}{/quote}  
 
Спасибо что нашли ошибку. Но с помощью этой команды я ограничиваю выбор только одной ячейки RefEdit1. При том если RefEdit1 содержит значение, то форма закрывается без ошибки. Как быть если ничего не выбрано и нажать Cancel?
 
 
 
#12
19.06.2010 19:12:09
Может в проверке добавить  
Else  
Cancel=True  
Exit sub
 
 
 
#13
19.06.2010 19:16:27
Я тоже понял,что в RefEdit1 загвоздка. Пока болтал с крестницей по телевону - опередили.
Я сам - дурнее всякого примера! ...
 
 
 
#14
19.06.2010 19:16:47
{quote}{login=Юрий М}{date=19.06.2010 07:12}{thema=}{post}Может в проверке добавить  
Else  
Cancel=True  
Exit sub{/post}{/quote}  
 
Попробовал  
Private Sub CommandButton3_Click() 'Exit  
Unload me  
Else  
Cancel=True  
End Sub  
 
Не рабоате. Или я не правильно понял...
 
 
 
#15
19.06.2010 19:19:21
Файл перевел в 2003
 
 
 
#16
19.06.2010 19:19:22
{quote}{login=Юрий М}{date=19.06.2010 07:12}{thema=}{post}Может в проверке добавить  
Else  
Cancel=True  
Exit sub{/post}{/quote}  
Не поможет, пробовал. Там надо рыться в свойствах RefEdit1. Вообще, я так понял это контрол сторонних разработчиков?
Я сам - дурнее всякого примера! ...
 
 
 
#17
19.06.2010 19:19:37
Неправильно - в проверку в If Range(RefEdit1...
 
 
 
#18
19.06.2010 19:22:52
{quote}{login=Юрий М}{date=19.06.2010 07:19}{thema=}{post}Неправильно - в проверку в If Range(RefEdit1...{/post}{/quote}  
 
Сделал так, не помогло  
 
Private Sub RefEdit1_Exit(ByVal Cancel As MSForms.ReturnBoolean)  
  If Range(RefEdit1.Value).Cells.Count > 1 Then  
     RefEdit1.Value = ""  
     Else  
     Cancel = True  
  End If  
     TextBox1.Value = Cells(Range(Me.RefEdit1).Row, 5).Value  
End Sub
 
 
 
#19
19.06.2010 19:24:37
А я и проверить не могу - Excel вылетает
 
 
 
#20
19.06.2010 19:27:54
{quote}{login=Юрий М}{date=19.06.2010 07:24}{thema=}{post}А я и проверить не могу - Excel вылетает{/post}{/quote}  
У меня тоже.:-( Точно, сторонние разработчики. Или локализация глючит.
Я сам - дурнее всякого примера! ...
 
 
 
#21
19.06.2010 19:28:07
Какой-то полтергейст. Работу в понедельник надо показывать а тут такое. Что удивительно, две аналогичные формы у меня работают, эта нет, проверил все одинаково. Help
 
 
 
#22
19.06.2010 19:30:05
{quote}{login=KuklP}{date=19.06.2010 07:27}{thema=Re: }{post}{quote}{login=Юрий М}{date=19.06.2010 07:24}{thema=}{post}А я и проверить не могу - Excel вылетает{/post}{/quote}  
У меня тоже.:-( Точно, сторонние разработчики. Или локализация глючит.{/post}{/quote}  
 
Кто такие Сторонние разработчики? Это делал я из найденного в интернете. Может попробовать в другом формате сохранить?
 
 
 
#23
19.06.2010 19:32:06
Как вариант: заводим глобальную переменную, в модуле листа на событие Worksheet_SelectionChange определяем её значение в зависимости от к-ва выделенных ячеек, и используем эту переменную далее.
 
 
 
#24
19.06.2010 19:33:17
{quote}{login=Denis.ch}{date=19.06.2010 07:30}{thema=Re: Re: }{post}{quote}{login=KuklP}{date=19.06.2010 07:27}{thema=Re: }{post}{quote}{login=Юрий М}{date=19.06.2010 07:24}{thema=}{post}{/post}{/quote}{/post}{/quote}Кто такие Сторонние разработчики? Это делал я {/post}{/quote}  
:-)
 
 
 
#25
19.06.2010 19:37:07
{quote}{login=Юрий М}{date=19.06.2010 07:33}{thema=Re: Re: Re: }{post}{quote}{login=Denis.ch}{date=19.06.2010 07:30}{thema=Re: Re: }{post}{quote}{login=KuklP}{date=19.06.2010 07:27}{thema=Re: }{post}{quote}{login=Юрий М}{date=19.06.2010 07:24}{thema=}{post}{/post}{/quote}{/post}{/quote}Кто такие Сторонние разработчики? Это делал я {/post}{/quote}  
:-){/post}{/quote}  
Да не смейтесь, я в Excel ламер, то что я делаю это вынужденная необходимость.
 
 
 
#26
19.06.2010 19:38:26
Да нет, RefEdit, вроде родной.
Я сам - дурнее всякого примера! ...
 
 
 
#27
19.06.2010 19:42:45
А если перенести код проверки из Exit в Change?
 
 
 
#28
19.06.2010 19:43:12
{quote}{login=The_Prist}{date=19.06.2010 07:29}{thema=}{post}Я бы на Вашем месте проверял кол-во ячеек в диапазоне RefEdit в процессе обработки, а не при событии Exit. Если ячеек больше одной - выдаете сообщение о недопустимости выделения больше 1 и Exit Sub. Пусть выделяют как надо.{/post}{/quote}  
 
Спасибо за хорошую идею!  
Как быть с этим    
TextBox1.Value = Cells(Range(Me.RefEdit1).Row, 5).Value  
Необходимо во время ввода установить в TextBox1  значение RefEdit1
 
 
 
#29
19.06.2010 19:45:22
{quote}{login=Юрий М}{date=19.06.2010 07:42}{thema=}{post}А если перенести код проверки из Exit в Change?{/post}{/quote}  
Только попробовал, так работает.
Я сам - дурнее всякого примера! ...
 
 
 
#30
19.06.2010 19:48:39
Получилось вот так:  
 
Private Sub CommandButton3_Click() 'Exit  
Unload Me  
End Sub  
 
Private Sub RefEdit1_Сhange()  
     TextBox1.Value = Cells(Range(Me.RefEdit1).Row, 5).Value  
End Sub  
 
Вроде бы работает, тьфу-тьфу-тьфу. Спасибо всем за помощь!
 
 
 
Страницы: 1
Читают тему
Наверх