選択したセルと同じ値のセルがあれば目視で分かるように

マクロ / VBA

強調表示させる

下の図を見てもらったほうが早いと思いますが、同一シート内の同一値セルがあれば強調表示させてみます。
17-1.jpg
このようなデータがあります。一見しただけでは「123」というデータがどこにあるのか探しにくいです。そこでA1を選択すると、それと同じ値を強調表示させるようにします。
17-2.jpg
A2セルに選択を変えるだけでこうなります。
17-3.jpg

Worksheet_SelectionChange

Worksheet_SelectionChange・・・ワークシートで選択しているセルに変更があれば毎回この処理を行う。
これを使用し、セル選択だけで強調表示の変更を処理します。
VBE画面のプロジェクトエクスプローラで実行したいシートへ下記のコードを記入します。

①・・・Target.Cells.Countとは、いくつセルを選択しているか数字を返しますので、1以上であった場合はこの処理を中止します。
②・・・ここですべてのセルの罫線を消します。
③・・・空白、もしくは0の値の場合は処理を中止します。協調選択しません。
④・・・このFor文にて選択したセル値とシート内の同じ値のセルは赤罫線で囲う処理をします。
※注意※途中で罫線をすべて消す処理を行っていますので、もともと罫線を引いている場合は消えてしまいます。
対策としては文字色を変える事で強調表示させればいいかな・・・と思います。

コメントをどうぞ

メールアドレスが公開されることはありません。

  • ▼お小遣い稼ぎしませんか?▼ 日々の生活にhappyをプラスする|ハピタス

    クレジットカード・FX口座を作るだけで簡単に3万円GETです。一切支出はありません。

フロー図 グラフ NA() DATE COLUMN クイズ INDEX 偏差値 図形 MATCH TODAY COUNTIF VLOOKUP テンプレート 条件付き書式 SUM 印刷 ユーザー定義関数 HLOOKUP XLSTART 無料 バーコード コピペ 検索 STDEV 目標 日付 ワイルドカード 作業効率UP SUMIF
  • 関西在住の30代サラリーマン。事務職で毎日Excelと戯れています。
    システム導入なんて資金が無い!Excelでなんとかやりたい零細中小の社長さん・事務員さんの力になればと思います。
    詳しいプロフィール


PAGE TOP ↑