メインコンテンツへスキップ

Excelで検索結果を検索して強調表示する

Excelでは、検索と置換機能を使用して特定の値を検索できますが、検索後に検索結果を強調表示する方法を知っていますか? この記事では、Excelで検索結果を検索して強調表示するのに役立つXNUMXつの異なる方法を紹介します。

VBAコードで検索結果を検索して強調表示する

条件付き書式で検索結果を検索して強調表示する

便利なツールで検索結果を検索して強調表示する


VBAコードで検索結果を検索して強調表示する

Excelには、値を検索して検索結果を強調表示するのに役立つVBAコードがあります。

1.検索するシートを有効にして結果を強調表示し、を押します。 Altキー+ F11 開くキー アプリケーション向け Microsoft Visual Basic 窓。

2。 クリック インセット > モジュール、以下のコードを新しいモジュールに貼り付けます。

VBA:検索結果を強調表示する

Sub FindRange()
'UpdatebyExtendoffice20190813
Dim xRg As Range
Dim xFRg As Range
Dim xStrAddress As String
Dim xVrt As Variant
xVrt = Application.InputBox(prompt:="Search:", Title:="www.extendoffice.com")
If xVrt <> "" Then
Set xFRg = ActiveSheet.Cells.Find(what:=xVrt)
If xFRg Is Nothing Then
MsgBox prompt:="Cannot find this value", Title:="www.extendoffice.com"
Exit Sub
End If
xStrAddress = xFRg.Address
Set xRg = xFRg
Do
Set xFRg = ActiveSheet.Cells.FindNext(After:=xFRg)
Set xRg = Application.Union(xRg, xFRg)
Loop Until xFRg.Address = xStrAddress
If xRg.Count > 0 Then
xRg.Interior.ColorIndex = 8
xRsp = MsgBox(prompt:="Do you want to cancel highlighting?", Title:="www.extendoffice.com", Buttons:=vbQuestion + vbOKCancel)

If xRsp = vbOK Then xRg.Interior.ColorIndex = xlNone
End If
End If
End Sub

ドキュメント検索ハイライト検索結果1

3。 押す F5 キーを押すと、検索ボックスが表示され、検索する指定値を入力できます。
ドキュメント検索ハイライト検索結果2

4。 クリック OK、一致した結果は背景色で強調表示されています。 また、ハイライトをキャンセルするかどうかを尋ねるダイアログが表示されます。 クリック OK ハイライトをキャンセルしてダイアログを閉じるには、をクリックします キャンセル ハイライトを維持してダイアログを閉じます。
ドキュメント検索ハイライト検索結果3

Note:

1.一致する値が見つからない場合は、ダイアログが表示されて通知されます。
ドキュメント検索ハイライト検索結果4

2.このVBAは、アクティブなシート全体で機能し、大文字と小文字は区別されません。

移動する

あなたは昇給と家族と一緒に多くの時間を過ごしたいですか?

Officeタブは、現在作業中のMicrosoft Officeで効率を50%向上させます

信じられないほど、XNUMXつ以上のドキュメントで作業する方が、XNUMXつで作業するよりも簡単で高速です。

よく知られているブラウザと比較して、Officeタブのタブ付きツールはより強力で効率的です。

毎日何百ものマウスクリックとキーボード入力を減らして、今すぐマウスの手に別れを告げましょう。

通常、複数のドキュメントで作業する場合は、Officeタブを使用すると時間を大幅に節約できます。

30・XNUMX日無料お試し、クレジットカードは必要ありません。

続きを読む今すぐダウンロード


条件付き書式で検索結果を検索して強調表示する

Excelでは、条件付き書式機能で検索結果を自動的に強調表示することもできます。

データと検索ボックスが以下のスクリーンショットのように表示されていると仮定して、以下の手順を実行してください。
ドキュメント検索ハイライト検索結果5

1.検索する範囲を選択し、をクリックします ホーム > 条件付き書式 > 新しいルール.
ドキュメント検索ハイライト検索結果6

2。 の中に 新しい書式設定規則 ダイアログ、選択 式を使用して、フォーマットするセルを決定する セクションに ルールタイプを選択します セクションをクリックし、下のテキストボックスに移動します この数式が真であるときの書式値、タイプ = AND($ E $ 2 <> ""、$ E $ 2 = A4).

E2は検索値を配置するセルであり、A4は検索範囲内の最初のセルです。
ドキュメント検索ハイライト検索結果7

3。 クリック フォーマット ボタンをクリックして、 セルの書式設定 ダイアログ 埋める タブで、必要に応じてXNUMXつの色を選択します。 クリック OK > OK ダイアログを閉じます。
ドキュメント検索ハイライト検索結果8

今後、セルE2にキーワードを入力すると、指定した範囲で検索結果が自動的に強調表示されます。


便利なツールで検索結果を検索して強調表示する

XNUMXつ以上の値を検索し、検索結果をXNUMX回強調表示する場合は、 キーワードをマーク の特徴 Kutools for Excel あなたに恩恵を与えることができます。

