Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

33987 / 76807

←次へ　｜　前へ→


	【48035】マルチページについて

トムコ - 07/4/1(日) 2:27 -


	引用なし

	パスワード

よろしくお願いします。
受講者の出席状況をユーザーフォームを使って入力しようとしています。
C列に受講者氏名（１００名分）、D列からAT列までは開講講座回数があります。
ユーザーフォーム上にリストボックス、コマンドボタン、マルチページがあります。
・リストボックスはC列の受講者氏名が表示されています。
・マルチページは開講講座の内容により、５ページ用意しています。
・マルチページ上にフレームを貼りその中にオプションボタンを配置しています。
・オプションボタンは開講講座回数分あります。
・オプションボタンにチェックを入れ、リストボックスから受講者を選択して
　コマンドボタンを押すと一覧表の該当するセルに○が付くようになっています。

Private Sub CommandButton1_Click()
'################################################日曜
If OpB1.Value = True Then　　'オプションボタン１にチェックがあるとき
　　ST = 1: ReT = 4　　　　　’シート１、列Dを選択　
ElseIf OpB2.Value = True Then
　　ST = 1: ReT = 7
ElseIf OpB3.Value = True Then
　　ST = 1: ReT = 10
ElseIf OpB4.Value = True Then
　　ST = 1: ReT = 13
ElseIf OpB5.Value = True Then
　　ST = 1: ReT = 16
ElseIf OpB6.Value = True Then
　　ST = 1: ReT = 19
ElseIf OpB7.Value = True Then
　　ST = 1: ReT = 22
ElseIf OpB8.Value = True Then
　　ST = 1: ReT = 25
ElseIf OpB9.Value = True Then
　　ST = 1: ReT = 28
　　　　　　　・
　　　　　　　・
　　　　　　　・
End If
　　記録　’
End Sub

というようにしているのですが、ページ１ではうまくセルに○が付くのですが、
ページが変わると実行しません。
マルチページに関するマクロは

Private Sub UserForm_Initialize()
MultiPage1.Value = 0
Hn = 1
End Sub

これだけです。
自分の力量ではどうしてもわかりません。
どうか、よろしくお願いします。

1 hits

▼

【48035】マルチページについて トムコ 07/4/1(日) 2:27

≪