使用VBA向Excel中的多页面用户表单添加选项卡

Question

我需要找到VBA代码，在excel的userform中添加x个选项卡到一个多页面。如果我使用visual basic编辑器，我可以手动添加选项卡，但我希望能够在运行时使用VBA动态添加/删除选项卡。

由于

Answer 1

Tabs中的MultiPage1被称为Pages，您可以使用

添加它们

MultiPage1.Pages.Add

您可以在循环中使用上述代码来添加页面。有关更多详细信息，请参阅Excel的内置帮助

修改：

刚看到问题的第二部分。要删除，请说第一页使用此

MultiPage1.Pages.Remove (0)

Answer 2

您可以使用

将其动态添加/删除到表单中

Sub Test()
Dim vbComp As Object
Dim objCntrl As Control
Set vbComp = ThisWorkbook.VBProject.VBComponents("UserForm1")
Set objCntrl = vbComp.Designer.Controls("MultiPage1")
'add page
objCntrl.Pages.Add
'remove page
objCntrl.Pages.Remove (1)
End Sub