|
みんさんこんにちは。
さっそくですが、オプションボタンについての質問です。
オプションボタンが複数個あります。(ここでは2個とします。実際は
15個ほどです)
オプションボタン1を押すとオプションボタン1のbackcolorに色がつきます。
オプションボタン2にはつきません。
オプションボタン2を押すとオプションボタン2のbackcolorに色がつきます。
オプションボタン1にはつきません。
現在は
Private Sub OptionButton1_Click()
'オプションボタン
For i = 1 To 2
If i = 1 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
このように書いていますが、これを15個も
書くと、同じようなコードがたくさんできてしまいます。
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=848;id=excel
を参考にして、クラスモジュールでやってみようかと思いましたが
うまくいきません。
短くてすむ書き方があれば教えて下さい。
宜しくお願いします。
|
|