[[20050815172557]]　『ラジオボタン，チェックボックスの状態をマクロ内』（ちょっかく）　ページの最後に飛ぶ

『ラジオボタン，チェックボックスの状態をマクロ内で把握するには？』（ちょっかく）

シートの中にラジオボタンとチェックボックスを配置して、その状態によってマクロの
中で条件分岐させたいのですが、どのようにしたら良いのでしょうか？

googleで検索してもそれらしいサイトを見つけられませんでした。
教えてください。よろしくお願いします。

こんにちは。ひとつ確認したいのですが、

ラジオボタンやチェックボックスはフォームツールバーから配置したものですか？

それとも、コントロールツールボックスの方でしょうか？

それによって、扱いが違いますから。

(MSE)

ちょっかくです。

フォームツールバー, コントロールツールボックスのどちらを使うのがお勧めなのでしょうか。違いがわからないので決められません。

わかりやすい方でお願いします。
(あるいは記述文字数が少なくてすむ方をお願いします)

わかりやすいだけなら、フォームツールバーです。マクロを使わなくても利用することが可能です。

コントロールツールボックスの方を使うにはある程度、マクロの知識が必要になります。

しかし、その分高度なことが出来ます。

結局、どちらを使った方が良いかは、ケースバイケースで、それを使って何をやりたいのか
によります。

(MSE)

ちょっかくです。

マクロは必ず使います。

やろうとしているのは、ラジオボタンでマクロでやらせることを切り替える。チェックボックスでマクロの中でデータを拾うシートを指定するということです。

マクロはボタンを押すことで実行させますのでこのボタンを押す前にラジオボタンとチェックボックスを操作します。

このような場合、フォームツールバー, コントロールツールボックスのどちらを使うのが適当なのでしょう。

できました。フォームでやりました。
いろんなサイトを見ると参考になるものがありました。

Sub ボタン5_Click()

If ActiveSheet.Shapes("オプション 2").ControlFormat.Value = xlOn Then

    MsgBox "オプション 2 チェック"
Else
    MsgBox "オプション 2 ノーチェック"
End If

If ActiveSheet.Shapes("チェック 6").ControlFormat.Value = xlOn Then

    MsgBox "チェック 6 X"
Else
    MsgBox "チェック 6 -"
End If

If ActiveSheet.Shapes("チェック 7").ControlFormat.Value = xlOn Then

    MsgBox "チェック 7 X"
Else
    MsgBox "チェック 7 -"
End If

If ActiveSheet.Shapes("チェック 8").ControlFormat.Value = xlOn Then

    MsgBox "チェック 8 X"
Else
    MsgBox "チェック 8 -"
End If

End Sub

If ActiveSheet.ToggleButton(i) = xlOn Then

コメント返信：