マルチページとシートの連動

質問

エクセルで入力フォームを作ろうとしております。
フォームにマルチページ設定してタブを切り替えるとエクセルのシートが切り替わる
といったことをしたいのですが、
ご教授ください。

回答No.1

keithin · ベストアンサー

changeイベントで切り替えます。
例：マルチページの１，２，３がワークシートの１枚目，２枚目，３枚目に対応するとして

private sub MultiPage1_Change()
　activeworkbook.worksheets(me.multipage1.value + 1).select
end sub

お礼

出来ました＾＾ありがとうございます
助かりました

回答No.2

imogasi

既に回答も有りますが、ＵｓｅｒＦｏｒｍ１に
Ｍｕｌｔｉｐａｇｅ　ｗｏＤ＆ＤするとＰａｇｅ１，Ｐａｇｅ２の
タブのＭｕｌｔｉＰａｇｅが出来ます
そのＭｕｌｔｉＰａｇｅをダブルクリックして出てくる
Private Sub MultiPage1_Change()

End Sub
に
Private Sub MultiPage1_Change()
MsgBox MultiPage1.Value
End Sub
として、フォームのひょうじを行いＰａｇｅ１やＰａｇｅ２のタブを
クリックすると0や1が表示される。それでその数字をシートのＩｎｄｅｘの
１，２の算出に使う。
Private Sub MultiPage1_Change()
x = MultiPage1.Value
MsgBox MultiPage1.Value
Worksheets(x + 1).Activate
End Sub
しかしＳｈｅｅｔ１，Ｓｈｅｅｔ２は連結状態のようになって
その他のシートを選択できなくなるようだ。
標準モジュールに
Sub test01()
UserForm1.Show vbModeless
End Sub
を入れて実行し、ＵｓｅｒＦｏｒｍ１を表示させれば
それが出来るようになる。
ーー
そもそも質問のことで、（続いてその後とか）何がしたいのか
明確でない。参考までに書いて質問すべきと思う。
--
そもそも初心者なら凝ったことをやりすぎではないか？

お礼

ありがとうございました。
勉強になります。