アクティブセルのみ色をつけたい

Question

エクセルでアクティブセルに色を付けて目立つようにしたいので教えて下さい

もともとセルに色が塗つぶされており、そのセルが選択されると違う色になり、選択から外れると元の色に戻る方法があれば教えてください。

例えば、
　A1～A2のセルが水色に塗りつぶされいるとします
　A1を選択すると黄色に変わり、
　次に、A2を選択すると、A1は水色に戻り、A2が黄色に変わる


よろしくお願いします

enunokokoro · Accepted Answer

条件付き書式で、数式を
　=OR(CELL(“row”)=ROW(),CELL(“col”)=COLUMN())
VBAでWorksheet_SelectionChange イベントを使い
　Application.ScreenUpdating = True
を使ったものは試されたのでしょうか？
https://okirakurak.exblog.jp/12541440/

分らない場合、どの部分で躓いているのでしょうか？

tom04 · Answer

No.2です。

＞選択から外れると元の色に戻る方法・・・
を見逃していました。

前回のコードは消去し、↓のコードに変更してください。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　Dim myRng As Range
　　Set myRng = Range("A1:A2")
　　　myRng.Interior.ColorIndex = 28
　　　If Intersect(Target, myRng) Is Nothing Or Target.Count > 1 Then Exit Sub
　　　Target.Interior.ColorIndex = 6
End Sub

※　コードそのものはほとんど変わりませんが、
コードの行を入れ替えました。m(_ _)m

ママチャリ · Answer

「VBAと条件付き書式を使って」ですよね？・・・。
やってみました。とりあえずできました。こんな感じです。

Function CondCell(r As Range) As Boolean
  Application.Volatile
  If r.Address = ActiveCell.Address Then CondCell = True
End Function

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Me.Calculate
End Sub

上記のユーザ定義関数「CondCell」を使って、条件付き書式設定をしてください。
ただ、これだけでは反応しません。そこで、Worksheet_SelectionChangeで無理やりCalculateを発行しています。これにより、Excelにかなりの負荷がかかります。動作も不安定なところがありました。遊びとしては楽しいですが、実用性はゼロです。

tom04 · Answer

こんばんは！

VBAになりますが、一例です。

↓のコードをシートモジュールにしてください。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　Dim myRng As Range
　　Set myRng = Range("A1:A2")
　　If Intersect(Target, myRng) Is Nothing Or Target.Count > 1 Then Exit Sub
　　　myRng.Interior.ColorIndex = 28
　　　Target.Interior.ColorIndex = 6
End Sub

※　対象範囲を広げたい場合、仮にA1~A10セルの範囲で同じ操作をしたい場合は
＞Set myRng = Range("A1:A2")
を
＞Set myRng = Range("A1:A10")

のように変更してください。m(_ _)m

熱の伝わり · Answer

ごめんなさい。普通に塗りつぶすとそうなるのでは？？

アクティブセルのみ色をつけたい

条件付き書式で、数式を

No.2です。

「VBAと条件付き書式を使って」ですよね？・・・。

こんばんは！

ごめんなさい。

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング