![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.1ベストアンサー
- 回答日時:
ToggleButton1 のクリックで、ToggleButton2 の Value を操作した時点で、ToggleButton2 の Change や Click が呼ばれちゃいます。
シートに ToggleButton が 2つだけなら下記でそれらしく動作しました。
'***********************************************
Private Sub ToggleButton1_Click()
ToggleButton2.Value = Not ToggleButton1.Value
End Sub
'***********************************************
Private Sub ToggleButton2_Click()
ToggleButton1.Value = Not ToggleButton2.Value
End Sub
'***********************************************
シートに ToggleButton が 3つ以上ある場合は工夫が必要で、一応下記でそれらしく動作しました。
'***********************************************
Private Sub ToggleButton1_Click()
If Application.EnableEvents Then myToggle 1
End Sub
'***********************************************
Private Sub ToggleButton2_Click()
If Application.EnableEvents Then myToggle 2
End Sub
'***********************************************
Private Sub ToggleButton3_Click()
If Application.EnableEvents Then myToggle 3
End Sub
'***********************************************
Sub myToggle(cnt As Integer)
Dim ob As OLEObject
On Error Resume Next
Application.EnableEvents = False
For Each ob In Me.OLEObjects
If ob.ProgId = "Forms.ToggleButton.1" Then
If ob.Name = "ToggleButton" & cnt Then
ob.Object.Value = True
Else
ob.Object.Value = False
End If
End If
Next ob
Application.EnableEvents = True
End Sub
'***********************************************
この回答へのお礼
お礼日時:2006/06/18 17:10
素晴らしいご回答ありがとうございます。
おかげさまで思うような動作のボタンになりました。
3つ以上の方のコードは読み解くことが出来ず丸写しになってしまいました。
理解を目指して勉強して行きたいと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
UPS警告音を止めたい
-
パナソニックKX-PW22CLHの電話...
-
Excelシート上のマクロを登録し...
-
複数シートのボタンに同一の動...
-
ユーザーフォームをショートカ...
-
EXCELの塗りつぶしのボタ...
-
ボタンを押しただけで発生する...
-
Excel ラジオボタンのリセット...
-
複数CSVファイルを一括インポート
-
エクセルで質問です。
-
マクロを登録しているボタンが...
-
Accessのフォームでタブの色
-
エクセルで、オプションボタン...
-
APEXをパソコンでしようとゲー...
-
EXCEL VBA マクロ 実行する度に...
-
VBA エンターキーでイベントに...
-
「PC Helpsoft Driver Updated...
-
【Excel】特定の文字を含むセル...
-
メルカリのメルカードで買い物...
-
お家デートをしててハグを長い...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelシート上のマクロを登録し...
-
UPS警告音を止めたい
-
エクセルの画面にユーザーフォ...
-
【Excel VBA】マクロボタンを表...
-
ユーザーフォームをショートカ...
-
Excel ラジオボタンのリセット...
-
フォームコントロールから作っ...
-
エクセルで、オプションボタン...
-
Accessのフォームでタブの色
-
複数シートのボタンに同一の動...
-
マクロを登録しているボタンが...
-
Excelで、ボタンにコメントをつ...
-
マクロで作ったボタンのサイズ...
-
excel スクロールしても常にボ...
-
EXCELの塗りつぶしのボタ...
-
VBAでオプションボタンなどそれ...
-
EXCELのマクロが 実行時エラー5...
-
マクロ初心者です。 msgboxのre...
-
VBAでクリアボタンのみ残してシ...
-
Access VBAでボタンの背景色を...
おすすめ情報