ある言葉が含まれている一つの文（フレーズ）のみに色付けをしたいです

Question

大変お世話になっております。
Excelについてです。
Ｃ列に、行ごとに各々異なる「言葉」の記載があり、Ｂ列に、行ごとに各々異なる２～８フレーズ程の「文章」が入力されております。
Ｂ列の「文章」のうち、対応する行のＣ列の「言葉」が含まれている一文のみ色付けをしたいのですが、数式や効率的な方法を教えて頂けるととても有難いです。
例えば、セルＣ５に「レモンの」と記載があります。セルＢ５に「今、季節は夏です。私は果物のうち、桃とブドウが好きです。レモンは美味しいが酸っぱいです。ですので、レモンのジュースを飲んでいます。」と記載があれば「ですので、レモンのジュースを飲んでいます。」のみ赤く色付けをしたいです。
８００から１,０００セル程、作業が必要なため大変困っております。
お知恵を頂けるとと本当に助かります。ＶＢＡは作成したことはないのですが、興味があります。
お時間を頂き大変申し訳ございませんが、ご回答をお待ちしております。
どうぞ宜しくお願い申し上げます。

KenKen_SP · Accepted Answer

こんばんは。

１．[ALT]+[F11] などの操作で Visual Basic Editor を起動
２．[挿入]-[標準モジュール]
３．以下のソースコードをコピー＆ペースト
４．添付いただいたワークシートをアクティブに
５．マクロを実行

'↓以下ソースコード

Sub B列の文字列をC列のキーワードでハイライト()

Dim min_rownum As Long
　　Dim max_rownum As Long
　　
　　min_rownum = 5
　　max_rownum = Cells(Rows.Count, "B").End(xlUp).Row
　　
　　Dim i As Long
　　For i = min_rownum To max_rownum
　　　　'
　　　　Dim src_text As String: src_text = Cells(i, "B").Text
　　　　Dim chk_text As String: chk_text = Cells(i, "C").Text
　　　　'
　　　　If Len(src_text) > 0 And Len(chk_text) > 0 Then
　　　　　　'
　　　　　　Dim lines As Variant: lines = Split(src_text, "。")
　　　　　　Dim j　　 As Long
　　　　　　For j = 0 To UBound(lines)
　　　　　　　　If InStr(1, lines(j), chk_text) > 0 Then
　　　　　　　　　　Dim s_pos As Long: s_pos = InStr(1, src_text, lines(j))
　　　　　　　　　　Cells(i, "B").Characters(Start:=s_pos, Length:=Len(lines(j))) _
　　　　　　　　　　　　　　　　 .Font.Color = vbRed
　　　　　　　　End If
　　　　　　Next
　　　　　　'
　　　　End If
　　　　'
　　Next

End Sub

KenKen_SP · Answer

すみません。最後の句読点を赤字にするの忘れてました。
#１のうち下記の部分を差し替えて下さい。

Cells(i, "B").Characters(Start:=s_pos, Length:=Len(lines(j)) + 1) _
                                 .Font.Color = vbRed

「＋１」というのが増えてます。では。

ある言葉が含まれている一つの文（フレーズ）のみに色付けをしたいです

こんばんは。

すみません。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング