Sub NameOfUserForms()
Dim iCount As Long

    With ThisWorkbook.VBProject.VBComponents
        For iCount = .Count To  1  Step - 1 
            If .Item(iCount).Type =  3  Then
                MsgBox "Имя пользовательской формы: " & .Item(iCount).Name, , ""
            End If
        Next
    End With
End Sub

Sub NameOfUserForms()
Dim iCount As Long

    With ThisWorkbook.VBProject.VBComponents
        For iCount = .Count To  1  Step - 1 
            If .Item(iCount).Type =  3  Then
                MsgBox "Имя пользовательской формы: " & .Item(iCount).Name, , ""
            End If
        Next
    End With
End Sub

Dim f As Object
Set f = UserForm1
Load f

Dim f As Object
Set f = UserForm1
Load f

Set f = ActiveWorkbook.VBProject.VBComponents(<имя формы>)

Public Sub test()
    Dim f As Object
    
    Set f = UserForms.Add("UserForm1")
    
    f.Show
    
End Sub

Dim FormName As String
FormName = "UserForm1"
VBA.UserForms.Add(FormName).Show

Public Sub test()
    Dim f As Object
    
    Set f = UserForms.Add("UserForm1")
    
    f.Show
    
End Sub

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

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

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы