Excel VBA質問箱 IV

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

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


33248 / 76733 ←次へ | 前へ→

【48709】Re:クリックイベントのコードの記述について
回答  bykin  - 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コントロールをシートに貼り付けるのは重いし遅いし・・・

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

【48700】クリックイベントのコードの記述について シュウ 07/5/2(水) 16:30 質問
【48709】Re:クリックイベントのコードの記述について bykin 07/5/2(水) 20:38 回答
【48715】Re:クリックイベントのコードの記述について シュウ 07/5/2(水) 22:40 質問
【48716】Re:クリックイベントのコードの記述について bykin 07/5/2(水) 23:09 回答
【48719】Re:クリックイベントのコードの記述について シュウ 07/5/2(水) 23:38 お礼
【48721】Re:クリックイベントのコードの記述について bykin 07/5/3(木) 0:10 発言
【48724】Re:クリックイベントのコードの記述について シュウ 07/5/3(木) 0:57 発言
【48726】Re:クリックイベントのコードの記述について bykin 07/5/3(木) 1:27 発言
【48727】Re:クリックイベントのコードの記述について シュウ 07/5/3(木) 1:48 お礼

33248 / 76733 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free