Excel'de düzeltilmesi zahmetli olan hatalı Türkçe metinleri yapmış olduğum, Kullanıcı Tanımlı Formül (KTF) ile artık düzenleyebilirsiniz kullanımı oldukça basittir.
İnternet bağlantısı gerektirir ve düzenleme işlemini "seslisozluk" adresi üzerinden yaparak gerçekleştirir.
Formül kullanımı : =TRDÜZELT(A1)
VBA Kodları;
Function TRDÜZELT(Metin As Range) As String
Set HTML = CreateObject("HTMLFile")
With CreateObject("MSXML2.XMLHTTP")
.Open "POST", "https://www.seslisozluk.net/yazı-türkçeleştirme/", False
.setRequestHeader "content-type", "application/x-www-form-urlencoded; charset=UTF-8"
.Send "tr_bad=" & Metin.Value2
HTML.body.innerHTML = .responseText
End With
TRDÜZELT = HTML.getElementByID("tr_good").InnerText
End Function
Örnek dosya link;
İnternet bağlantısı gerektirir ve düzenleme işlemini "seslisozluk" adresi üzerinden yaparak gerçekleştirir.
Formül kullanımı : =TRDÜZELT(A1)
VBA Kodları;
Function TRDÜZELT(Metin As Range) As String
Set HTML = CreateObject("HTMLFile")
With CreateObject("MSXML2.XMLHTTP")
.Open "POST", "https://www.seslisozluk.net/yazı-türkçeleştirme/", False
.setRequestHeader "content-type", "application/x-www-form-urlencoded; charset=UTF-8"
.Send "tr_bad=" & Metin.Value2
HTML.body.innerHTML = .responseText
End With
TRDÜZELT = HTML.getElementByID("tr_good").InnerText
End Function
Örnek dosya link;
TRDÜZELT (KTF)
drive.google.com