Несколько экземпляров одной формы Excel VBA.

[Avtopic]

Заранее извиняюсь, если ошибаюсь в терминологии.
Допустим, имеется форма UserForm1

В разных местах одновременно вызываю несколько экземпляров этой формы:

Dim FrmExmp1 As UserForm1
Set FrmExmp1 = New UserForm1
FrmExmp1.Show vbModeless
….
End Sub


Dim FrmExmp2 As UserForm1
Set FrmExmp2 = New UserForm1
FrmExmp2.Show vbModeless
….
End Sub

Где мне писать:
Set FrmExmp1 = Nothing
Set FrmExmp2 = Nothing
Или при Unload само собой происходит “очистка” FrmExmp1 и FrmExmp2?

[GSerg]

Очистка не происходит. Происходит выгрузка. Очистка произойдёт сама когда надо.
А что, у тебя локальным переменным присваиваются формы, которые живут дольше процедуры, из которой вызваны?

[Avtopic]

Спасибо за ответ!

А что, у тебя локальным переменным присваиваются формы, которые живут дольше процедуры, из которой вызваны?

А что, разве нет?
Процедура вызова формы нужно мне чтобы настроить конкретный экземпляр.

Public Sub Show_FormProduser()
Dim FrmExmp1 As UserForm1
Set FrmExmp1 = New UserForm1
FrmExmp1.Show vbModeless
….
End Sub

И после этого выполняются другие процедуры, а формы еще на экране и если нужно там меняются что-то или оттуда меняется что-то.

Если вы говорите мне что очистка или выгрузка FrmExmp1 происходит в конце той же процедуры, то тогда добавлю что, вопрос пробудил следующий факт: явно чувствуется что после открытия четырех- пяти экземпляров формы и их закрытия книга явно тормозит, а без них часами работаю в нем, и проблем нет.
Хотя, после вашего ответа я думаю, не вина ли это MSFlexGrid находящегося на форме.

[GSerg]

По окончании процедуры Show_FormProduser переменная FrmExmp1 очищается сама. А что творится внутри у экселя во время разработки в нём большого интерфейса, это отдельный разговор, но баги там внутри есть.

[Avtopic]

И еще побеспокою, если можно:
Когда имею конкретную форму Напр: FormObjects, FormPartner
в любом месте кода закрываю их Unload FormObjects или Unload FormPartner,
но когда имеются открытие вышеуказанным способом формы и, не зная их имена и зная их Caption-s,
которые сам указываю в процедурах открытия, как их закрывать программно?
Признаюсь, как я их закрываю- нахожу их hWnd и DestroyWindow но чувствую, что это похоже на то, когда что-то насильно выбивают изо рта у Excel, и последний остается в шоке. Можно так закрывать?

[GSerg]

Не приходило в голову добавлять открытые формы в коллекцию?
Или использовать коллекцию forms, в моём экселе её нет, но может быть?

[Avtopic]

Коллекцию forms я тоже пробовал, но безрезультатно.

[GSerg]

И как же пробовал?

[Avtopic]

Пробовал написать что-то похожее

For Each Frm In MSForms.???Form или Excel. ??? или Application.???

If Frm.Caption = "..." Then Unload Frm

Next

Но увы ничего подобного в Brouser-е не нашел

[GSerg]

Avtopic
Я конечно ценю здоровое чувство юмора, но знаешь, до определённых пределов всё-таки. Это называется "пробовал"...

моём экселе её нет, но может быть?

Значит не может быть.

Не приходило в голову добавлять открытые формы в коллекцию?

В свою собственную, вынужденно уточню я?

[Avtopic]

В этот момент как раз никакого юмора с моей стороны, потому что эта бандура тормозит практический, законченный проект.
Я понял, что вы имели в виду собственную коллекцию. Но для него нужно хотя бы перейти к написанию кода, а я, находясь в форуме, написал то, что я пробовал сделать и в какой коллекции искал решение. Вед могло же случится такое, что если есть
Application.ActiveWorkbook.Sheets

То может есть

Application.ActiveWorkbook.Forms

Или

Application. Forms

[GSerg]

Коллекцию forms я тоже пробовал, но безрезультатно

Это мною было расценено как "кодил, не получилось".
А оказалось "искал, не нашёл".

[Avtopic]

искал, не нашёл

[GSerg]

Ну дык делай свою. Если форм нефиксированное количество.
А если фиксированное - сделай массив as form.

[Avtopic]

Спасибо за помощь! Попробую используя коллекцию.

[$€rg]

UserForms

[Avtopic]

Да, действительно UserForms. Спасибо!