[[20120925123349]]　『ラジオボタンでの条件分岐』（ねこ）　ページの最後に飛ぶ

『ラジオボタンでの条件分岐』（ねこ）

 Excel2010です。

 ・フォームでラジオボタンを置いています
 ・1つ目のラジオボタンを「ツアー」か「フリー」を選択します
 ・2つ目のラジオボタンで「午前」か「午後」を選択しますが、1つ目の質問で
 「フリー」を選んだ場合は、「午後」しか選べない、もしくは「午前」を選んだ
 場合にエラーを出す

 以上のことを実行したいのですが、ご教授いただけますでしょうか？

 ちょっと用語確認。

 「フォームで」とあるのは「ユーザーフォームで？」それともシート上の「フォームツールのコントロール？」

 (ぶらっと)

 とりあえずユーザーフォームだとして。
 １つ目のオプションボタンを OptionButton1(ツァー）,OptionButton2（フリー）
 ２つ目のオプションボタンを OptionButton3（午前）,OptionButton4（午後）
 １つ目、２つ目は、それぞれグルーピングしてあるという前提。

 Private Sub OptionButton1_Change()
    If OptionButton2.Value Then
        OptionButton4.Value = True
        OptionButton3.Enabled = False
    Else
        OptionButton3.Enabled = True
    End If
 End Sub

 (ぶらっと)

 説明が足らず申し訳ありません。
 Excel2010の開発タブの挿入＞フォームコントロールでおいたラジオボタンになります。

 （ねこ）

 それでは。
 以下の例では
 １つ目のオプションボタンを オプション 2(ツァー）,オプション 3（フリー）
 ２つ目のオプションボタンを オプション 5（午前）,オプション 6（午後）
 １つ目、２つ目は、それぞれ別のグループボックスで囲まれているという前提。

 標準モジュールに以下を記述し、それを　オプション 2 と オプション3 にマクロ登録。

 Sub Click_1()
    If ActiveSheet.OptionButtons("オプション 3").Value = xlOn Then
        ActiveSheet.OptionButtons("オプション 6").Value = xlOn
        ActiveSheet.OptionButtons("オプション 5").Enabled = False
    Else
        ActiveSheet.OptionButtons("オプション 5").Enabled = True
    End If
 End Sub

 (ぶらっと)

 ありがとうございます。
 希望通りの動きとなりました！

 （ねこ）

コメント返信：

[ 一覧(最新更新順) ]

[[20120925123349]] 『ラジオボタンでの条件分岐』（ねこ） ページの最後に飛ぶ

[[20120925123349]]　『ラジオボタンでの条件分岐』（ねこ）　ページの最後に飛ぶ