VBAで環境依存文字を判定したい

Question

前提・実現したいこと

VBAで全角文字と環境依存文字があれば表示するようなコードを作成しています。
全角文字を出力できるようにはしていますが環境依存文字がどうしても出力できません。
また、Range(Cell~)で検索範囲をセル「A4～I100」で指定しているのにどうしてもA4しか検索されません。
小生、VBA初心者でネットでググって作成していますが、よくわからない状態です。

ソースコードには作成途中のコードを貼り付けます。一応これでA4のみ全角か判定できるようにはしています。
どうすれば解決できるか、どうかお力添えをお願いします。

該当のソースコード

Sub A()
Dim a As Range
Set a = Range(Cells(4, 1), Cells(100, 9))
If hasZenkaku(a) Then
MsgBox "全角文字を含んでいます"
Else
MsgBox "全角文字を含んでいません"
End If
End Sub

Function hasZenkaku(a As Range) As Boolean
Set a = Range(Cells(4, 1), Cells(100, 9))
For Each a2 In a
If Len(a2) <> LenB(StrConv(a2, vbFromUnicode)) Then
hasZenkaku = True
Exit For
Else
hasZenkaku = False
Exit For
End If
Next a2
End Function

補足情報（FW/ツールのバージョンなど）

Excel2016

Answer 1

また、Range(Cell~)で検索範囲をセル「A4～I100」で指定しているのにどうしてもA4しか検索されません。

まずは、この原因は、下記のループ内の判定で、TrueでもFalseでもループを抜けている(Exit For)からです。最初の判定でループを抜けてしまいますので、最初のセルしか判定できません。

If Len(a2) <> LenB(StrConv(a2, vbFromUnicode)) Then
    hasZenkaku = True
    Exit For
Else
    hasZenkaku = False
    Exit For
End If

全角が含まれるかどうかなら、全角の時だけループを抜けるようにします。

Sub a()
    Dim a As Range
    Set a = Selection 'Range(Cells(4, 1), Cells(100, 9))
    If hasZenkaku(a) Then
        MsgBox "全角文字を含んでいます"
    Else
        MsgBox "全角文字を含んでいません"
    End If
End Sub

Function hasZenkaku(a As Range) As Boolean
    hasZenkaku = False
    Dim a2
    For Each a2 In a
        If Len(a2) <> LenB(StrConv(a2, vbFromUnicode)) Then
            hasZenkaku = True
            Exit For
        End If
    Next a2
End Function

環境依存文字(機種依存文字)については、時代によって定義が変化してきています。
現在はほとんどの環境でUnicode対応しているので問題になる場面は少ないです。
質問者さんが考える環境依存文字の定義は何かを明確にしてください。

機種依存文字 - Wikipedia

Comments

[退会済みユーザー]

お二方共ご回答ありがとうございます。お二方共詳細に説明いただき大変勉強になりました。原因について詳細に、かつわかりやすくご説明いただきましたこちらの方をベストアンサーにします。環境依存文字については入力された文字数の想定バイト数から出力する方法で解決したいと思います。

Answer 2

とりあえず、検索範囲内に全角文字が含まれているかの判定方法を示します。

ここから先は、以下サイトを参考にまずは実現したいことを具体化することが必要と思います。
https://excel-ubara.com/excelvba4/EXCEL_VBA_403.html

Sub a()
  Dim a As Range
  For Each a In Range(Cells(4, 1), Cells(100, 9))
    If hasZenkaku(a) Then
      MsgBox "全角文字を含んでいます"
    End If
  Next
End Sub

Function hasZenkaku(a As Range) As Boolean
  If Len(a.Value) <> LenB(StrConv(a.Value, vbFromUnicode)) Then
    hasZenkaku = True
  Else
    hasZenkaku = False
  End If
End Function