Excel VBA質問箱 IV

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

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


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

33907 / 76738

←次へ　｜　前へ→


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

トムコ - 07/4/1(日) 15:02 -


	引用なし

	パスワード

りんさん、早速の回答ありがとうございます。

>前回のマクロをちょっと変えて。
>Private Sub CommandButton2_Click()
>　 Dim obj As Object
>　 Dim PP(0 To 5) As String
>　 '
>　 For Each obj In Me.Controls
>　　　Select Case UCase(TypeName(obj))
>　　　　 Case "MULTIPAGE"
>　　　　　　NN% = obj.Value
>　　　　 Case "OPTIONBUTTON"
>　　　　　　'Trueの時は配列に確保
>　　　　　　If obj.Value = True Then
>　　　　　　　 PP(obj.Parent.Index) = obj.Name
>　　　　　　End If
>　　　End Select
>　 Next
>　 '結果表示（チェックされたものが無ければ空白が返ります）
>　 MsgBox PP(NN%), vbInformation, "該当ページのチェックされたオプション"
>　 Erase PP
>End Sub
>こんな感じです。

上記のマクロに変えてみました。
メッセージボックスに該当ページのチェックされたオプションボタンの番号が表示されるようになりました。

上記のマクロに、○を記入するマクロを組み込めばよいのでしょうか？
たびたびの質問で恐縮です。

0 hits

▼

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