Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

33322 / 76807

←次へ　｜　前へ→


	【48709】Re:クリックイベントのコードの記述について

ｂｙｋｉｎ - 07/5/2(水) 20:38 -


	引用なし

	パスワード

こんばんわ。

クリックしたコントロールを選択色にする。
　　↓
残りのコントロールを非選択色にする。

・・・っちゅう考え方やと、簡略化しにくいですわな。
こういうときは、

全部のコントロールを非選択色にする。
　　↓
クリックしたコントロールを選択色にする。

っていう方法にしたら簡単です。それをサブルーチンにして呼び出せばこんな感じ。

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コントロールをシートに貼り付けるのは重いし遅いし・・・

ま、とりあえずいっぺん試してみてな。
ほな。

0 hits

▼

【48700】クリックイベントのコードの記述について シュウ 07/5/2(水) 16:30