エクセルで文字の一部を赤から白に変えるマクロを教えて下さい。

people「人々」と同一のセルに入力してあり、人々　の部分だけ赤にしてあります。このように英語「日本語の意味」のかたちで入力してあるセルがシートの中に散在しています。この赤文字にした日本語の部分だけ白にして見えないようにするマクロは組めないものでしょうか？マクロは初心者です。宜しくお願い致します。

No.2 ベストアンサー 回答者： fujillin 回答日時： 2022/10/09 08:55

こんにちは

対象セルが不明なので、以下は、1セル内の色を調べて替えるサンプルです。
（対象がセル範囲の場合は、ループすれば良いでしょう）

Sub Sample()
Dim c, f, i
Set c = Range("A1") ' 対象セル位置

If Not (c.HasFormula Or c = Empty) Then
For i = 1 To c.Characters.Count
Set f = c.Characters(i, 1).Font
If f.Color = vbRed Then f.Color = vbWhite
Next i
End If
End Sub

この回答へのお礼

こんなにも早くマクロを書いて頂き、ありがとうございました。早速使わせて頂きます。

お礼日時：2022/10/09 11:28

No.1 回答者： めくりや 回答日時： 2022/10/09 01:12

かんたんマスター！　Excelマクロでセルや文字の色を変える方法 _ 4時間のエクセル仕事は20秒で終わる _ ダイヤモンド・オンライン

https://diamond.jp/articles/-/265092

この回答へのお礼

早々に有益なページを紹介して頂き有り難うございました。勉強させて頂きます。

お礼日時：2022/10/09 11:31