Excel VBA質問箱 IV

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

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


33918 / 76738 ←次へ | 前へ→

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

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

Private Sub CommandButton1_Click()
'################################################日曜
If OpB1.Value = True Then  'オプションボタン1にチェックがあるとき
  ST = 1: ReT = 4     ’シート1、列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

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

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

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

0 hits

【48035】マルチページについて トムコ 07/4/1(日) 2:27 質問
【48041】Re:マルチページについて りん 07/4/1(日) 10:46 発言
【48045】Re:マルチページについて トムコ 07/4/1(日) 13:46 お礼
【48046】Re:マルチページについて りん 07/4/1(日) 14:10 回答
【48047】Re:マルチページについて トムコ 07/4/1(日) 15:02 お礼
【48048】Re:マルチページについて りん 07/4/1(日) 18:11 回答
【48052】Re:マルチページについて トムコ 07/4/1(日) 21:02 お礼
【48053】Re:マルチページについて りん 07/4/1(日) 21:34 発言
【48066】Re:マルチページについて トムコ 07/4/2(月) 17:51 お礼

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