Excel Üzerinde Yandex Çeviri Yapma isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Fonksiyonu kullanmak için, Excel'de bir hücreye aşağıdaki gibi formül yazabilirsiniz:
Bu örnekte, "Hello" kelimesi İngilizceden Türkçeye çevrilecektir. Fonksiyonun çalışması için geçerli bir Yandex API anahtarına ihtiyacınız olacak ve bu anahtarı apiKey değişkenine yerleştirmelisiniz. Fonksiyonun doğru çalışabilmesi için internet bağlantınızın olması gerektiğini unutmayın.
Faydalanılması temennisiyle
Hazır Kod
VBA:
Function YandexTranslate(text As String, fromLang As String, toLang As String) As String
Dim xmlHttp As Object
Dim url As String
Dim response As String
Dim apiKey As String
apiKey = "Your_Yandex_API_Key"
url = "https://translate.yandex.net/api/v1.5/tr.json/translate?key=" & apiKey _
& "&text=" & EncodeURL(text) & "&lang=" & fromLang & "-" & toLang
Set xmlHttp = CreateObject("MSXML2.XMLHTTP")
xmlHttp.Open "GET", url, False
xmlHttp.send
response = xmlHttp.responseText
YandexTranslate = Mid(response, InStr(response, "[""") + 2, InStr(response, """") - InStr(response, "[""") - 2)
Set xmlHttp = Nothing
End Function
Function EncodeURL(text As String) As String
EncodeURL = Application.EncodeURL(text)
End FunctionAçıklama
Bu fonksiyon, verilen metni ve dil çiftini alır (örneğin "en-tr" İngilizceden Türkçeye çeviri için) ve Yandex Çeviri API'sini kullanarak çeviri yapar. Çeviri sonucunu API yanıtından çıkarır ve döndürür.Fonksiyonu kullanmak için, Excel'de bir hücreye aşağıdaki gibi formül yazabilirsiniz:
Kod:
=YandexTranslate("Hello", "en", "tr")Bu örnekte, "Hello" kelimesi İngilizceden Türkçeye çevrilecektir. Fonksiyonun çalışması için geçerli bir Yandex API anahtarına ihtiyacınız olacak ve bu anahtarı apiKey değişkenine yerleştirmelisiniz. Fonksiyonun doğru çalışabilmesi için internet bağlantınızın olması gerektiğini unutmayın.
Faydalanılması temennisiyle