システムに氏名登録できないJIS第１水準・第２水準以外の漢字（環境依存文字・外字）を判定したい！

私の会社ではCOMPANYという人事情報システムを利用しています。

実は私、COMPANY Associate 認定資格というベンダー資格を持ってるんですね。（自慢）

それは置いておいて、COMPANYに社員を登録する際に氏名を入力するのですが、グループポリシーでJIS第１水準漢字・第２水準漢字のみしか登録しないと決められています。

今日はJIS第１漢字・第２漢字にも当てはまらない漢字、いわゆる環境依存文字・外字を抽出・判定する方法をご紹介します。

VBAコードの利用については動画で解説していますので、こちらもご参照くださいませ！

JIS第１・第２水準漢字とは･･･？
Excelの数式で判定するには･･･？
氏名の漢字をチェックするユーザ定義関数の使い方
さいごに
- 共有:

JIS第１・第２水準漢字とは･･･？

JIS第1水準漢字・第2水準漢字は、日本語の情報処理を標準化する目的にJIS (日本工業規格) が定めた定義で、JIS基本漢字とも呼ばれます。
・JIS第1水準漢字 : 2,965文字
・JIS第2水準漢字 : 3,390文字 (1990年改訂前はこれよりやや少ない)

引用：https://fontnavi.jp/zakkuri/301-jis_Level1-2_kanji.aspx

JIS第１・第２水準漢字を登録する、、としておけば大体網羅できるわけなのですが、はしご高・立ち崎などの文字は第１第２にも含まれていません。困りますね。

JIS第１～第４水準漢字まで調べるにはこちらをご覧ください。

Excelの数式で判定するには･･･？

セルA1の漢字１文字がJIS第１水準・第２水準漢字かどうかを判定するには以下の数式を利用します。

=IFERROR(IFS(AND(12321<=CODE(A1),CODE(A1)<=20307),1,AND(20513<=CODE(A1),CODE(A1)<=29734),2),0)

参考にさせていただいたのはこちらのサイトとなります。

ただ、これだと漢字一文字しか判定できませんでしたので、VBAを用いてユーザ定義関数で実現することにしてみます。

氏名の漢字をチェックするユーザ定義関数の使い方

１．Alt＋F11にてVBEを起動し、標準モジュールを追加する

エクセルを開いて、Alt＋F11を押下します。

すると、以下のような画面（VBE）を起動することができます。

ツリーの任意の項目を右クリックして、挿入→標準モジュールを選択しましょう。

２．追加した標準モジュールにコードを追加する

追加した標準モジュールに以下のコードを貼り付けます。

これで、「氏名チェック」という関数が使えるようになります。引数には「氏名」を入力します。

Function 氏名チェック(name As String)
    Dim ni As Integer
    Dim targetStr As String
    Dim checkFlg As Boolean: checkFlg = False
    For ni = 1 To Len(name)
        targetStr = Mid(name, ni, 1)
        ' JIS第１水準漢字
        If Asc(targetStr) >= -30561 And Asc(targetStr) <= -26510 Then
        ' JIS第２水準漢字
        ElseIf Asc(targetStr) >= -26464 And Asc(targetStr) <= -5468 Then
        ' ひらがな
        ElseIf Asc(targetStr) >= -32096 And Asc(targetStr) <= -32015 Then
        ' カタカナ
        ElseIf Asc(targetStr) >= -31935 And Asc(targetStr) <= -31853 Then
        ' 名前にスペースが含まれるとき
        ElseIf Asc(targetStr) = -32448 Or Asc(targetStr) = 32 Then
        ' それ以外
        Else
            checkFlg = True
        End If
    Next ni
    ' 対象外の文字が存在する場合、１を返す
    If checkFlg = True Then
        氏名チェック = 1
    Else
        氏名チェック = 0
    End If
End Function

実際に追加したスクリーンショットは以下です。