Excel VBA質問箱 IV

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

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


7073 / 13646 ツリー ←次へ | 前へ→

【41380】アクティブセル行に色付け Sub 06/8/8(火) 10:09 質問[未読]
【41381】Re:アクティブセル行に色付け だるま 06/8/8(火) 10:17 回答[未読]
【41382】ありがとうございました。 Sub 06/8/8(火) 10:27 お礼[未読]

【41380】アクティブセル行に色付け
質問  Sub  - 06/8/8(火) 10:09 -

引用なし
パスワード
   こんにちは。

範囲:A8:K2000

範囲内でどこかのセルをクリックすると
範囲内の同じ行に同じ色を付けたいのです。
又新たに違うセルをクリックすると
以前の行の色が消えクリックした行に
色が付くって感じです。
皆様よろしくお願いいたします。

【41381】Re:アクティブセル行に色付け
回答  だるま WEB  - 06/8/8(火) 10:17 -

引用なし
パスワード
   こんな感じでいかがでしょうか。^d^

対象のシートモジュールに記述します。

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
  Dim RR As Range
  Dim R As Range
  
  Set RR = Range("A8:K2000")
  Set R = Intersect(Target, RR)
  If R Is Nothing Then Exit Sub
  
  RR.Interior.ColorIndex = xlNone
  
  Set R = Intersect(R.EntireRow, RR)
  R.Interior.Color = vbYellow
  
End Sub

【41382】ありがとうございました。
お礼  Sub  - 06/8/8(火) 10:27 -

引用なし
パスワード
   だるま さん こんにちは

早速の回答をありがとうございます
バッチリでした。

ありがとうございました

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