Türkçe Karakteri İngilizce Karaktere Çevirmek

[leone1907]

bir hücredeki türkçe karakterli cümleyi ingilizce karaktere çevirmenin yolu nedir?

"kısayol tuşları" gibi bir cümle "kisayol-tuslari" şeklini almalı.

 

[Merhum İdris SERDAR]

.

Aşağıdaki Kullanıcı Tanımlı Fonksiyonu kullanabilirsiniz.

Function Tur_Eng(ByVal mtn As String) As String

    Dim i As Long, j As Long, n As Long
    Const b1 = "çğıöşüÇĞİÖŞÜ"
    Const b2 = "cgiosuCGIOÜ"
    n = Len(b1)
    For i = 1 To n
        j = 0
        Do
            j = InStr(j + 1, mtn, Mid$(b1, i, 1), vbBinaryCompare)
            If j > 0 Then Mid$(mtn, j, 1) = Mid$(b2, i, 1) Else Exit Do
        Loop
    Next
    
    Tur_Eng = mtn
    
End Function

Ayrıca buradaki dosyayı inceleyin.

http://www.excelgurusu.com/coklu-bul-degistir-find-replace/



.

 

[leone1907]

teşekkürler, kodu bu şekilde düzenleyince tam olarak istediğim şeye ulaştım.

Function Tur_Eng(ByVal mtn As String) As String

    Dim i As Long, j As Long, n As Long
    Const b1 = "çğıöşüÇĞİÖŞÜABCDEFGHIJKLMNOPRSTUVYZ "
    Const b2 = "cgiosucgiosuabcdefghijklmnoprstuvyz-"
    n = Len(b1)
    For i = 1 To n
        j = 0
        Do
            j = InStr(j + 1, mtn, Mid$(b1, i, 1), vbBinaryCompare)
            If j > 0 Then Mid$(mtn, j, 1) = Mid$(b2, i, 1) Else Exit Do
        Loop
    Next
    
    Tur_Eng = mtn
    
End Function

 

[Asri]

Karakter değişimi ve 100 den fazla işlemi aktif sayfa içinde sağ tuştaki menüden hemen yapabilmek için aşağıdaki linki inceleyiniz.

http://www.excel.web.tr/f52/excel-zel-lemler-menusu-eklentisi-sao-tu-t157219.html