OfficeType

VBA~ユーザーフォームのタブストリップの文字列を変更しよう~Excel

ユーザーフォームのタブストリップのタブの文字列はデフォルトではTab番号ですが文字列を変更したい場合はCaptionプロパティを設定します。

書き方

オブジェクト名.Caption = "文字列"

オブジェクト名はユーザーフォームのオブジェクト名と、タブストリップの各タブのオブジェクト名を指定します。オブジェクト名の確認方法は作成したユーザーフォームファイルをクリックするとユーザーフォームが表示されます。ユーザーフォーム全体を選択するとプロパティウィンドウにオブジェクト名という項目があるので、それがユーザーフォームのオブジェクト名になります。次にタブストリップを選択すると同じようにタブストリップのオブジェクト名が確認できます。各タブのオブジェクト名はTabs(インデックス番号)でインデックス番号は左から0,1,2,3・・・となります。プロパティウィンドウが表示されていない場合はメニューの表示からプロパティウィンドウをクリックすると表示されます。

UserForm1というユーザーフォームを作成し、TabStrip1というタブストリップを設定した場合、下のコードを実行するとタブストリップの各タブの文字列が変更されます。

Sub test1()

Load UserForm1
UserForm1.TabStrip1.Tabs(0).Caption = "月"
UserForm1.TabStrip1.Tabs(1).Caption = "火"
UserForm1.Show

End Sub

image-01