タブでページを切り替えて使う、マルチページコントロールの使い方

ユーザーフォーム講座動画編 12回
タブでページを切り替えて使う、マルチページコントロールの使い方

動画でExcel　タブでページを切り替えて使う、マルチページコントロールの使い方

【VBAユーザーフォーム】タブでページを切り替えて使う、マルチページコントロールの使い方。基礎編第12回

タブでページを切り替えて使う、マルチページコントロールの使い方動画版「ユーザーフォーム講座」です。
マルチページ ( MultiPage) コントロールは、どんな場面で便利なのでしょうか？
いくつものグループやカテゴリに分かれた大きなデータを扱う時になどに便利です。
同じコントロールでは処理しきれず、複数のフォームを使うことが想定される場合なども、1つのフォームで頁を切り替えて使えるので、ユーザーにとって負担が少ないでしょう。

マクロ動画　タブでページを切り替えて使う、マルチページコントロールの使い方

https://youtu.be/1-q5FSUHfAs

マルチページコントロールの作成

マルチページはページごとに異なるコントロールを持つことができるフォームのコントロールです。
ただそれだけ1つのフォームにたくさんのコントロールを配置するということになりますから、メンテナンスは後々かなり大変かもしれません。

前回はフレームで、グループを分けて使いやすく、操作しやすくするという内容でしたが、マルチページは、それ以上にしっかりとページを分けて区別するということになります。

マルチページコントロールをフォームに作成します。
ツールボックスから、マルチページというコントロールをクリックして好きな位置で好きな大きさのページをクリックして作成します。

マルチページが作成されました。デフォルトでは２ページです。

ページ1をクリックするとPageオブジェクトのPage1のプロパティが表示されます。
ページ2をクリックすればページ2のプロパティになります。

マルチページのページを追加

ページを一つ増やしたい時は、右クリックして新しいページとを選択します。
右クリックからは、ページの削除、名前の変更などができます。
新しいページを追加して3ページにしました。

ページ1、ページ2、ページ3とあり、このタブをクリックするたびに表示するページが変わります。このページのタイトルは、PageのプロパティにあるCaptionからお好きなようにタブタイトルを変更してください。

マルチページのタブをボタン風に変更

マルチページの外側をクリックして、選択状態を小さなドットになるようにすると、マルチページ全体を選択しているということになり、マルチページのプロパティを変更できるようになります。
その選択でプロパティウィンドーにあるStyleから、Tab,Button,None のいずれかを選ぶことができます。

Buttonsを選択したので、見かけ上はボタンのように見えます。

TabOrientation

タブオリエンテーションは、タブの位置です。
デフォルトではTop です。, 他の位置に移動したい場合、Top以外にBottom,Left,Rightの方向に移動ができます。

ページの切り替えがタブだけでは、使いにくい場合もあるかもしれないので、次の頁へ移動するためのボタンを作成しました。いっしょに閉じるボタンも作成しました。以下がそのコードです。

Private Sub btn_exit_Click()
     Unload Me
 End Sub
 
 Private Sub btn_tugi_Click()
     Dim 数 As Long
     Dim ページ As Long
     数 = MultiPage1.Pages.Count
     ページ = MultiPage1.Value
     ページ = (ページ + 1) Mod 数
     MultiPage1.Value = ページ
 End Sub

マルチページのユーザーフォ０ムを起動して動作を確認しました。