|
こんばんわ。
クリックしたコントロールを選択色にする。
↓
残りのコントロールを非選択色にする。
・・・っちゅう考え方やと、簡略化しにくいですわな。
こういうときは、
全部のコントロールを非選択色にする。
↓
クリックしたコントロールを選択色にする。
っていう方法にしたら簡単です。それをサブルーチンにして呼び出せばこんな感じ。
Private Sub ChangeBkColor(ByRef Target As Object, ByRef CellValue As String)
Dim Opt As Object
For Each Opt In ActiveSheet.OLEObjects
Opt.Object.BackColor = RGB(238, 233, 128)
Next
Target.Object.BackColor = RGB(238, 73, 119)
Range("D1").Value = CellValue
End Sub
Private Sub OptionButton1_Click()
ChangeBkColor OptionButton1, "リンゴ"
End Sub
Private Sub OptionButton2_Click()
ChangeBkColor OptionButton2, "ミカン"
End Sub
Private Sub OptionButton3_Click()
ChangeBkColor OptionButton3, "バナナ"
End Sub
Private Sub OptionButton4_Click()
ChangeBkColor OptionButton4, "イチゴ"
End Sub
ただ、わてやったらマクロ使わんと、フォームツールバーのコントロールと
条件付書式で済ますんやけどなー
ActiveXコントロールをシートに貼り付けるのは重いし遅いし・・・
ま、とりあえずいっぺん試してみてな。
ほな。
|
|