如何卸载多个用户表单

Question

我没有成功卸载多个用户表单。这是我的用户表单列表。

我用谷歌搜索了这个问题，发现了以下代码：

Sub testIt2()
    Dim i As Long
    For i = VBA.UserForms.Count - 1 To 0 Step -1
        Unload VBA.UserForms(i)
    Next i
End Sub

不幸的是，此代码不起作用。它不识别我的任何表格。

这是我单步执行代码时的摘录。它不识别任何形式。

Answer 1

你想要的可以这样实现：

Sub TestMe()

    Dim ufObject As Object

    For Each ufObject In VBA.UserForms
        Debug.Print "unloading..."; ufObject.name
        Unload ufObject
    Next ufObject

End Sub

只需遍历集合 VBA.UserForms 并卸载您在那里找到的任何内容。

如何卸载多个用户表单

How to unload multiple user forms

vba

userform