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

マクロ / VBA

強調表示させる

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

Worksheet_SelectionChange

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

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

コメントをどうぞ

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

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


PAGE TOP ↑