replace関数でその通りにやってみましたが、ハイライトされませんでした...
また、ミスってました。たびたび済みません。 カンマが一つ足りませんでした。 下記に修正してください。
s = Replace(s, i, "<font style='background-color:" & 色 & ";'>" & i & "</font>", , ,vbBinaryCompare)
不適切なコンテンツとして通報するには以下の「送信」ボタンを押して下さい。 現在このグループでは通報を匿名で受け付けていません。 管理者グループにはあなたが誰であるかがわかります。
どのように不適切か説明したい場合、メッセージをご記入下さい。空白のままでも通報は送信されます。
通報履歴 で、あなたの通報と対応時のメッセージを確認できます。
Accessのテーブルやクエリのデータを貼り付ける場合は下記で、Markdown書式のテーブルに変換して貼り付けてください。
Markdown Tables generator
また、ミスってました。たびたび済みません。
カンマが一つ足りませんでした。
下記に修正してください。