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

没有测试过