3

Excelのユーザーフォームのマルチページにx個のタブを追加するためのVBAコードを見つける必要があります。Visual Basic Editorを使用すれば手動でタブを追加できますが、実行時にVBAを使用してタブを動的に追加/削除できるようにしたいです。

ありがとう

4

2 に答える 2

3

Tabs内のがMultiPage1呼び出されPages、次を使用してそれらを追加できます

MultiPage1.Pages.Add

上記のコードをループで使用して、ページを追加できます。詳細については、Excel の組み込みのヘルプを参照してください。

編集

質問の2番目の部分を見ました。削除するには、最初のページがこれを使用すると言います

MultiPage1.Pages.Remove (0)
于 2012-05-09T23:03:17.113 に答える
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
于 2012-05-10T02:10:26.163 に答える