|
よろしくお願いします。
受講者の出席状況をユーザーフォームを使って入力しようとしています。
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
これだけです。
自分の力量ではどうしてもわかりません。
どうか、よろしくお願いします。
|
|