使用VBA向excel中的多页useform添加选项卡

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

---

谢谢

在

多页面1

中的

选项卡被称为
页面
，您可以使用

MultiPage1.Pages.Add

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

编辑：

刚才看到问题的第二部分。若要删除，请在第一页使用以下命令

MultiPage1.Pages.Remove (0)

您可以使用将它们以动态方式永久添加/删除到表单中

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