ExcelのToggleButtonを排他的に使う方法

質問

• ExcelのVBAを使用してToggleButtonを排他的に使う方法を教えてください。
• ワークシート上にToggleButton1～3があり、各ボタンを押すと異なる処理が行われます。しかし、現在のコードでは排他的な動作がうまく働いていません。Excel2007とWindows7を使用しています。改善策を教えてください。
• ToggleButton1を押すと処理A、ToggleButton2を押すと処理B、ToggleButton3を押すと処理Cが行われるようにしたいのですが、現在のコードでは必ずしも排他的に動作しません。Excel2007とWindows7で動作する改善策を教えてください。

回答No.2

redfox63 · ベストアンサー

Application.EnableEventsで 制御できないんじゃないかな …

わたしなら
モジュールレベルの変数として
dim toggle, bFlag
を定義

ボタンの制御プロシージャを定義
Sub ClickProc(ctl as Object)
　　' フラグが Trueなら そのまま戻る
　　if bFlag then Exit Sub
　　if IsEmpty(toggle) then
　　　　toggle = Array(ToggleButton1, ToggleButton2, ToggleButton3)
　　end if
　　Dim ss as String
　　bFlag = True
　　ss = "処理Z"
　　select case ctl.Name
　　　　case "ToggleButton1"
　　　　　　if ctl.Value then ss = "処理A"
　　　　　　toggle(1).Value = False
　　　　　　toggle(2).Value = False
　　　　case "ToggleButton2"
　　　　　　if ctl.Value then ss = "処理B"
　　　　　　toggle(0).Value = False
　　　　　　toggle(2).Value = False
　　　　case "ToggleButton3"
　　　　　　if ctl.Value then ss = "処理C"
　　　　　　toggle(0).Value = False
　　　　　　toggle(1).Value = False
　　End Select
　　処理 ss
　　' 処理終了のためフラグをFalseに
　　bFlag = False
End Sub

各トグルボタンのクリックを

Sub ToggleButton1_Click()
　　ClickProc ToggleButton1
End Sub

Sub ToggleButton2_Click()
　　ClickProc ToggleButton2
End Sub

Sub ToggleButton3_Click()
　　ClickProc ToggleButton3
End Sub

といったぐあいで …

お礼

こんばんは♪
お礼が遅れてすみません。
callは省略できるのがわかりました!!!
制限がある様でいまひとつ難解でしたが，希望通り良いぐあいです（＾＾）
誠にありがとうございました♪

補足

かなり開けてしまいましたが，あけましておめでとうございます♪
お礼が遅れましてすみません。

コードをみると，直接打ち込んでいらっしゃるのでしょうか。すごいです♪
Private SubとSubの違いが解っていないといいましょうか，ボタンを作ってコードを表示させると
必ずPrivate Subなので，「Sub」でもいいのですね。。。

WindFaller様はテクニカルで面白いとの事ですが，私にはなんとも言えない程解らない所で御座います。
もう少し教えて頂きたいのですが・・・
１．ボタンに登録しているClickProc ToggleButton#は，ClickProc(ctl as Object)とどの様に関係しているのでしょうか？
２．ss = "処理Z"　，処理 ss　・・・ssに文字列の"処理Z"を入れて，最後に「処理 ss」を行う。
　この「処理 ss」というのは，どういったぐわいで使えばよろしいのでしょうか？？
３．トグルボタンは５つ使用予定ですので，toggle = Arrayに１～５，　toggle(＃).Valueに０～４で良いでしょうか。。。
自助努力が足りなくてすみませんが，宜しくご教示下さい。