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

Регистрация

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

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

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

UserForm_QueryClose не закрывается UserForm, как правильно? (Макросы/Sub)

UserForm_QueryClose не закрывается UserForm, как правильно?

Дата: Пятница, 30.08.2019, 13:53 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 279

Репутация: 19 ±

Замечаний: 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 не закрывается UserForm, как правильно? (Макросы/Sub)

Страница 1 из 1
1

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