Excel VBA質問箱 IV

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

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


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

33982 / 76807

←次へ　｜　前へ→


	【48041】Re:マルチページについて

りん

- 07/4/1(日) 10:46 -


	引用なし

	パスワード

トムコさん、おはようございます。

>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
↑この分岐方法だと、ページ１でチェックが入っているものがあるとそれ以外のページでチェックが入っても無効になります（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

ページ１～５まであるとして、
　・５つとも選ぶ（最大５つ○が入る）
　・現在表示されているページのものだけ有効（○は一つ）
どちらでしょうか？

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

1 hits

▼

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