Cum să colorați sau să evidențiați anumite cuvinte din celule în Excel?

Dacă o celulă conține mai multe cuvinte, cum puteți evidenția un anumit cuvânt numai în această celulă? Și ce zici de evidențierea acestui anumit cuvânt în mai multe celule? Acest articol va oferi o metodă de realizare a acestuia.

Colorează anumite cuvinte dintr-o singură celulă / mai multe celule cu cod VBA

Colorează anumite cuvinte dintr-o singură celulă / mai multe celule cu cod VBA

Următorul cod VBA vă poate ajuta să evidențiați anumite cuvinte dintr-o selecție. Vă rugăm să faceți următoarele.

1. Selectați intervalul conține celulele pe care doriți să le evidențiați. Apoi apăsați tasta Alt + F11 tastele simultan pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În deschidere Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module. Apoi copiați și lipiți codul VBA în fereastra Cod.

Cod VBA: Colorează anumite cuvinte din celule în 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. apasă pe F5 tasta pentru a rula codul. Și în Kutools pentru Excel caseta de dialog, introduceți cuvântul pe care îl veți evidenția în celule, apoi faceți clic pe OK buton. Vedeți captura de ecran:

Apoi, puteți vedea toate cuvintele pe care le-ați specificat sunt colorate în roșu în celulele selectate imediat, așa cum este prezentat mai jos.

Legate de articole:

• Cum să evidențiați celula dacă există o valoare sau este egală cu celula dintr-o altă coloană din Excel?
• Cum se compară două șiruri pentru asemănare sau evidențiază diferențele în Excel?
• Cum se face ca fila filei să fie egală cu valoarea celulei în Excel?
• Cum se schimbă valoarea pe baza culorii celulei din Excel?
• Cum se schimbă culoarea celulei atunci când se face clic sau se selectează celula în Excel?