Kiril metinde Latin harflerini arayın (veya tersi)

Tanım

Kiril (Ukraynaca veya Rusça) ile yazılan bir metinde Latin (İngilizce) harflere sıklıkla rastlamak gerekir. Bu genellikle veritabanlarındaki metin bilgilerinin analizi ve işlenmesi sırasında meydana gelir; burada metin, yeni bir klavye düzenine geçmek için zamanı olmayan operatörler tarafından girilir.

Yani nasıl bir mekanizmaya ihtiyacımız var Latin alfabesinde Kiril alfabesini bulun veya tam tersi, Kiril dilinde Latinceyi bul . Excel'un bu tür amaçlara yönelik standart araçları yoktur. Aşağıda hazır bir makro bulacaksınız. VBA , gerçekleştiren metinde Latin harflerini arayın , Kiril alfabesiyle yazılmıştır ve bunun tersi de geçerlidir.

Bu makroyu kullanmadan önce VBA kodunu çalışma kitabınıza eklemelisiniz. Bunun için:

1. Visual Basic düzenleyicisini açmak için ALT + F11 tuşlarına basın;
2. Yeni bir boş modül ekle menü aracılığıyla Insert - Module;
3. Makro kodunu kopyalayıp modüle yapıştırın;
4. Dosyayı kaydedin ve Excel'ye dönün.

Artık bir hücre aralığı seçebilir, bir makro çalıştırabilir ve böylece metinde yabancı karakterler olup olmadığını kontrol edebilirsiniz.

Kiril alfabesinde Latin alfabesini arayın

Latin harflerini aramak için makro kodu:

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

Latince metni kontrol etmenin sonucu:

Latin alfabesinde Kiril alfabesini arayın

Kiril harflerini aramak için makro kodu:

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

Kiril metnini kontrol etmenin sonucu:

Konuyla ilgili makaleler:

• Ukraynaca'dan İngilizce'ye harf çevirisi