Rechercher et mettre en évidence les résultats de la recherche dans Excel

Dans Excel, vous pouvez utiliser la fonction Rechercher et remplacer pour rechercher une valeur spécifique, mais savez-vous comment mettre en évidence les résultats de la recherche après la recherche? Dans cet article, je présente deux façons différentes de vous aider à rechercher et à mettre en évidence les résultats de recherche en attendant dans Excel.

Rechercher et mettre en évidence les résultats de la recherche par le code VBA

Rechercher et mettre en évidence les résultats de la recherche par la mise en forme conditionnelle

Recherchez et mettez en surbrillance les résultats de la recherche à l'aide d'un outil pratique

Dans Excel, il existe un code VBA qui peut vous aider à rechercher une valeur, puis à mettre en évidence les résultats de la recherche.

1. Activez la feuille que vous souhaitez rechercher et mettez en surbrillance les résultats, appuyez sur Alt + F11 clés pour ouvrir Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Moduleet collez le code ci-dessous dans le nouveau module.

VBA: mettre en évidence les résultats de la recherche

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

3. presse F5 clé, puis une zone de recherche apparaît pour vous permettre de taper la valeur spécifiée que vous recherchez.

4. Cliquez OK, les résultats correspondants ont été mis en évidence avec une couleur d'arrière-plan. En outre, une boîte de dialogue apparaît pour vous demander si vous annulez la mise en évidence. Cliquez sur OK pour annuler la mise en surbrillance et fermer la boîte de dialogue, cliquez sur Annuler pour conserver la mise en évidence et fermer la boîte de dialogue.

Remarque :

1. Si aucune valeur correspondante n'a été trouvée, une boîte de dialogue apparaît pour vous le rappeler.

2. Ce VBA fonctionne pour toute la feuille active et insensible à la casse.

Voulez-vous avoir une augmentation de salaire et beaucoup de temps pour accompagner votre famille? Office Tab Améliore votre efficacité de 50 % dans Microsoft Office en ce moment Incroyable, travailler sur deux documents ou plus est plus facile et plus rapide que travailler sur un seul. Par rapport aux navigateurs connus, l'outil à onglets de Office Tab est plus puissant et plus efficace. Réduisez les centaines de clics de souris et de saisie au clavier chaque jour pour vous, dites au revoir à la main de la souris maintenant. Si vous travaillez habituellement sur plusieurs documents, Office Tab sera un grand gain de temps pour vous. 30-jour d'essai gratuit, Pas de carte de crédit nécessaire. PlusGratuit Télécharger maintenant

Dans Excel, la fonction de mise en forme conditionnelle peut également mettre automatiquement en évidence les résultats de la recherche.

En supposant que les données et le champ de recherche s'affichent comme ci-dessous, procédez comme suit:

1. Sélectionnez la plage dans laquelle vous souhaitez effectuer la recherche, puis cliquez sur Accueil > Mise en forme conditionnelle > Nouvelle règle.

2. dans le Nouvelle règle de formatage dialogue, sélectionnez Utilisez une formule pour déterminer les cellules à formater dans le Sélectionnez un type de règle section, puis accédez à la zone de texte sous Formater les valeurs où cette formule est vraie, Le type = ET ($ E $ 2 <> "", $ E $ 2 = A4).

E2 est la cellule dans laquelle vous placerez la valeur de recherche et A4 est la première cellule de la plage dans laquelle vous recherchez.

3. Cliquez Format bouton, allez au Format de cellule dialogue, sous Niveau de remplissage onglet, choisissez une couleur selon vos besoins. Cliquez sur OK > OK pour fermer les boîtes de dialogue.

À partir de maintenant, lorsque vous entrez le mot-clé dans la cellule E2, les résultats de la recherche seront automatiquement mis en surbrillance dans la plage spécifiée.

Si vous souhaitez rechercher deux valeurs ou plus et mettre en surbrillance les résultats de la recherche une fois, le Marquer le mot-clé caractéristique de Kutools for Excel pourrait vous rendre service.

Kutools for Excel est un complément puissant qui rassemble plus de 300 outils pratiques pour améliorer votre efficacité dans les travaux Excel, cliquez pour obtenir un essai gratuit de 30 jours maintenant.

1. Sélectionnez la plage de données que vous souhaitez rechercher, cliquez sur Kutools > Texte > Marquer le mot-clé.

2. Dans la boîte de dialogue contextuelle, tapez les valeurs que vous souhaitez rechercher et séparées par une virgule dans Mots-clés zone de texte. Ensuite, choisissez le Marquer les options et la couleur de la police selon vos besoins. Cliquez sur Ok.

Si vous souhaitez rechercher une valeur sensible à la casse, cochez casse case à cocher.

Ensuite, les résultats correspondants seront mis en évidence avec une couleur de police différente.

Avec la Marquer le mot-clé fonctionnalité, vous pouvez également trouver une partie de la chaîne dans la gamme. Supposons que les cellules de recherche contiennent une balle ou un saut, tapez balle, sautez dans le Mots-clés zone de texte, puis spécifiez les paramètres et cliquez sur Ok.

Cliquez pour télécharger le fichier d'exemple

---

Les meilleurs outils de productivité de bureau

Kutools for Excel Résout la plupart de vos problèmes et augmente votre productivité de 80 %

• Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtrée
• Fusionner les cellules / lignes / colonnes et conservation des données; Contenu des cellules divisées; Combiner les lignes en double et la somme / moyenne... Empêcher les cellules en double; Comparer les gammes
• Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
• Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
• Formules favorites et insérer rapidement, Plages, graphiques et images; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
• Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellules
• Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
• Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF
• Regroupement du tableau croisé dynamique par numéro de semaine, jour de la semaine et plus encore ... Afficher les cellules déverrouillées et verrouillées par différentes couleurs; Mettre en évidence les cellules qui ont une formule / un nom

Lire la suite... Essai gratuit de 30 jours ... Achat... 

---

Office Tab - apporte une interface à onglets à Office et facilite grandement votre travail

• Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
• Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
• Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!

Lire la suite... Essai gratuit de 30 jours ... Achat...