Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6511 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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

上記で応用できると思いますが、
マルチページ１番左のMultiPage1.Valueが０だから、
Sheets(MultiPage1.Value + 1).select
とか...。
状況に応じて、エラーの対応なども必要になるかもしれません。
【44885】Re:マルチページとシートの連動
お礼  たく  - 06/12/5(火) 13:00 -
引用なし
パスワード
   jakaさん有難う御座います。

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

有難う御座いました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6511 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free