Kutools for Excelは、Excelジョブの効率を高めるための300以上の便利なツールを収集する強力なアドインです。クリックして、30日間の無料トライアルを今すぐ入手してください。

1.検索するデータ範囲を選択し、をクリックします クツール > テキスト > キーワードをマーク.
ドキュメント検索ハイライト検索結果8

2.ポップダイアログで、検索する値をカンマで区切って入力します。 キーワード テキストボックス。 次に、 オプションをマークする 必要に応じてフォントの色を変更します。 クリック Ok.

大文字と小文字を区別して値を検索する場合は、チェックマークを付けます マッチケース チェックボックスをオンにします。
ドキュメント検索ハイライト検索結果8

次に、一致した結果が異なるフォントの色で強調表示されます。
ドキュメント検索ハイライト検索結果8

キーワードをマーク 機能では、範囲内の文字列の一部を見つけることもできます。 検索セルにボールまたはジャンプが含まれているとすると、ボールと入力し、 キーワード テキストボックスをクリックし、設定を指定してクリックします Ok.
ドキュメント検索ハイライト検索結果8ドキュメント検索ハイライト検索結果8


サンプルファイル

クリックしてサンプルファイルをダウンロードします


Conditioanl Formattingに関連するその他の操作(記事)

Excelで条件付き書式を使用して色でセルをカウント/合計
このチュートリアルでは、Excelで条件付き書式を使用して、セルを色ですばやくカウントまたは合計するための便利で簡単な方法をいくつか説明します。

Excelで条件付き書式を使用してグラフを作成する
たとえば、クラスのスコアテーブルがあり、さまざまな範囲のスコアに色を付けるグラフを作成する場合、このチュートリアルでは、このジョブを解決する方法を紹介します。

Excelの条件付き書式の積み上げ棒グラフ
このチュートリアルでは、Excelで段階的に示す以下のスクリーンショットのように、条件付き書式の積み上げ棒グラフを作成する方法を紹介します。

ExcelでXNUMXつの列が等しい場合、条件付き書式の行またはセル
この記事では、ExcelでXNUMXつの列が等しい場合に、行またはセルを条件付きで書式設定する方法を紹介します。

Excelの各行に条件付き書式を適用する
行ごとに条件付き書式を適用したい場合があります。 行ごとに同じルールを繰り返し設定することを除いて、このジョブを解決するにはいくつかのトリックがあります。


  • スーパーフォーミュラバー (複数行のテキストと数式を簡単に編集できます); 読書レイアウト (多数のセルを簡単に読み取って編集する); フィルター範囲に貼り付け...
  • セル/行/列をマージする およびデータの保持。 分割セルコンテンツ; 重複する行と合計/平均を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 (すべてのセルは空です); スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • お気に入りの数式をすばやく挿入する、範囲、チャート、写真; セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター (フィルタースキームを保存して他のシートに適用します); 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • ピボットテーブルのグループ化 週番号、曜日など... ロック解除された、ロックされたセルを表示する さまざまな色で; 式/名前を持つセルを強調表示する...
kteタブ201905
  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
officetab下部
Comments (10)
Rated 4.5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
how do I make a VBA to search a few times with different highlight color?

and

then how do i make the highlight area, not only in the exact cell but also the cells next to it, or the whole row?

Please advice.

Thank you.
Rated 4.5 out of 5
This comment was minimized by the moderator on the site
how about highlight the keyword's row or column or the 3 cells next to the keyword?

and how do i search multiple times with different color of highlight?
This comment was minimized by the moderator on the site
How would I make the data entry box reopen after hitting ok? I use this macro with a barcode scanner and would like to be able to keep scanning without having to rerun macro each time. Example open macro scan it finds and highlights then reopens for next scan.
This comment was minimized by the moderator on the site
Hi, I have office 365 but when I went to Kutools > Text > I could not find Mark Keyword. Is there feature still there? Thanks
This comment was minimized by the moderator on the site
Hi, Kimber, what version of Kutools for Excel you use? Mark Keyword released after Kutools for Excel 24.0. If your version is lower than 24.0, please upgrade your version.
This comment was minimized by the moderator on the site
Does it work for Excel 2013 and what do I have to change in order to fit in with the 2003 version? I’ve tried your code but there is no button to save the module
This comment was minimized by the moderator on the site
Sorry, it’s Excel 2003
This comment was minimized by the moderator on the site
How can you modify this to also jump to the cell that is being highlighted.
This comment was minimized by the moderator on the site
Hi, Jeff, if you want to select all highlighted cells, just add
xRg.Select
at the end of the above code, see screenshot:
https://www.extendoffice.com/images/stories/comments/sun-comment/doc-jump-to-highlighted-cell-1.png
If you want to jump to the first highlighted cell, add
xRg.Areas(xRg.Areas.Count)(1).Select
at the end of the above code, see screenshot:
https://www.extendoffice.com/images/stories/comments/sun-comment/doc-jump-to-highlighted-cell-2.png
This comment was minimized by the moderator on the site
Hi thanks for your help but when we click ok for cancel highlighting. color of cell change. I want orignal color after cancel. What code i need to change in VBA.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations