Excel'de Kullanıcı Tanımlı Tercüme Fonksiyonu Oluşturma


Google E-Tablolar uygulamasına giriş yapmadan, Excel'de bir hücredeki metnin tercümesini bir başka hücreye bir fonksiyonla otomatik getirtmek ister misiniz?

İnternet'ten bulup, yükleyip, denediğim Tercüme (Translate) ile ilgili bir Kullanıcı Tanımlı Fonksiyon aşağıdadır.

Bir kullanıcı tanımlı fonksiyonun nasıl yüklenip, ayarlanıp, çalıştırıldığını daha önce anlatmıştım.

Bu anlatıma ilişkin bağlantı için tıklayınız.

------------------------------------------------------------------------------------------------------------------------

Option Explicit

'Kaynak: https://www.exceltrainingvideos.com/automate-language-translations-using-excel-vba/
'Not: Site Hintlilerin sitesidir. (Bizleri kamçılasın diye belirtiyorum.)  
'Kaynak Tarihi: 14/10/2020,  Değişiklik Tarihi: 11/05/2021
'İnternet'ten bulan: Sinan Dilaver 1962 😊 
'Kullanım Şekli Örneği: = Translate(A1; "en"; "tr")

Public Function Translate(strInput As String, strFromSourceLanguage As String, strToTargetLanguage As String) As String

Dim strURL As String
Dim objHTTP As Object
Dim objHTML As Object
Dim objDivs As Object, objDiv As Object
Dim strTranslated As String

' send query to web page
strURL = "https://translate.google.com/m?hl=" & strFromSourceLanguage & _
    "&sl=" & strFromSourceLanguage & _
    "&tl=" & strToTargetLanguage & _
    "&ie=UTF-8&prev=_m&q=" & strInput

Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP") 'late binding
objHTTP.Open "GET", strURL, False
objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
objHTTP.send ""

' create an html document
Set objHTML = CreateObject("htmlfile")
With objHTML
    .Open
    .Write objHTTP.responsetext
    .Close
End With

Set objDivs = objHTML.getElementsByTagName("div")
For Each objDiv In objDivs
    If objDiv.className = "result-container" Then
        strTranslated = objDiv.innerText
        translate = strTranslated
    End If
Next objDiv

Set objHTML = Nothing
Set objHTTP = Nothing
End Function

------------------------------------------------------------------------------------------------------------------------











Bu blogdaki popüler yayınlar

Eğer Benzerse

Resim
Excel'de Benzerlik kontrolü için, tırnak içinde ve amaca göre yeri değiştirilerek '*' işareti kullanılır. Bilinmeyen harflerin yerine '*' işareti yazılır.  Örneğin,  Başında 'H' harfini arıyorsak, "H*" ,  Ortasında 'e' harfi arıyorsak "*e*" ,  Sonunda 'z' harfini arıyorsak "*z" yazarız.  Amaç                       Bileşik Fonksiyon İçinde e var mı?     =EĞER(DEĞİL(EHATALIYSA(KAÇINCI("*e*";B1;0)));"Evet";"Hayır") H ile başlıyor mu? =EĞER(DEĞİL(EHATALIYSA(KAÇINCI("H*";B1;0)));"Evet";"Hayır") z ile bitiyor mu?     =EĞER(DEĞİL(EHATALIYSA(KAÇINCI("*z";B1;0)));"Evet";"Hayır") Yukarıdaki bileşik fonksiyonlarda Kaçıncı fonksiyonunun birinci parametresinde kullanılan "*e", "H*", "*z" ölçütleri bizim benzeme kurallarımız oluyor. Kaçıncı fonksiyonu, B1 hücresinde ölçütün kaçıncı karakterde olduğunu bul...
Devamı

Macro'da For-Next ve If Kullanarak Koşullu Toplam

