エクセル2003 ユーザーフォーム、マルチページのページ選択の記述

質問

いつもこちらで勉強させていただいております。
エクセルVBAでユーザーフォームを作成しました。
フォームにはマルチページが有り、ページ数は3枚あります。
で、質問なのですが、フォームを読み込んだときに
ページを必ず1ページを表示するようにしたいのですが
コードの書き方が判りません。
フォーム作成でページ１を選択しておけば、1ページ目が
表に来るのですが、コードで処理しておけないかなと
思いましてご質問させていただきました。
フォームオブジェクト名：UesrForm1
ページオブジェクト名：Page1
となっております

回答No.1

bonaron · ベストアンサー

Private Sub UserForm_Initialize()
　　Me.MultiPage1.Value = 0
End Sub

> ページオブジェクト名：Page1
これは間違いありませんか？
上記コードは
ページオブジェクト名が MultiPage1 の場合です。

お礼

ご返答ありがとうございます。
オブジェクトの階層が理解できていませんでした。
UserForm1>MultiPage1
になっているんですね。
UserForm1>Pages(コレクション)
だと思っていました。
workbook>worksheetsと同じ様に思っていました。
マルチページの選択に
valueを使うとは全く知りませんでした。
勉強になります。ありがとうございます。
おかげさまで、問題点についてクリアすることができました。
ありがとうございます。

回答No.2

imogasi

＃１でご回答は済んでいますが
エクセルVBAで　、
UserFormを１つ挿入
そのUserForm上に１つのテキストボックスとマルチページを１つ張り付け。
右クリックして、「新しいページ」をクリックして、ページを３つにした。
Private Sub UserForm_Initialize()
s = Array("Page1", "Page2", "Page3")
MsgBox "フォームのInitialize実行"
With MultiPage1
.Value = 0
End With
TextBox1.Text = s(MultiPage1.Value) & "が選択状態"
End Sub
として実行すると,テキストボックスに「Page1が選択状態」、
.Value = 1
として実行すると「Page2が選択状態」
になることを確認しました。

お礼

お返事ありがとうございます。
おかげさまで無事解決しました。