[[20150422135733]]　『オプションボタンのオフ設定』（ren）　ページの最後に飛ぶ

『オプションボタンのオフ設定』（ren）

既存の質問、http://www.excel.studio-kazu.jp/kw/20070301163903.html
の回答者ＭＳＥさんの記載しておりました、

Sub ボタン2_Click()

 Sheet1.OptionButtons.Value = xlOff
 End Sub

のマクロを使わせていただきましたが、
こちらは「グループボックス内のオプションボタンのみオフにする」
という使い方はできますでしょうか？

上記のマクロを登録したオプションボタンを同時にグループボックスで囲っても、
シート内すべてのボタンがオフになってしまいます。

エクセル初心者で、マクロを初めて使用したものでまったくわからないのでご教授ください。

＜使用 Excel：Excel2013、使用 OS：Windows8 ＞

 Sub ボタン2_Click() 
    Dim O As OptionButton

    With Shapes("Group Box 1")
        For Each O In OptionButtons
            If .Top < O.Top And O.Top < .Top + .Height And _
               .Left < O.Left And O.Left < .Left + .Width Then
               O.Value = xlOff
            End If
        Next
    End With
 End Sub
（???） 2015/04/22(水) 14:38

 >上記のマクロを登録したオプションボタンを同時にグループボックスで囲っても、

 滑っていたらスルーしてください。

 このマクロは、オプションボタンとは別に、たとえば、ボタンを配置して、それをクリックすると
 たとえば　グループ 1 のオプションボタンをすべてオフにする、あるいは別のボタンをクリックすると
 グループ 2 のオプションボタンをすべてオフにする。　そういう構えですか？

 「マクロを登録したオプションボタン」というところが気になりましたので。
 この意味が、「オプションボタンにマクロを登録」ということなら、ちょっと、何をしたいのかが
 わからなくなりまして・・・・

 まぁ、オプションボタンとは別のボタンに登録するとして、すでに (???)さんからシートモジュールに書くものが
 アップされていますが、以下のようなコードでも。（同じくシートモジュールに）

 Sub ボタン2_Click()
    Dim Op As OptionButton

    For Each Op In OptionButtons
        If Op.GroupBox.Name = "Group Box 1" Then Op.Value = xlOff
    Next

 End Sub

（β） 2015/04/22(水) 17:16

 ↑　シート上にグループボックスで過去っていないオプションボタンがあった場合エラーになりますので
 以下でリバイス願います。

 Sub ボタン2_Click()
    Dim Op As OptionButton
    On Error Resume Next
    For Each Op In OptionButtons
        If Op.GroupBox.Name = "Group Box 1" Then Op.Value = xlOff
    Next
 End Sub

（β） 2015/04/22(水) 19:18

???さん、βさん、ありがとうございます。
（ren） 2015/04/23(木) 17:20

コメント返信：

[ 一覧(最新更新順) ]

[[20150422135733]] 『オプションボタンのオフ設定』（ren） ページの最後に飛ぶ

[[20150422135733]]　『オプションボタンのオフ設定』（ren）　ページの最後に飛ぶ