キリル文字テキスト内のラテン文字の検索、またはその逆の検索

説明

キリル文字 (ウクライナ語またはロシア語) で書かれたテキストの中にラテン語 (英語) 文字が登場することがよくあります。これは、データベースからのテキスト情報の分析および処理中によく発生します。つまり、新しいキーボードレイアウトに切り替える時間がなかったオペレーターによってテキストが入力された場合です。

したがって、ラテン語からキリル文字を検索したり、逆にキリル文字からラテン語を検索したりするメカニズムが必要です。 Excel には、そのような目的のための標準ツールがありません。以下に、VBA に関する既製のマクロを示します。このマクロは、キリル文字で書かれたテキスト内のラテン文字を検索し、その逆も行います。

このマクロを使用する前に、VBA コードをワークブックに追加する必要があります。このために：

ALT + F11 を押して、Visual Basic エディタを開きます
メニュー Insert - Module から新しい空のモジュールを追加します。
マクロコードをコピーしてモジュールに貼り付けます。
ファイルを保存し、Excel に戻ります。

これで、セル範囲を選択し、マクロを実行して、テキストに外国文字がないかチェックできるようになりました。

キリル文字でラテン文字を検索する

ラテン文字を検索するためのマクロコード:

Sub ShowLatin()
  'moonexcel.com.ua
   Dim c As Range, i As Long
   
   For Each c In Selection
     For i = 1 To Len(c)
       If Mid$(c, i, 1) Like "[A-Za-z]" Then c.Characters(Start:=i, Length:=1).Font.ColorIndex = 3
   Next i, c
End Sub

ラテン語のテキストをチェックした結果:

ラテン文字でキリル文字を検索する

キリル文字を検索するためのマクロコード:

Sub ShowCyrylic()
  'moonexcel.com.ua
   Dim c As Range, i As Long
   
   For Each c In Selection
     For i = 1 To Len(c)
       If Mid$(c, i, 1) Like "[А-Яа-я]" Then c.Characters(Start:=i, Length:=1).Font.ColorIndex = 3
   Next i, c
End Sub

キリル文字をチェックした結果:

トピックに関する記事: