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

我需要findVBA代码添加x个选项卡到excel中的一个用户窗体中的多页。 如果我使用Visual Basic编辑器，我可以手动添加选项卡，但我希望能够在运行时使用VBAdynamic添加/删除选项卡。

谢谢

Answer 1

MultiPage1中的Tabs被称为Pages ，您可以使用它们进行添加

 MultiPage1.Pages.Add 

您可以在循环中使用上述代码来添加页面。 请参阅Excel的内置帮助了解更多详情

编辑 ：

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

 MultiPage1.Pages.Remove (0) 

Answer 2

你可以添加/删除它们的dynamic永久forms

 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