エクセルVBAマルチページ作成。秘密鍵コードで非表示化！

今回は知識編、マルチページの設置方法です。

ユーザーフォームはマルチページでデザイン数も広がります。

使ってみる前は難しく思えますが、設置は至って簡単！非表示化で秘密コマンドも作れます。

こんにちは、じゅんぱ店長（@junpa33）です。

エクセルＶＢＡで使って便利なのが、ユーザーフォーム

そのユーザーフォームのコントロールの中で使って便利なのが、「マルチページ」です。

結構　そのように思われている方も多いのではないでしょうか。

と、言うことで、今回は、「マルチページ」の設置の方法についてまず最初に、基本部分を説明したします。

マルチページを設置した実例はこちら↓でご覧になります。

2020年8月15日封筒宛名印刷エクセルソフトの無料DLと取説

2019年4月29日ユーザーフォームのVBAで領収書の印刷をコントロールする方法

プチなVBAコード記事シリーズは他にもこのようなものがあります。

「プチなVBAコード」の記事一覧を開く

コンテンツ

エクセルVBAマルチページを始めから作成する

ユーザーフォームにマルチページを配置

ツールボックスからマルチページを選ぶ

コントロールから「マルチページ」を選択し、ユーザーフォーム上で展開します。

Captionプロパティからページ表示を変更する

プロパティリストの中でCaptionの項目を「Page1」から「その１」に変更します。

ここは、各ページタブの名称を変更・決定する部分です。適宜変更することが出来ます。

新しいページを追加する

マルチページをアクティブ（マウスで左クリック）します。

次に、タブの上で右クリックして「新しいページ」を選択します。

ページのタブ順を変更するには

タブのところで右クリックすると表示されるメニューから「移動」を選択する。

表示された「ページの順序」で変更できます。

マルチページにコマンドボタンを置く

「その１」ページにコントロールを設置する

「その１」ページにコマンドボタンを置きます。いつも通りにツールボックスから選んで「その１」に設置します。

「その２」ページにも設置する

同じように「その２」ページを選択表示したときには、「その１」ページのコマンドボタンは背後に回って表示されません。

同様に「その２」ページにもコマンドボタンを置きます。

ユーザーフォーム１モジュールでコマンドボタンのコードを確認

ユーザーフォーム１のモジュールを確認すると、設置ページなどの区別なく、シンプルにコントロール毎に表記されている。

マルチページ１のプロパティ「Style」を変更してみる

「0-fmTabStyleTabs」

デフォルトの設定です。

「1-fmTabStyleButtons」

タブがトグルボタン式に際立って表示されます。

「2-fmTabOrientationTop」

トップページの表示だけ残り、マルチページそのものをアンビジブルにします。

目次へ戻る

秘密鍵コードで非表示化

作成の流れ

ユーザーフォームにマルチページを設置。
隠しページに隠したいコントロールを設置
ＴＯＰページに表示して良いコントロールを設置
「秘密鍵」を実行するスイッチをユーザーフォームに設置
ユーザーフォームモジュールに、マルチページの「Style」プロパティを操作するコードを記入

それぞれのコントロールを設置する

１・２・３の設置

「Page1」はＴＯＰページとしてマルチページのステルス後にも見える部分になります。

「Page2」以降は秘密鍵による隠しページになります。

４の設置

簡単には、コマンドボタンやトグルボタンを設置すればよいのですが、あまり「秘密の意味」がなくなってしまいますので、

ちょっとした「これかぁ～」というようなものを設置したいと思います。ちょっと遊び気分で作りましょう。

分かり易い例でいえば、

「今日の天気」というCaptionのフレームに、「晴れ」・「曇り」・「雨」・「台風」のオプションボタンを設置します。

特定の天気を選択したあと、黄色のラベルをクリックするとマルチページのStyleプロパティを切り替えるスイッチが入ります。

コントロールの設置方法は、ツールボックスよりコントロールを選択して行ってください。

「黄色のラベル」はユーザーフォームのベース色と同色にすると場所の所在が消えますので、より秘密のスイッチ的になります。

ユーザーフォームモジュールでのコード作成

「曇り」を選択して「黄色ラベル（この場合Label３）」をクリックするとマルチページがアンビジブルになります。

「雨」を選択して「黄色ラベル（この場合Label３）」をクリックするとマルチページがビジブルになります。

2020年12月4日 With～End Withの使い方。VBAコードを簡潔に記述する

VBA

Private Sub Label3_Click()
        If OptionButton2 = True Then
            With MultiPage1
                .page2.Visible = False
                .Style = 2
            End With
        ElseIf OptionButton3 = True Then
            With MultiPage1
                .page2.Visible = True
                .Style = 1
            End With
        Else
            Exit Sub
        End If
End Sub

目次へ戻る