Resim
Bir For-Next döngüsü içinde If kullanarak, bir kolonda koşula uyanlara karşılık gelen satırlardan diğer kolondaki değerleri bir değişken üzerine toplamak üzere bir istek olduğunu varsayalım.  Bu amaçla hazırladığım programı, aşağıda gerekli açıklamalar ile birlikte bulabilirsiniz.  ------------------------------------------------------------------------------------------------------------------------- Sub KosulluToplam()   Olcut = Range("D13")    'Range("D13") hücresindeki bilgiyi Olcut değişkenine ata.   Min = 2   Max = Cells(Rows.Count, "A").End(xlUp).Row    'A kolonunun son satırını ilgili fonksiyonu kullanarak buldur.    Toplam = 0    'Toplam değişkeni, başlangıç değeri olarak sıfırlanıyor.     For i = Min To Max     'i indis değerini minimum değerden maksimum değere kadar artırarak Next satırına kadarki işlemleri yap.      If Range("A" & i) = Olcut Then     'Range("A" ...
Devamı

Macro'yla Borç Alacak Girişi ve Mizanı

Resim
Excel Macro kullanarak bir Borç Alacak Girişi ekranı oluşturacağız.  Bu ekranı bir menüden çağıracağız.  Bu menü, Excel sayfasındaki dikdörtgen şekle Makro Ata seçeneğiyle atanan prosedürle görüntüleyeceğiz.  Borç Alacak Girişi ekranından Excel satırlarına yüklenen bilgilerden her bir Ad Soyad'a ilişkin borç ve alacaklar ayrı ayrı toplanacak. Bu borç alacak dengesinden bir Mizan oluşturacağız.   Bu işlemler ile ilgili ekran görüntüleri ve ilgili Macro program kodları aşağıda verilmiştir. Bu kodları kopyalayıp değişiklik yaparak kullanabilirsiniz.  Aşağıda önce Macro program kodlarını ve sonra ekran görüntülerini bulabilirsiniz.  ------------------------------------------------------------------------------------------------------------------------- Excel'deki Dikdörtgen Şekle 'Makro Ata' Seçeneğiyle Atanan Public Prosedür Public Sub EkraniGoster()  frmAnaMenu.Show End Sub ----------------------------------------------------------------------------...
Devamı

Macro'yla Excel'den Bölgesel Satış PDF Dosyaları Oluşturulması

Resim
Excel'de bir sayfadaki örneğin satışların ayrı ayrı PDF çıktılarının topluca oluşturulması istendiğinde gerekli Macro programı aşağıdaki BolumBolumPDF prosedüründe verilmiştir.  Bulunduğunuz sayfadaki tüm satışların çıktısı için SayfadanPDF,  Tüm Excel dosyasındaki sayfaların çıktısı için DosyadanPDF prosedürünü kullanınız.  Aşağıdaki prosedürlerin kullanımı için Excel sayfalarında özel bir menü veya düğmeler oluşturulmamıştır.  Excel sayfasındayken Alt-F8 yaptığınızda gelen menüden seçim yapılmıştır. Amacım, Alt-F8 Makro seçim menüsünün kullanımını göstermektir.  PDF dosyalar Belgelerim klasöründe oluşmaktadır.  ' ---------------------------------------------------------------------------------------------------------------------- Option Explicit Dim MinRow(1 To 50), MaxRow(1 To 50) As Integer Dim SonSatir, SonKolon, i, r, b As Integer Dim SonKolonAdi, BolumBaslangici, BolumBitisi, CiktiKategoriAdi As String ' -----------------------------------------...
Devamı

Macro'yla Excel'e İçinde Yazı Bulunan Şekil Eklenmesi

Resim
 Public Sub SekilEkle()     '100 nokta sağa, 50 nokta aşağıya 120 nokta genişliğinde 160 nokta yüksekliğinde dikdörtgen oluşturulması    ActiveSheet.Shapes.AddShape msoShapeRectangle, 100, 50, 120, 160     'Dikdörtgenin içinin yeşil renkli yapılması   ActiveSheet.Shapes(1).Fill.ForeColor.RGB = vbGreen   'Yazı renginin siyah yapılması   ActiveSheet.Shapes(1).TextFrame.Characters.Font.ColorIndex = 1     'Son satir numarasının bulunması   SonSatir = Cells(Rows.Count, "A").End(xlUp).Row     Satir = ""    'Dikdörtgenin içinin satır yazısı değişkeninin temizlenmesi    'Birinci satırdan son satıra kadar   For r = 1 To SonSatir       'Dikdörtgenin içindeki satır yazısının oluşturulması    Satir = Satir & ActiveSheet.Cells(r, 1) & Chr(13)    'Satır yazısının dikdörtgen içindeki metin kısmına atanması     ActiveSheet.Shapes(1).TextFrame...
