traduzione da inglese con excel

Hai un problema con Excel?

Nuova discussione

traduzione da inglese con excel
di Traniwebdesign data: 03/11/2014 17:19:07
cia a tutti e ben trovati a voi.,
ho un problema, devo tradurre le schede tecniche delle biciclette e come voi sapete sono tutte in inglese.
ora io che faccio........mi copio la scheda tecnica su excel, e vorrei che uno script vba da un elenco che io aggiorno di parola in parola trovata mi vede
cosa sta scritto sulla sccheda tecnica inglese e mi faccia una sorta di sostituzione della scheda tecnica tradotta con i termini in italiano.
spero d iessere stato chiaro, cio vorrei accanto la stessa scheda ma tradotta con le mie parole tradotte, d imodo che possoa incollarla nel mio sito web.
Grazi mille a tutti.
allego file excel 2007.
ciao a tutti.
di Zer0Kelvin data: 03/11/2014 22:31:37
Ciao.
Intanto, non sei stato molto chiaro; la prossima volta sei pregato di "trdurre in italiano" il tuo quesito prima di postarlo.
Poi, Excel è un foglio elettronico, non un traduttore, come ti viene in mente che si possa, con Excel, tradurre dall'inglese?

Puoi tradurre la tua scheda con Google, od un qualsiasi altro traduttore; di certo non con Excel.
di Zer0Kelvin data: 03/11/2014 22:34:23
PS:
se proprio vuoi farlo con Excel, bisogna che tu ti crei una tabella con TUTTI i termini da tradurre e relativa traduzione.
di lepat (utente non iscritto) data: 04/11/2014 07:53:58
se sono singole parole da tradurre si può fare con un cerca verticale, se sono frasi diventa difficile, l'esempio allegato è un po' scarno, sarebbe utile il risultato desiderato

di Grograman (utente non iscritto) data: 04/11/2014 08:50:51
Un esempio di come si potrebbe fare ocn VBA, se quella è la reale struttura dei dati:

Option Explicit

Sub Trans_Tardi()
Dim wb As Workbook
Dim ws As Worksheet
Dim i As Long, x As Long

  Set wb = ThisWorkbook
  Set ws = wb.Worksheets(1)
    With ws
      x = .Range("I" & .Rows.Count).End(xlUp).Row
      For i = 2 To x
        .Columns("A:A").Replace What:=.Cells(i, 9).Value, Replacement:=.Cells(i, 10).Value, LookAt:=xlWhole
      Next i
    End With
  Set wb = Nothing
  Set ws = Nothing
End Sub

Vuoi Approfondire?