Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


6499 / 13646 ツリー ←次へ | 前へ→

【44877】マルチページとシートの連動 たく 06/12/5(火) 11:45 質問[未読]
【44880】Re:マルチページとシートの連動 Jaka 06/12/5(火) 12:22 発言[未読]
【44885】Re:マルチページとシートの連動 たく 06/12/5(火) 13:00 お礼[未読]

【44877】マルチページとシートの連動
質問  たく  - 06/12/5(火) 11:45 -

引用なし
パスワード
   皆様始めまして。VBAをはじめて3日目の初心者です。

現在、ユーザーフォームにマルチページ等を貼り付け、ある計算プログラム(?)を
作成しておりますが、マルチページとエクセルシートを連動させる命令の記述方法が分かりません。
例えば、マルチページの"page1"を選択すればエクセルシートの"sheet1"が選択されるという命令です。
マルチページのチェンジイベントを使って記述するのでしょうか?

誰か分かる方がいらっしゃれば宜しくお願い致します。

【44880】Re:マルチページとシートの連動
発言  Jaka  - 06/12/5(火) 12:22 -

引用なし
パスワード
   Private Sub MultiPage1_Change()
MsgBox "左から " & MultiPage1.Value + 1 & " 番目が選択"
MsgBox "タブの文字 " & MultiPage1.Pages(MultiPage1.Value).Caption
End Sub

上記で応用できると思いますが、
マルチページ1番左のMultiPage1.Valueが0だから、
Sheets(MultiPage1.Value + 1).select
とか...。
状況に応じて、エラーの対応なども必要になるかもしれません。

【44885】Re:マルチページとシートの連動
お礼  たく  - 06/12/5(火) 13:00 -

引用なし
パスワード
   jakaさん有難う御座います。

早速試して、自分なりに試行錯誤してみようと思います。

有難う御座いました。

6499 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free