[[20061025200333]]　『選択されたセルが赤くなる方法を教えてください』（puchipuri）　ページの最後に飛ぶ

『選択されたセルが赤くなる方法を教えてください』（puchipuri）

選択されたセルが赤色になるようにと下記VBAを入力しましたが、マクロの有効範囲に元々設定していた塗りつぶしが真っ白になってしまいました。マクロを有効とする範囲にその他の色の塗りつぶしを行うのは不可能なのでしょうか。

といいますのは、記入間違いを防止するために1行置きに灰色の塗りつぶしを行っており、さらにその確立を減らすために、ハイパーリンクで飛んできたセルに赤色を表示させたかったのです。赤色に表示された後に灰色に戻るのは無理なのでしょうか。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rng As Range
Set Rng = Range("C3:K20")
If Not Intersect(Target, Rng) Is Nothing Then
Rng.Interior.ColorIndex = xlNone
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
End If
Set Rng = Nothing
End Sub

宜しくお願い致します。

 私がよくやるのは、使わないセル（例えば AA1）にアクティブセルのアドレスを表示させ、
 条件付書式で、=CELL("ADDRESS",A1)=$AA$1 のように条件を設定して色を付けるやり方です。
 これだと、条件があてはまった時だけ色が付き、あてはまらなくなれば、セルの元々の色に
 戻ります。参考までに。
（純丸）(o^-')b

 Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    Range("AA1").Value = ActiveCell.Address
 End Sub

 選択されたセルを強調するために色をつけているのなら、、、
 こんな過去ログを発見！
　
[[20030910025935]]『カーソルのある行・列を目立たせたい』（Achilley）
　
 （キリキ）（〃⌒o⌒)b

コメント返信：

[ 一覧(最新更新順) ]

[[20061025200333]] 『選択されたセルが赤くなる方法を教えてください』（puchipuri） ページの最後に飛ぶ

[[20061025200333]]　『選択されたセルが赤くなる方法を教えてください』（puchipuri）　ページの最後に飛ぶ