Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/UserForm_QueryClose не закрывается UserForm, как правильно? - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » UserForm_QueryClose не закрывается UserForm, как правильно? (Макросы/Sub)
UserForm_QueryClose не закрывается UserForm, как правильно?
Sancho Дата: Пятница, 30.08.2019, 13:53 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 250
Репутация: 16 ±
Замечаний: 0% ±

2007, 2010, 2013
Всем привет!
Подскажите пожалуйста, как правильно описать событие UserForm_QueryClose.
Имеем две пользовательские формы на которых предполагается выполнение пользователем каких либо действий.
Условие: начало работы с UserForm1, кнопка "Далее" переводит действия к следующему шагу. Если шаг 3-й то закрывается UserForm1 и открывается UserForm2, где кнопка "Далее" закрывает форму UserForm2 и открывает UserForm1 на последующем шаге. Если UserForm2 была закрыта не программно кнопкой "Далее", а через закрытие формы (крестик формы), то ее закрыть и вернуть обратно UserForm1 с откатом шага назад. описал событие UserForm_QueryClose но UserForm2 все равно не закрывается и остается видимой для пользователя.
[vba]
Код

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

If CloseMode = 0 Then
    bStep = bStep - 1
    UserForm1.Caption = "Шаг " & bStep
    Unload UserForm2
    UserForm1.Show
End If
End Sub
[/vba]

В условии писал замену CloseMode=1 не помогает.

Что не так делаю, подскажите пожалуйста.
К сообщению приложен файл: 0448114.xlsm(21.1 Kb)
 
Ответить
СообщениеВсем привет!
Подскажите пожалуйста, как правильно описать событие UserForm_QueryClose.
Имеем две пользовательские формы на которых предполагается выполнение пользователем каких либо действий.
Условие: начало работы с UserForm1, кнопка "Далее" переводит действия к следующему шагу. Если шаг 3-й то закрывается UserForm1 и открывается UserForm2, где кнопка "Далее" закрывает форму UserForm2 и открывает UserForm1 на последующем шаге. Если UserForm2 была закрыта не программно кнопкой "Далее", а через закрытие формы (крестик формы), то ее закрыть и вернуть обратно UserForm1 с откатом шага назад. описал событие UserForm_QueryClose но UserForm2 все равно не закрывается и остается видимой для пользователя.
[vba]
Код

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

If CloseMode = 0 Then
    bStep = bStep - 1
    UserForm1.Caption = "Шаг " & bStep
    Unload UserForm2
    UserForm1.Show
End If
End Sub
[/vba]

В условии писал замену CloseMode=1 не помогает.

Что не так делаю, подскажите пожалуйста.

Автор - Sancho
Дата добавления - 30.08.2019 в 13:53
Мир MS Excel » Вопросы и решения » Вопросы по VBA » UserForm_QueryClose не закрывается UserForm, как правильно? (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!