Excel Tradução no excel para inglês

[Douglas ianes]

Bom dia pessoal.

preciso fazer com que o texto escrito em português em uma célula da plan1 seja traduzido para inglês de forma automática em outra célula da plan2.

podem me ajudar com isso.

[gustavoomt]

Bom dia, 

 

A função =googletranslate/googletradutor não lhe atende? 

[Douglas ianes]

@gustavoomt como utilizar esta função??

 

eu vi algo dizendo que só funcionaria usando uma versão diferente do Excel tradicional.

[gustavoomt]

1 hora atrás, Douglas ianes disse:

@gustavoomt como utilizar esta função??

 

eu vi algo dizendo que só funcionaria usando uma versão diferente do Excel tradicional.

Me perdoa cara, repassei uma informação errada!

Essa formula só funciona no Google Sheets, excel só tem suporte a um tradutor porco...

 

[Douglas ianes]

@Basole consegue me ajudar com a questão acima??

[Basole]

@Douglas ianes nao sei se vou conseguir lhe ajudar pontualmente, sem analisar o seu cenário, enderecos das células, formatacões, etc. 

De qualquer estou enviando um exemplo generico para voce adaptar:

* Considerando que o texto em portugues esteja na PLAN1, celula A2

  O resultado da consulta aparecerá na PLAN2, na celula A2

 

          

No modulo da sua PLAN1. cole o código abaixo:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Excel.Application.Intersect(Target, Range("A2:A10")) Is Nothing Then
      Sheets("Plan2").Range("A2").Value2 = GoogleTranslate(Target.Value2, "en")
End If
End Sub

E no modulo padrão, cole a funcao que consulta no Google tranlate: 

Function GoogleTranslate(InputText As String, ToLang As String) As String
Dim IE As Object

Set IE = CreateObject("InternetExplorer.application")


IE.Visible = False

IE.navigate "http://translate.google.com/#auto/" & ToLang & "/" & InputText


        Do Until IE.ReadyState = 4
        
        DoEvents
        
        Loop


Application.Wait (Now + TimeValue("0:00:5"))


        Do Until IE.ReadyState = 4
        
        DoEvents
        
        Loop

GoogleTranslate = IE.Document.getElementsByClassName("result-shield-container tlid-copy-target")(0).innertext

    IE.Quit

End Function

* Lembrando que existe um delay entre uma consulta e outra isso pode gerar lentidao ou erro dependendo da qtd de consultas por minuto.

 

 

[Douglas ianes]

@Basole esta dando erro de compilação: sub ou function não definida.

 

Sheets("Plan2").Range("A2").Value2 = GoogleTranslate(Target.Value2, "en")

[Basole]

@Douglas ianes fiz o teste e aqui para mim esta funcionando certinho 

 

como eu disse, sem ver o seu arquivo (planilha) ou um exemplo, fica difícil dar um parecer exato. 

 

De qualquer forma, no modo "achômetro" verifique se colou a funcao GoogleTranslate em um modulo padrão

[Douglas ianes]

@Basole acho que eu devo esta colocando no local errado o codigo.

 

segue arquivo que estou usando.

teste tradução.7z

[Basole]

Esta aparecendo esta mensagem ao tentar abrir sua planilha:

 

 

 

[Douglas ianes]

@Basole aqui no meu PC esta abrindo normal, não sei o que pode estar acontecendo.

mas coloquei assim os códigos que me enviou.

 

Plan1

Private Sub Worksheet_Change(ByVal Target As Range) If Not Excel.Application.Intersect(Target, Range("A2:A10")) Is Nothing Then Sheets("Plan2").Range("A2").Value2 = GoogleTranslate(Target.Value2, "en") End If End Sub

 

Esta pasta de trabalho

Function GoogleTranslate(InputText As String, ToLang As String) As String

Dim IE As Object

Set IE = CreateObject("InternetExplorer.application")

IE.Visible = False

IE.navigate "http://translate.google.com/#auto/" & ToLang & "/" & InputText Do Until IE.ReadyState = 4 DoEvents Loop Application.Wait (Now + TimeValue("0:00:5"))

Do Until IE.ReadyState = 4

DoEvents

Loop

GoogleTranslate = IE.Document.getElementsByClassName("result-shield-container tlid-copy-target")(0).innertext IE.Quit End Function

 

depois tentei colocar em um modulo ao invés de Esta pasta de trabalho.

 

e nos dois casos deu erro.

estou tentando mandar as imagens mas esta dando erro de upload

[deciog]

Cancelado

[Douglas ianes]

@Basole Consegui, muito obrigado.

 

tive que adaptar para o resultado aparecer na mesma planilha ao invés de aparecer na plan2.

ai utilizar somente o = para trazer a informação para a aba que eu precisava.

 

Obrigado pela ajuda.