Excel VBA質問箱 IV

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

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


33905 / 76734 ←次へ | 前へ→

【48045】Re:マルチページについて
お礼  トムコ  - 07/4/1(日) 13:46 -

引用なし
パスワード
   りんさん、早速の回答ありがとうございます。

>↑この分岐方法だと、ページ1でチェックが入っているものがあるとそれ以外のページでチェックが入っても無効になります(OpのNoの若いものが常に有効)。

ページが変わってもチェックは外れないのですね。
りんさんの回答で疑問が解けました。

>そのフォームにCommandButton2を置いて以下のマクロを記述し、適当にチェックをつけた後にクリックしてみてください。
>Private Sub CommandButton2_Click()
>  Dim obj As Object
>  For Each obj In Me.Controls
>   If TypeName(obj) = "OptionButton" Then
>     MsgBox obj.Value & vbCrLf & obj.Parent.Name, vbInformation, obj.Name
>   End If
>  Next
>End Sub
>
>ページ1〜5まであるとして、
> ・5つとも選ぶ(最大5つ○が入る)
> ・現在表示されているページのものだけ有効(○は一つ)
>どちらでしょうか?

現在表示されているページのものだけ有効で○は一つと考えていますが、
まとめて数回分の出席を入力したい場合に、ページがまたがってしまう事があるのです。
このときに、今の分岐方法ではダメなのだということはわかりました。

前のページのチェックをはずす方法は無いのでしょうか?

上記のマクロを実行しましたが、メッセージボックスにチェックが入っていると
”True”が出ます。

>5つとも選ぶ場合は、上記のようにループでチェックの入ったものを取得し○、1つだけなら、Parent.Nameでページ位置を判定してそこに○・・・という漢字でしょうか。

1つだけなら、Parent.Nameでページ位置を判定してそこに○というようにするには、
どのようにマクロを組んだらよいのでしょうか?

ここまでくると自分の力量ではどうしたらよいのかわかりません。
どうかアドバイスをお願いします。

1 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 お礼

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