我在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
是否有较短的代码可以执行此操作,或者我已经回答了自己的问题?
表单可以像其他对象一样循环遍历
Sub testIt2()
Dim i As Long
For i = VBA.UserForms.Count - 1 To 0 Step -1
Unload VBA.UserForms(i)
Next i
End Sub
未测试
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句