| |
▼初心者 さん：
こんばんは。
>ToggleButtonが5個あり
>ToggleButtonの１〜４を押した状態にした時に
>自動でToggleButton5が押した状態になるようにするにはどうしたらよいでしょうか
>またその状態から
>１〜４のどれか一つでも押した状態でなくなったら
>ToggleButton５もおした状態でなくなるようにしたいと思います
どこに配置した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の数が増えるようなら、クラスモジュールの使用を考えます。
|
|
ichinose
- 08/10/30(木) 19:49 -
