エクセルに禁則文字を強調したい

Question

観覧ありがとうございます。
初心者の私の問題について、解決方法をご存知でしたら教えていただきたいです。

方法は書式の設定、マクロ関数なんでもかまいません。
VBA以外の軽い方法で行いたいと考えています。

前提・実現したいこと

エクセル内に禁則文字が記入された際に、赤文字で強調したいです。
記入する文字は禁則文字のみ、禁則文字と通常文字、通常文字のみとパターンがあります。

禁則文字：http://support.plott.co.jp/wp-content/uploads/2017/04/kinsokumozi.pdf
※エクセルの別シートに転記する予定です

試したこと

MATCH関数、ワイルドカードの使用、IFCOUNT等使用しましたが、
一気に禁則文字をとることはできませんでした。

Comments

[maisumakun]

「禁則文字」としたい文字は、どの文字でしょうか。

[yumeno]

http://support.plott.co.jp/wp-content/uploads/2017/04/kinsokumozi.pdf

ネットからの引用で申し訳ありませんが、ここに乗っている一覧です。
エクセルに転記しようと考えています。

[stdio]

随分とごり押し策ですが、このShift-JISの文字を禁句文字に設定するような関数を実装することですかね...
別のエクセルファイルにこれらの文字を1字づつセルにコピーして、そのエクセルファイルを実行時にそのブックを読み込んで、比較すれば出来なくはないかな....

[ttyp03]

強調させるのは、禁則文字のみですか？セル内の文字列全てですか？

[ttyp03]

それからタイトルでは「記入させない」のに対し質問内容は「強調したい」と矛盾しています。どちらかに統一をお願いします。

[yumeno]

セル内の文字列すべてです

Answer 1

数式だけでなんとかならないか模索しましたが、やはりVBAを使ったほうが手っ取り早いです。
標準モジュールに以下を追加。

Function chkKinsoku(Target As Range) As Boolean
    chkKinsoku = False
    For i = 1 To Len(Target.Value)
        Set Rng = Sheets("禁則文字").Cells.Find(What:=Mid(Target.Value, i, 1), LookIn:=xlValues, LookAt:=xlWhole)
        If Not Rng Is Nothing Then
            chkKinsoku = True
            Exit For
        End If
    Next
End Function

禁則文字シートに禁則文字が１文字１セルで登録されている前提です。
条件付き書式で、A1を対象としたいなら、こう書いてください。

=chkKinsoku(A1)

パフォーマンスとか特に気にしていないのであしからず。

Comments

[yumeno]

回答ありがとうございます！モジュールは便利ですね。
禁則文字が多く、確認する入力箇所が多いことから重くなってしまいました。
何かいい方法がないか、もう少し探って見ます。

本当にありがとうございます。

[ttyp03]

やはり重いですか。
他に方法がないか考えてみます。

Answer 2

禁則文字(※)とされていますが、とにかく指定された文字が含まれていたらダメとしたいんですよね？
それらの文字を正規表現で文字集合としてマッチングすればいいのではないかと。

ttyp03さんの回答と同様に、条件付き書式で=Validation(A1)といった感じで使用してください。

禁止文字シートのA1セルから下へ、セル毎に1文字の検出対象の文字があるものとしています。
変数などのネーミングや正規表現のメタ文字対応とかは手抜きなので、修正が必要かもしれません。

Function Validation(Target As Range) As Boolean
    '正規表現オブジェクト作成
    Set reg = CreateObject("VBScript.RegExp")
    
    '禁止文字の集合文字列を作成
    With Sheets("禁止文字")
        For Each Letter In Range(.Range("a1"), .Range("a1").End(xlDown))
            'メタ文字などのエスケープ
            If InStr(Letter.Value, """^$?*+.|{}[]()") > 0 Then
                reg.Pattern = reg.Pattern & "\"
            End If
            '空セルじゃなければ集合に追加(不要かも)
            If Letter.Value <> "" Then
                reg.Pattern = reg.Pattern & Letter.Value
            End If
        Next
    End With
    
    '文字集合とするために前後をくくる
    reg.Pattern = "[" & reg.Pattern & "]"
    
    '正規表現マッチング結果を返す
    Validation = reg.Test(Target.Value)
    
End Function

(※)行頭や行末には使ってはいけない文字を指すんじゃなかったかなぁ…とか。

Comments

[yumeno]

禁則文字の定義を気にしていなかったため、振り返って勉強するいい機会になりました。ありがとうございます！
ttyp03さんのほうが問題なく使えたので、ベストアンサーにさせていただきました。
lazybonesさんいつも回答本当にありがとうございます。