教えて!ExcelVBA!

ExcelVBAの基礎知識・書き方について紹介します。

【ExcelVBA フォーム&コントロール】マルチページにタブを追加する方法を教えて!

構文

構文は以下の通りです。

マルチページ名.Pages.Add "新しいタブの名前"

解説

マルチページにタブを追加するには、Pages.Addメソッドを使用します。"新しいタブの名前"には、追加したタブに付ける名前を指定します。

使い方

具体的な使い方を紹介します。

Private Sub AddTabToMultiPage()
    ' マルチページに新しいタブを追加
    myMultiPage.Pages.Add "新しいタブ"
End Sub

このコードは、myMultiPage.Pages.Add "新しいタブ"の部分で、マルチページにタブを追加しています。上記の例では「新しいタブ」という名前がタブに設定されます。

プログラミング例

以下に、プログラミング例を紹介します。

Private Sub AddControlsToTab()
    ' 新しいタブを追加
    myMultiPage.Pages.Add "新しいタブ"
    ' 追加したタブにラベルとテキストボックスを配置
    With myMultiPage.Pages("新しいタブ").Controls
        .Add "Forms.Label.1", "NewLabel", True
        .Item("NewLabel").Caption = "新しいラベル"
        .Add "Forms.TextBox.1", "NewTextBox", True
        .Item("NewTextBox").Left = 100
        .Item("NewTextBox").Top = 50
    End With
End Sub

この例では、新しいタブを追加し、そのタブにラベルとテキストボックスを配置しています。

まとめ

マルチページにタブを追加する方法について、基本的な構文や使い方、具体的なプログラミング例を紹介しました。是非活用してください。