教えて!ExcelVBA!

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

ExcelVBAでフォーム内のタブストリップにタブを追加する方法

構文

構文は以下の通りです。

タブストリップ名.Tabs.Add "タブ名", インデックス

解説

タブストリップ名は、フォーム内のタブストリップコントロールの名前です。Tabs.AddのTabsはタブストリップ内のタブのコレクションを指し、Addメソッドは新しいタブを追加します。タブ名は、新しいタブに表示される名前です。自分の好きな名前を文字列で指定します。インデックスは、タブの表示順を指定します。省略すると末尾にタブが追加されます。

プログラミング例

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

Private Sub UserForm_Initialize()
    ' 新しいタブを追加
    Dim タブストリップ As MSForms.TabStrip
    Set タブストリップ = Me.TabStrip1
    ' タブを追加(インデックス指定なしで末尾に追加)
    タブストリップ.Tabs.Add "新しいタブ"
    ' インデックスを指定してタブを追加(2番目に追加)
    タブストリップ.Tabs.Add "二番目のタブ", 1
End Sub

上記のプログラムでは、フォームが初期化されるときに、タブストリップに新しいタブが追加されます。タブストリップ.Tabs.Add "新しいタブ" でタブを末尾に追加し、タブストリップ.Tabs.Add "二番目のタブ", 1 で特定の位置(この場合は2番目)に追加しています。

まとめ

タブストリップに新しいタブを追加する方法は簡単で、Tabs.Addを使うだけです。名前や表示位置を調整することで、自由にタブのレイアウトをカスタマイズできます。