Excel VBA質問箱 IV

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

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


33241 / 76733 ←次へ | 前へ→

【48716】Re:クリックイベントのコードの記述について
回答  bykin  - 07/5/2(水) 23:09 -

引用なし
パスワード
   こんばんわ。

>コマンドボタンの色まで同一になってしまいます。

そーゆーことやったら・・・

Private Sub ChangeBkColor(ByRef Target As Object, ByRef CellValue As String)
  Dim Opt As Object
  For Each Opt In ActiveSheet.OLEObjects
    With Opt
      If TypeName(.Object) = "OptionButton" Then
        .Object.BackColor = RGB(238, 233, 128)
      End If
    End With
  Next
  Target.Object.BackColor = RGB(238, 73, 119)
  Range("D1").Value = CellValue
End Sub

・・・やっぱし、マクロ使わん方法のほうがええなー(独り言)
ほな。
3 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 お礼

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