如何在 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

未测试

如何在 excel vba 中卸载多个用户表单？

How do I unload multiple userforms in excel vba?

excel

vba

userform