【ExcelVBA フォーム＆コントロール】タブストリップにタブを追加する方法を教えて！

構文

構文は以下の通りです。

ダブストリップ名.Tabs.Add("新しいタブの名前")

解説

タブストリップにタブを追加するには、Tabs.Addメソッドを使用します。"新しいタブの名前"には、追加したタブに付ける名前を指定します。

使い方

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

Private Sub UserForm_Initialize()
    ' フォームが初期化されたときに実行されるコード
    ' 新しいタブを追加
    TabStrip1.Tabs.Add("新しいタブ")
End Sub

このコードは、ユーザーフォームが初期化される際に自動的に実行されます。TabStrip1.Tabs.Add("新しいタブ")の部分で、タブストリップにタブを追加しています。上記の例では「新しいタブ」という名前がタブに設定されます。

プログラミング例

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

Private Sub UserForm_Initialize()
    ' フォームが初期化される際に実行されるコード
    TabStrip1.Tabs.Add("最初のタブ")
End Sub

Private Sub CommandButton1_Click()
    ' ボタンがクリックされた際に実行されるコード
    Dim newTabName As String
    newTabName = InputBox("新しいタブの名前を入力してください:", "新しいタブ")
    If newTabName <> "" Then
        TabStrip1.Tabs.Add newTabName
    End If
End Sub

この例では、フォームが初期化されるときに最初のタブが追加され、ボタンがクリックされるとユーザーに新しいタブの名前を入力させ、それをタブストリップに追加します。

まとめ

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