|
▼初心者 さん:
こんばんは。
>ToggleButtonが5個あり
>ToggleButtonの1〜4を押した状態にした時に
>自動でToggleButton5が押した状態になるようにするにはどうしたらよいでしょうか
>またその状態から
>1〜4のどれか一つでも押した状態でなくなったら
>ToggleButton5もおした状態でなくなるようにしたいと思います
どこに配置したToggleButtonなのかを明確に記述してください。
それによってコードが違う場合がありますから・・・。
ユーザーフォームに配置したそれだとして・・・、
当該ユーザーフォームのモジュールに
'==========================================================
Private Sub ToggleButton1_Click()
Call chk
End Sub
Private Sub ToggleButton2_Click()
Call chk
End Sub
Private Sub ToggleButton3_Click()
Call chk
End Sub
Private Sub ToggleButton4_Click()
Call chk
End Sub
Sub chk()
Dim g0 As Long
For g0 = 1 To 4
If Not Controls("ToggleButton" & g0).Value Then Exit For
Next
ToggleButton5.Value = (g0 = 5)
End Sub
もっとToggleButtonの数が増えるようなら、クラスモジュールの使用を考えます。
|
|