[[20151116035254]]　『検索でヒットした場合、セルに色付けってできます』（おたま）　ページの最後に飛ぶ

『検索でヒットした場合、セルに色付けってできますか？』（おたま）

　すいません、データ表からCtrl+Fで検索した時
どこがヒットしたか分かりにくい場合があります。

検索でヒットした場合、そのセルを色反転することはできますか？
条件付き書式など探しているのですが…。

何かいい方法ありましたら、すいませんがご教授ください。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

例えば、検索文字が「吉田」だとします。
色付けをしたい範囲がA1:D100だとします。

A1:D100を選択した状態で条件付き書式設定で数式を次のようにします。

=COUNTIF(A1,"吉田")

ただし、これだと検索条件が固定されてしまいます。

検索条件を変更したい時に、条件付き書式を設定しなおすのは面倒です。他の検索文字も条件に追加したい場合もあると思います。

検索対象文字を入れておくリスト範囲を作成して名前を定義しておきます。その範囲をリストとします。

範囲「リスト」に吉田と入れます。他の文字も入れます。「鈴木」

条件付き書式の数式を次のようにします。

=SUMPRODUCT(COUNTIF(A1,リスト))

この場合、セルの値が「吉田」か「鈴木」の場合に色が付きます。

「吉田」を条件から外したい場合は、Ctrl+Gでリストにジャンプして、吉田の文字を消します。

（カイル） 2015/11/16(月) 06:45

 一度色を付けたらそのままになってしまうが。

 検索で「すべて検索」を実行し、下に表示される検索一覧で全て選択する。
 (一番目をクリック、その後一番最後をShiftキーを押しながらクリックですべて選択される)

 シート上で検索データが選択されている状態になるので選択されているセル上で右クリックしてセルの書式設定で色を設定する。

 あるいはCtrl+Fで出たダイアログで「置換」タブをクリック、オプションをクリックして開く。
 検索する文字列は通常通り入力。
 置換後の文字列は書式ボタンをクリックして色を設定。
 (文字は指定しない)
 その後すべて置換して見てくれ。
（ねむねむ） 2015/11/16(月) 09:14

カイルさん、ねむねむさん

アドバイスありがとうございました。
色々調べたところ

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub '※１
Select Case Target.Interior.ColorIndex
Case Is = xlNone
Target.Interior.ColorIndex = 3 '※２
Case Else
Target.Interior.ColorIndex = xlNone
End Select
End Sub

アクティブセルの強調でそれらしい動きができました。
これは列指定でセル選択されるとセルに色が付く動きでした。
※しかし、色の解除は再度セルをクリックする必要があり、
　連続検索にはむいていませんが…

かと言って、これ以上の知識はまだ私にはなく…。

とりあえず、これで少しは分かりやすく…なったかもです。

（おたま） 2015/11/17(火) 01:06

コメント返信：

[ 一覧(最新更新順) ]

[[20151116035254]] 『検索でヒットした場合、セルに色付けってできます』（おたま） ページの最後に飛ぶ

[[20151116035254]]　『検索でヒットした場合、セルに色付けってできます』（おたま）　ページの最後に飛ぶ