ExcelVBAでフォーム内のマルチページにタブを追加する方法

構文

構文は以下の通りです。

マルチページ名.Pages.Add "タブの名前", "タブのID"

解説

マルチページ名は、フォーム内にあるマルチページコントロールの名前です。このコントロールは複数のタブを持つことができ、各タブに異なる内容を表示できます。Pagesは、マルチページのタブを管理するコレクションです。新しいタブを追加する際は、Addを使用します。タブの名前は、追加するタブに表示される名前を指定します。ユーザーがタブをクリックするときに見えるラベルになります。タブのIDには一意のIDを設定することができますが、省略可能です。このIDを使用して、タブにアクセスすることができます。

プログラミング例

具体的なプログラミング例を紹介します。

Private Sub ユーザーフォーム_初期化()
    ' マルチページコントロールを取得
    Dim マルチページ As MultiPage
    Set マルチページ = Me.MultiPage1
    ' 新しいタブを追加
    マルチページ.Pages.Add "新しいタブ", "タブID1"
    マルチページ.Pages.Add "追加タブ", "タブID2"
    ' 解説: 上記のコードで、"新しいタブ" と "追加タブ" という2つのタブが追加されます
End Sub

上記のプログラムは、Pages.Addを使って、マルチページに新しいタブを追加します。この例では、2つのタブ、「新しいタブ」と「追加タブ」が追加されています。タブIDもそれぞれ設定されていますが、IDは省略可能です。

まとめ

マルチページに新しいタブを追加するには、Pages.Addを使用します。タブに表示される名前とタブを識別するIDを指定することができます。