gpt4 book ai didi

vba - 如何在 excel vba 中卸载多个用户窗体?

转载 作者:行者123 更新时间:2023-12-04 21:58:35 25 4
gpt4 key购买 nike

我在 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

未测试

关于vba - 如何在 excel vba 中卸载多个用户窗体?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/39167672/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com