|
りんさん、早速の回答ありがとうございます。
>前回のマクロをちょっと変えて。
>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
>こんな感じです。
上記のマクロに変えてみました。
メッセージボックスに該当ページのチェックされたオプションボタンの番号が表示されるようになりました。
上記のマクロに、○を記入するマクロを組み込めばよいのでしょうか?
たびたびの質問で恐縮です。
|
|