Comment colorer ou mettre en évidence certains mots dans des cellules dans Excel?
Si une cellule contient plusieurs mots, comment pouvez-vous mettre en surbrillance un certain mot uniquement dans cette cellule? Et que diriez-vous de mettre en évidence ce mot dans plusieurs cellules? Cet article fournira une méthode pour y parvenir.
Colorez certains mots dans une seule cellule / plusieurs cellules avec le code VBA
Colorez certains mots dans une seule cellule / plusieurs cellules avec le code VBA
Le code VBA suivant peut vous aider à mettre en évidence le certain mot dans une sélection. Veuillez faire comme suit.
1. Sélectionnez la plage contenant les cellules dans lesquelles vous souhaitez mettre en évidence certains mots. Appuyez ensuite sur le autre + F11 touches simultanément pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2. Dans l'ouverture Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module. Ensuite, copiez et collez le code VBA dans la fenêtre Code.
Code VBA: colorer certains mots dans les cellules dans Excel
Sub HighlightStrings()
Dim xHStr As String, xStrTmp As String
Dim xHStrLen As Long, xCount As Long, I As Long
Dim xCell As Range
Dim xArr
On Error Resume Next
xHStr = Application.InputBox("What is the string to highlight:", "KuTools For Excel", , , , , , 2)
If TypeName(xHStr) <> "String" Then Exit Sub
Application.ScreenUpdating = False
xHStrLen = Len(xHStr)
For Each xCell In Selection
xArr = Split(xCell.Value, xHStr)
xCount = UBound(xArr)
If xCount > 0 Then
xStrTmp = ""
For I = 0 To xCount - 1
xStrTmp = xStrTmp & xArr(I)
xCell.Characters(Len(xStrTmp) + 1, xHStrLen).Font.ColorIndex = 3
xStrTmp = xStrTmp & xHStr
Next
End If
Next
Application.ScreenUpdating = True
End Sub
3. appuie sur le F5 clé pour exécuter le code. Et dans le Kutools for Excel boîte de dialogue, veuillez entrer le mot que vous mettrez en évidence dans les cellules, puis cliquez sur le OK bouton. Voir la capture d'écran:
Ensuite, vous pouvez voir que tous les mots que vous avez spécifiés sont colorés en rouge dans les cellules sélectionnées immédiatement comme illustré ci-dessous.
Articles Liés:
- Comment mettre en évidence une cellule si la valeur existe ou est égale à la cellule dans une autre colonne dans Excel?
- Comment comparer deux chaînes pour la similitude ou mettre en évidence les différences dans Excel?
- Comment rendre le nom de l'onglet de la feuille égal à la valeur de la cellule dans Excel?
- Comment changer la valeur en fonction de la couleur de la cellule dans Excel?
- Comment changer la couleur de la cellule lorsque la cellule est cliquée ou sélectionnée dans Excel?
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
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!