Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 07-04-2017, 08:50   #1
işsiz123
 
Giriş: 13/07/2016
Şehir: MARDİN
Mesaj: 306
Excel Vers. ve Dili:
Excel 2010 & 2016 Türkçe
Varsayılan Veriyi başka dile çevirmek

Arkadaşlar merhabalar A:A sutununda adı soyadı bulunmakta B:B sutununa isimlerin arapçasını yazmasını istiyorum. Kişi isimleri 1000 kişi falan var tek tek zor.
__________________
#MEHMET EMİN ALKAN
“ Kendi dilini bilmeyen başka dil öğrenemez ”
işsiz123 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-04-2017, 11:34   #2
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 19,035
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Merhaba,

Linki inceleyin.

http://www.excel.web.tr/f125/google-...i-t106179.html

.
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-04-2017, 11:40   #3
programer
Altın Üye
 
programer kullanıcısının avatarı
 
Giriş: 26/05/2005
Şehir: İstanbul
Mesaj: 567
Excel Vers. ve Dili:
Office 2010 - Türkçe
Varsayılan

Merhaba

Aşağıdaki linkteki yazı fontunu ekleseseniz istediğiniz olur.

http://www.dafont.com/afarat-ibn-blady.font
__________________
Excel 2010 - Türkçe

Bende 1 Lira Vardı.
Sende 1 Lira Vardı.
Paraları Değiştirdik Yine 1 Liramız Var.
Bende 1 Bilgi Sende 1 Bilgi Vardı.
Bilgileri Değiştirdik Şimdi Sende 2 Bende 2 Bilgi Var.
İşte Paylaşım Ruhu Budur.
programer Çevrimiçi   Alıntı Yaparak Cevapla
Eski 07-04-2017, 13:30   #4
işsiz123
 
Giriş: 13/07/2016
Şehir: MARDİN
Mesaj: 306
Excel Vers. ve Dili:
Excel 2010 & 2016 Türkçe
Varsayılan

Alıntı:
programer tarafından gönderildi Mesajı Görüntüle
Merhaba

Aşağıdaki linkteki yazı fontunu ekleseseniz istediğiniz olur.

http://www.dafont.com/afarat-ibn-blady.font
Teşekkürler Bu şekilde sadece fontunu değiştiriyor cümle anlamını bozuyor.
__________________
#MEHMET EMİN ALKAN
“ Kendi dilini bilmeyen başka dil öğrenemez ”
işsiz123 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-04-2017, 13:36   #5
işsiz123
 
Giriş: 13/07/2016
Şehir: MARDİN
Mesaj: 306
Excel Vers. ve Dili:
Excel 2010 & 2016 Türkçe
Varsayılan

Alıntı:
Ömer tarafından gönderildi Mesajı Görüntüle
Ömer bey teşekkürler Güzel bir çalışma lakin ben çalıştıramadım.


http://s9.dosya.tc/server2/94g28g/Ek...ntisi.PNG.html
Resim e göre uyarlamanız mümkün mü? Saygılar
__________________
#MEHMET EMİN ALKAN
“ Kendi dilini bilmeyen başka dil öğrenemez ”
işsiz123 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-04-2017, 15:49   #6
işsiz123
 
Giriş: 13/07/2016
Şehir: MARDİN
Mesaj: 306
Excel Vers. ve Dili:
Excel 2010 & 2016 Türkçe
Varsayılan

Konu güncel
__________________
#MEHMET EMİN ALKAN
“ Kendi dilini bilmeyen başka dil öğrenemez ”
işsiz123 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-04-2017, 16:28   #7
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 19,035
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Aşağıdaki kodları kullanın.

Translate_Test kodunu butona bağlarsınız.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Translate_Test()

    Dim i As Long
    
    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        Cells(i, "B") = Translate(Cells(i, "A"), "tr", "ar")
    Next i
    
End Sub

Function Translate(kaynak_metin As String, _
          Optional kaynak_dil As String = "tr", _
          Optional hedef_dil As String = "en") As String
          
    Dim IE As Object, URL As String, res As String

    URL = "https://translate.google.com/#" & kaynak_dil & "/" & hedef_dil & "/" & kaynak_metin
    
    Set IE = CreateObject("InternetExplorer.Application")
    
    With IE
        .navigate URL
        
        Do Until IE.ReadyState = 4: DoEvents: Loop
        Do While IE.Busy: DoEvents: Loop

        res = .Document.all("result_box").innerText
        .Quit
    End With

    Translate = Replace(res, "...", "")
    
    Set IE = Nothing
    
End Function
.
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-04-2017, 19:42   #8
işsiz123
 
Giriş: 13/07/2016
Şehir: MARDİN
Mesaj: 306
Excel Vers. ve Dili:
Excel 2010 & 2016 Türkçe
Varsayılan

Teşekkürler konu çözülmüştür
__________________
#MEHMET EMİN ALKAN
“ Kendi dilini bilmeyen başka dil öğrenemez ”
işsiz123 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-04-2017, 16:46   #9
igultekin2000
Altın Üye
 
Giriş: 05/09/2007
Şehir: istanbul
Mesaj: 514
Excel Vers. ve Dili:
ofis 2010
Varsayılan ilave açıklama

Alıntı:
Ömer tarafından gönderildi Mesajı Görüntüle
Aşağıdaki kodları kullanın.

Translate_Test kodunu butona bağlarsınız.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Translate_Test()

    Dim i As Long
    
    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        Cells(i, "B") = Translate(Cells(i, "A"), "tr", "ar")
    Next i
    
End Sub

Function Translate(kaynak_metin As String, _
          Optional kaynak_dil As String = "tr", _
          Optional hedef_dil As String = "en") As String
          
    Dim IE As Object, URL As String, res As String

    URL = "https://translate.google.com/#" & kaynak_dil & "/" & hedef_dil & "/" & kaynak_metin
    
    Set IE = CreateObject("InternetExplorer.Application")
    
    With IE
        .navigate URL
        
        Do Until IE.ReadyState = 4: DoEvents: Loop
        Do While IE.Busy: DoEvents: Loop

        res = .Document.all("result_box").innerText
        .Quit
    End With

    Translate = Replace(res, "...", "")
    
    Set IE = Nothing
    
End Function
.
pratik bir kat ama işaretlileri baz alan süzme ilave olsa daha kullanışlı olurdu. uzun listelerde de rahat rahat kullanılır.
igultekin2000 Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 10:00


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil ve Konuşma Terapisti- Çorlu Dil ve Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Havuz- Makina- Danışmazlar-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden