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

説明

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

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

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

1. ALT + F11 を押して、Visual Basic エディターを開きます。
2. 新しい空のモジュールを追加する メニューを通して Insert - Module;
3. マクロ コードをコピーしてモジュールに貼り付けます。
4. ファイルを保存し、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

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

トピックに関する記事:

• ウクライナ語から英語への音訳