Microsoft Access 掲示板

Microsoft Access 掲示板

検索文字列にハイライト　検索文字が複数に対応したい / 10

12 コメント
views
4 フォロー
10
hatena 2022/10/05 (水) 10:21:36

InStr(1, s, i, 0) は最後の引数０でバイナリモードの比較になりますのでOKだと思いますが、
Replace関数の方でバイナリモードの比較にすればIf文は不要です。

    For Each i In Split(検索文字列)
        s = Replace(s, i, "<font style='background-color:" & 色 & ";'>" & i & "</font>", ,vbBinaryCompare)
    Next
通報 ...
  • 11
    チョコラブ 2022/10/05 (水) 11:00:50 a1353@b3d22 >> 10

    replace関数でその通りにやってみましたが、ハイライトされませんでした...
    12
    hatena 2022/10/06 (木) 00:21:58 >> 11

    また、ミスってました。たびたび済みません。
    カンマが一つ足りませんでした。
    下記に修正してください。

    s = Replace(s, i, "<font style='background-color:" & 色 & ";'>" & i & "</font>", , ,vbBinaryCompare)