マルチページを操作する
MultiPageの2つのページに名前を付け、ボタンから2ページ目を表示します。
実行前に確認
- ページ番号は0始まりです。Pages(1)を使う前提として2ページを残してください。ボタンをページ内に置くと切替後に見えなくなるのでフォーム本体に置きます。
- コードと公式仕様を照合した学習用の例です。Excel実機での実行確認は行っていません。
1サンプルコード
'【貼付先：UserForm1 のコードモジュール】
Option Explicit
Private Sub UserForm_Initialize()
Me.MultiPage1.Pages(0).Caption = "入力"
Me.MultiPage1.Pages(1).Caption = "確認"
Me.MultiPage1.Value = 0
Me.CommandButton1.Caption = "確認ページへ"
End Sub
Private Sub CommandButton1_Click()
Me.MultiPage1.Value = 1
End Sub図で見るページを切り替える
イメージ図MultiPageの2つのページに名前を付け、ボタンから2ページ目を表示します。
準備
入力と確認の2ページ
初期表示
Value=0で入力ページ
ボタン
Value=1で確認ページ
各操作は、このガイドに指定されたフォームのコードで行います。
コードの処理を説明する模式図です。実際の画面や実行結果を撮影したものではありません。
使い方・実行手順を確認する5つの手順で、コードの使い方を確認できます
- 1
Windows版デスクトップExcelの練習用ブックを.xlsmで保存し、Alt＋F11→［挿入］→［ユーザーフォーム］で、名前がUserForm1の空のフォームを用意します。各例は別々に試します。
- 2
ツールボックスからMultiPageを1個（MultiPage1、ページは2枚のまま）と、MultiPageの外側にCommandButton1を1個を置き、各コントロールの［(Name)］が記載どおりか確認します。
- 3
UserForm1を右クリック→［コードの表示］を開き、掲載コード全体をフォームのコードモジュールへ貼り付けます。標準モジュールには貼り付けません。
- 4
VBEでUserForm1を選び、F5でフォームを表示します。 最初の「入力」タブを確認し、「確認ページへ」を押します。
- 5
2ページ目の「確認」が表示されます。タブをクリックすれば「入力」に戻れます。