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

我有一个Excel工作簿中的相当多的用户forms。 当用户在表格之间移动时，它们被隐藏起来。 我可以使用什么代码一次性卸载所有的用户表单？

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 

没有testing