Devamı

Bir Fatura İle İlgili Alınan Ödemelerin Macro'yla Listelenmesi

Resim
Excel'de bir dosya veya fatura ile ilgili alınan ödemelerin listelenmesi ile ilgili Macro kodu aşağıdadır.  Bu kod, ilgili sayfanın kod kısmına yazılıyor.  ------------------------- ------------------------- ------------------------- ------------------------- -------------------- Private Sub Worksheet_Change(ByVal Target As Range)  If Target.Address = "$B$1" Then       'B1 hücresi değiştiyse  'Ödemeler sayfasında son satır no bulunuyor.    n = WorksheetFunction.CountA(Sheets("Ödemeler").Range("A:A")) + 1        c = 5   i = 14   imax = 50   sayac = 1   Aranan = Range("B1")      ActiveSheet.Unprotect        'Sayfanın koruması kaldırılıyor.   Range(Cells(1, c - 1), Cells(imax, c + 2)).Clear   Cells(i - 2, c) = Aranan & " Ödemeleri"   Cells(i - 1, c + 0) = "Ödeme Tarihi"   Cells(i - 1, c + 1) = "Makbuz No"   Cells(i - 1, c + 2) = "Ödeme Tu...
Devamı

Kümülatif Toplam

Resim
Kümülatif Toplam için iki ayrı formül veriyorum.  Formül-1. Bulunduğumuz satırdaki toplanacak değere üst satırdaki toplam değerinin eklenmesiyle =B2 =C2+B3 =C3+B4 =C4+B5 =C5+B6 =C6+B7 =C7+B8 =C8+B9 =C9+B10 =C10+B11 =C11+B12 =C12+B13 Formül-2. Aralık bazında toplama işlemi yapan TOPLA(aralık) fonksiyonundaki aralığın başlangıç hücresini sabit yapıp, bitiş hücresini serbest bırakılmasıyla =TOPLA($B$2:B2) =TOPLA($B$2:B3) =TOPLA($B$2:B4) =TOPLA($B$2:B5) =TOPLA($B$2:B6) =TOPLA($B$2:B7) =TOPLA($B$2:B8) =TOPLA($B$2:B9) =TOPLA($B$2:B10) =TOPLA($B$2:B11) =TOPLA($B$2:B12) =TOPLA($B$2:B13)
Devamı

İlk SQL Sorgu Cümlelerimiz

Resim
SQL kullanmak için, ya çalıştığınız firmada SQL veritabanı sistemini kullanan bir yazılım olmalı. Bu yazılımın kullandığı SQL Oracle, MSSQL, Sybase, PostgreSQL, MySQL olabilir. Bunların hepsinde komut yazılışları çok büyük ölçüde aynıdır. Aralarında ufak farklar vardır ve bu farkları öğrenip, birinden diğerine rahatça geçiş yapabilirsiniz.  Biz burada MSSQL kullanacağız. Sizler MSSQL programını İnternet'ten indirip kurabilirsiniz.  Sizlerin programı kurmuş olduğunuzu varsayarak MSSQL kullanımını sizlere adım adım anlatacağım.  ----------------------------------------------------------------------------------------------------------------------------- İlk SQL sorgu cümlelerimiz için basit bir tablodan başlayacağım.  Elimizde Kisiler isimli bir tablo olsun. Bu tablonun kolonları KisiID, KisiAdi, KisiSoyadi, TCKimlikNo, DogumTarihi, EmailAdresi  olsun.  Bu tablodan önce tüm kolonları ve tüm kayıtları listelemek isteyelim.  Tüm kolonları listelemek i...
Devamı

Çıktının Her Sayfasının Başında ve Sol Kolonunda Tablonun İlk Satırının ve İlk Kolonunun Görüntülenmesi

Resim
Excel programından çıktı alırken çıktının her sayfasının başında tablomuzun ilk satırının ve ilk sütununun görünebilmesi için: Şerit menüdeki ‘Sayfa Düzeni’ başlığı altındaki ‘Başlıkları Yazdır’ seçeneğini tıklayın. Açılan ekranda ‘Üstte yinelenecek satırlar’ alanında tablonuzun ilk satırını işaretleyin, ‘Solda yinelenecek sütunlar’ alanında ise tablonuzun ilk sütununu işaretleyin. 
Devamı