Excelのセル内の特定の単語に色を付けたり強調表示したりするにはどうすればよいですか？

セルに複数の単語が含まれている場合、このセルでのみ特定の単語を強調表示するにはどうすればよいですか？ そして、この特定の単語を複数のセルで強調表示するのはどうですか？ この記事では、それを実現する方法を説明します。

VBAコードを使用して単一セル/複数セルの特定の単語に色を付ける

VBAコードを使用して単一セル/複数セルの特定の単語に色を付ける

次のVBAコードは、選択範囲内の特定の単語を強調表示するのに役立ちます。 次のようにしてください。

1.特定の単語を強調表示するセルを含む範囲を選択します。 次にを押します 他の + F11 キーを同時に開いて アプリケーション向け Microsoft Visual Basic 窓。

2.オープニングで アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール。 次に、VBAコードをコピーして[コード]ウィンドウに貼り付けます。

VBAコード：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。 プレス F5 コードを実行するためのキー。 そして、 Kutools for Excel ダイアログボックスで、セルに強調表示する特定の単語を入力して、[ OK ボタン。 スクリーンショットを参照してください：

次に、下のスクリーンショットに示すように、選択したセルで指定したすべての単語が赤で表示されていることがわかります。

関連記事：

• 値がExcelの別の列のセルに存在するか等しい場合にセルを強調表示するにはどうすればよいですか？
• ExcelでXNUMXつの文字列の類似性を比較したり、違いを強調したりするにはどうすればよいですか？
• シートタブ名をExcelのセル値と等しくする方法は？
• Excelでセルの色に基づいて値を変更するにはどうすればよいですか？
• Excelでセルをクリックまたは選択したときにセルの色を変更するにはどうすればよいですか？