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中卸载多个用户表单？

1 个答案: