vba - 如何在 excel vba 中卸载多个用户窗体？

Question

我在 excel 工作簿中有很多用户表单。
当用户在表单之间移动时，它们是隐藏的。
我可以使用什么代码一次性卸载所有用户表单？

Private Sub CommandButton3_Click()
Unload UserForm15
Unload UserForm14
Unload UserForm13 
Unload UserForm12
Unload UserForm11
Unload UserForm10
Unload UserForm9 
Unload UserForm8
Unload UserForm7
Unload UserForm6
Unload UserForm5
Unload UserForm4
Unload userform3
Unload UserForm2
Unload UserForm1
End Sub

是否有更短的代码来执行此操作，还是我回答了自己的问题？

Answer 1

表单可以像其他对象一样循环

Sub testIt2()
    Dim i As Long
    For i = VBA.UserForms.Count - 1 To 0 Step -1
        Unload VBA.UserForms(i)
    Next i
End Sub

未测试