Ir ao conteúdo
  • Cadastre-se
Douglas ianes

Excel Tradução no excel para inglês

Posts recomendados

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.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Bom dia, 

 

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

@gustavoomt como utilizar esta função??

 

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

Compartilhar este post


Link para o post
Compartilhar em outros sites
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...

 

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

@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

 

image.png.c66f2a5e4f12b39a68c0b54ee3682232.png          image.png.138d8a4a904b9293b1320e4ad78b0a06.png

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.

 

 

  • Curtir 2

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

 

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

@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

Compartilhar este post


Link para o post
Compartilhar em outros sites

Esta aparecendo esta mensagem ao tentar abrir sua planilha:

 

image.png.e5e27023604a1b026ed5d115c9ec39b2.png

 

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

@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

Compartilhar este post


Link para o post
Compartilhar em outros sites

@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.

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Aprenda_a_Ler_Resistores_e_Capacitores-capa-3d-newsletter.jpg

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!