VBAを使用してExcelで複数ページのuseformにタブを追加する

Question

Excelのuserformのxページをxページに追加するには、VBAコードを見つける必要があります。ビジュアル基本エディタを使用すると、手動でタブを追加できますが、ランタイム中にVBAを使用してタブを動的に追加/削除できるようにしたいと考えています。

おかげMultiPage1で

Answer 1

TabsはPagesと呼ばれ、あなたはあなたがページを追加するループ内で上記のコードを使用することができます

MultiPage1.Pages.Add 

を使用してそれらを追加することができます。詳細

編集のためのExcelの作り付けのヘルプを参照してください：

ただ、質問の第二の部分を見ました。削除するには、1ページ目は/あなたが追加することができ、この

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