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

Question

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

谢谢

Answer 1

Tabsin aMultiPage1被调用，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