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

【问题标题】：Using VBA to add tabs to a multipage useform in excel使用 VBA 将选项卡添加到 Excel 中的多页表单
【发布时间】：2012-05-09 21:58:41
【问题描述】：

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

谢谢

【问题讨论】：

标签： vba excel userform multipage

【解决方案1】：

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

MultiPage1.Pages.Add

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

编辑：

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

MultiPage1.Pages.Remove (0)

【讨论】：

【解决方案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

【讨论】：