Caro Giustino,
Mi dispiace per quello. Dopo aver incollato il codice VBA nella finestra del codice, premere il tasto F5 per eseguire il codice, quindi verrà aperta la finestra di dialogo "Ktools for Excel". Grazie.

Ciao,
Spiacente, non posso aiutare con questo. Grazie per il tuo commento.

Ciao PAUC,
Il codice seguente può farti un favore. Per favore, provalo.

Sub HighlightStrings()
'Updated by Extendoffice 20220721
    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 = "apple"
    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

Ciao Andrea,
Se vuoi evidenziare solo la parola se si trova all'inizio delle celle selezionate. Il seguente codice VBA può farti un favore. Per favore, provalo.

Sub HighlightStrings()
'Updated by Extendoffice 20220805
    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
            If xHStrLen <= Len(xCell.Value) Then
                If xHStr = Left(xCell.Value, xHStrLen) Then
                    xCell.Characters(1, xHStrLen).Font.ColorIndex = 3
                End If
            End If
        Next
    Application.ScreenUpdating = True
End Sub

Ciao ciao,
I tuoi numeri si trovano in celle diverse in un intervallo? In tal caso, puoi creare due regole di formattazione condizionale (tra -10 e 0, tra 0 e 10) per evidenziare questi numeri. In caso negativo, puoi caricare uno screenshot dei tuoi dati?

Ciao t.taln,

Se desideri aumentare la dimensione del carattere di 1 ed evidenziare più parole contemporaneamente, aggiungi la seguente riga dopo la riga "xCell.Characters(Len(xStrTmp) + 1, xHStrLen).Font.ColorIndex = 3" nel codice VBA.
Note:: è necessario conoscere in anticipo la dimensione del carattere corrente della cella selezionata, quindi inserire una dimensione numero uno più grande della parola originale. Il numero 12 nella riga sottostante è la dimensione del carattere che assegnerò alle parole corrispondenti. E la dimensione del carattere originale della parola è 11.

xCell.Characters(Len(xStrTmp) + 1, xHStrLen).Font.Size = 12

Ciao Shaik Faiaz hamad,

Excel non consente di colorare una parte di una cella. Mi dispiace non poterti aiutare con questo problema.

Ciao Cus,

Il seguente codice VBA può aiutare. Dopo aver eseguito il codice, otterrai una finestra di dialogo. Digita le parole che desideri evidenziare e separale con una virgola.

Sub HighlightStrings()
'Updated by Extendoffice 20230130
    Dim xHStr As String, xStrTmp As String
    Dim xHStrLen As Long, xCount As Long, I As Long
    Dim xCell As Range
    Dim xArr
    Dim xArr2
    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
    
    xArr2 = Split(xHStr, ",")
    For j = 0 To UBound(xArr2)
        xHStr = xArr2(j)
    
        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
    Next
    
    Application.ScreenUpdating = True
End Sub