標準モジュールに下記2種類のマクロを作成します。

Sub マクロ停止()

Application.EnableEvents = False
End Sub

Sub マクロ再開()

Application.EnableEvents = True
End Sub

後は、それぞれに適当なショートカットを割り当てておいて、
文字色を変更しない場合に、マクロ停止実行をしてから、データを変更すれば色は変わりません。
データ変更後、マクロ再開を実行すれば、色が変わるようになります。

コマンドボタンを押したときのサンプルです
・リストボックスで複数選択無し
・対象のデータに重複無し
を前提にしています。

Private Sub CommandButton1_Click()
Dim Rng As Range

'リストボックスで選択があった場合
If Me.ListBox1.ListIndex >= 0 Then

'選択された値の対象セルを検索
Set Rng = Range(Me.ListBox1.RowSource).Find(Me.ListBox1.List(Me.ListBox1.ListIndex))

'対象があった場合（ないはずはないのですが、念のため）
If Not Rng Is Nothing Then

'対象セルの文字色を変更（赤にしています）
Rng.Font.Color = RGB(255, 0, 0)

End If

End If

End Sub

>字色は変えられますか？どうすれば変えられますか？

カスタムCSSが許可されていれば、CSSで変えることが出来ます。

IF関数で、
=IF(A2<>"",数式,"")
とするとか、条件付き書式で
=A2=""
で文字色を白にするとか、ですかね。
物理的に削除はマクロでも使わないと無理ですね。

多分行儀の悪いやり方だけど。

keyword = "学校";

if (src.includes(keyword)) {
let newkeyword = '<span style="color:red">' + keyword + '</span>';
element.innerHTML = element.textContent.replace(keyword, newkeyword);
}

既に解答されていますが、このような質問をされたという事は、「条件付き書式」をご存じないのだと思いますので、詳しく説明します。（Windows10 Excel2013以降のVersion）
色を付けるセルを含む範囲をアクティブ（選んだ状態）にしておきます。
ホームタブの中ほどに、「条件付き書式」があり、右クリックで「セルの表示強調ルール」、「上位下位ルール」などがあります。今回の例なら、「セルの表示強調ルール」の中の「文字列」を選びます。作業用の窓に「次の文字列を含むセルを書式設定」と表示されますから、１番目は「黄」とします。書式が例として「濃い赤の文字、明るい赤の背景」となっていますが、▽マークをクリックして一番下にある「ユーザー設定の書式」を選びます。すると、よくみる「セルの書式設定」の作業窓が現れます。セル全体を黄にする場合は、「背景」から色を指定します。「OK」で決めることが可能です。
このようにして、赤、青、黒（字は白くしないと見えないかも）と、同じ作業を行います。
もし間違ったり修正したい場合は、「条件付き書式」の一番下に「ルールの管理」がありますので、削除したり、条件を変えたりできます。全部クリアする場合は、その上にある「ルールのクリア」から実施下さい。
おまけの話ですが、もし「黄」のセルを含む「行」を背景色や文字を「黄」にする場合を説明します。列Aに「黄」「赤」「青」が並び、いくつかの列を同じ背景色・文字色にしたい場合を想定します。範囲をアクティブにしておきます。「条件付き書式」＞「新しいルール」＞「数式を使用して書式設定する」を選びます。作業用窓に「次を満たす場合に値を書式設定」とあります。
「＝」と入力した後、「範囲のA列（黄や赤の文字が入っている先頭行）をクリックすると「＝＄A＄３」のようになりますが、「＝＄A３＝"黄”」（３の前の＄を外して下さい）。「書式」を同様に設定すると、”黄”を含んだ範囲の行全体が指定できます。

「条件付き書式」を使えるようになると、エクセル関数にはない楽しみがふえますよ。

該当範囲の条件付き書式を一度クリアし、再設定するコードです。

Sub サンプル()

Application.ScreenUpdating = False

Dim fc As FormatCondition
Range("C3:C27, C29:C54, C56:C81, C83:C108, AN3:AN27, AN29:AN54, AN56:AN81, AN83:AN108").FormatConditions.Delete

Set fc = Range("C3:C27, C29:C54, C56:C81, C83:C108, AN3:AN27, AN29:AN54, AN56:AN81, AN83:AN108").FormatConditions.Add(Type:=xlExpression, Formula1:="=$C3<>$AN3")
fc.Font.Color = RGB(255, 0, 0)

Application.ScreenUpdating = True

End Sub

標準の公式アプリでは色を変える事ができません。

もちろん可能です。
ノート表示に変更すれば、
表でも図でも挿入できますし、
フォントの種類を変更したり、文字サイズや文字色の変更も可能です。

できません