|
▼ishy さん、こんにちは
クラスでも出来るかもしれませんが・・・(あとで考えてみよ)
とりあえず、こんな方法はどうですか?
サブルーチンにして・・・
Sub test(k As Long)
Dim i As Long
For i = 1 To 15
If i = k Then
With Controls("OptionButton" & i)
.Value = True
.BackColor = RGB(176, 196, 222)
.BackStyle = 1
End With
Else
With Controls("OptionButton" & i)
.Value = False
.BackStyle = 0
End With
End If
Next i
End Sub
Private Sub OptionButton1_Click()
Call test(1)
End Sub
↑この部分は、15個分書かないとだめですが、1行だけなんで、だいぶマシでしょう?ダメ?
クラスでもちょっと考えてみます。
・・・考える間に、誰か回答してくれるかもしれんけど・・・
私のはあてにせんといてなー(^^;
|
|