Excel VBA質問箱 IV

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

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


40449 / 76732 ←次へ | 前へ→

【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

0 hits

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

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