使用VBA將選項卡添加到excel中的多頁使用表格中

Question

我需要找到VBA代碼以將x數量的選項卡添加到excel中的用戶窗體中的多頁上。如果我使用Visual Basic編輯器，我可以手動添加選項卡，但是我希望能夠在運行時使用VBA動態添加/刪除選項卡。

感謝

Answer 1

的Tabs在MultiPage1被稱爲Pages，並且可以使用

MultiPage1.Pages.Add 

添加它們可以使用上面的代碼在循環中添加頁面。請參閱Excel的內置幫助更多細節

編輯：

剛看到這個問題的第二部分。要刪除，說第1頁使用此

MultiPage1.Pages.Remove (0) 

Answer 2

您可以添加/運行期間提出的要求dymanically永久與

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