|
おじゃまします。
サブルーチンを作っておいて
各クリックイベントから呼び出してはどうですか?
Private Sub opClick(ByVal b As Long)
If isodd(b) Then
Me.Controls("Frame" & b).BackColor = RGB(255, 0, 0)
ElseIf iseven(b) Then
Me.Controls("Frame" & b).BackColor = RGB(0, 0, 255)
End If
End Sub
Private Sub OptionButton1_Click()
Call opClick(1)
End Sub
Private Sub OptionButton2_Click()
Call opClick(2)
End Sub
Private Sub OptionButton3_Click()
Call opClick(3)
End Sub
Private Sub OptionButton4_Click()
Call opClick(4)
End Sub
※atpvbaen.xlseに参照設定を忘れずに
あと色を消すコードはいりませんか?
いっぱい書くのが面倒ならクラスモジュールを使って
イベントプロシージャを一個にすることもできそうです。
(実際に作ってみてはいませんが)
違ったらすいません。
|
|