Excel 2007 : Traduzioni italiano - inglese

[mariom]

Salve a tutti

Molto tempo fà un mio amico aveva fatto un foglio in excel dove in una colonna aveva delle frasi in italiano e nella colonna a fianco scriveva la frase in inglese, se era scritta correttamente la frase rimaneva visibile, altrimenti dava come risposta "ERRORE".
Purtroppo non rieco più a trovare questo file e vorrei ricostruirmelo,ma propio non so come iniziare, ricordo solo che c'era un secondo foglio dove vi erano le frasi in lingua inglese esatte.
Qualcuno può aiutarmi a rifare questo file in excel ???

[Flash30005]

Quello che intendi si può fare con macro o formule ma sono da fare solo dopo che avrai il tuo schema dati che, a parere mio, dovrà essere così composto
1) foglio-test con le frasi in italiano (colonna A) e nella colonna B vuota per l'inserimento della frase da parte dell'utente
2) foglio (nascosto) con le stesse frasi in italiano in colonna A e le frasi corrette in inglese in colonna B

Appena avrai compilato questo file con i due fogli potrai inviarlo in un post in maniera tale che ti sarà fornita macro o formula per realizzare quanto da te richiesto.

ciao

[ricky53]

Ciao,
dopo aver letto quanto scritto da Flash passa al

mio suggerimento:
prima cosa costruisci il file formato da due fogli
A) nel primo scriverai le frasi in italiano (es. in colonna "A") e in colonna "B" verrà scritta la frase da controllare ... qui procediamo dopo con la formattazione condizionale

B) nel secondo foglio scriverai le frasi in inglese (in colonna "A") e in italiano (es. in colonna "B")


Adesso
1. definisci nel foglio2 intervallo A":B100" un Nome Elenco ed assegnagli il nome "Elenco1"

2. posizionati nella cella "B2" e seleziona formattazione condizionale ... e scrivi la seguente formula

Codice: Seleziona tutto

=A2=CERCA.VERT(B2; Elenco1; 2; 0)


3. imposta il colore dello sfondo e del carattere che preferisci. Per esempio sfondo ROSSO e carattere bianco per l'ERRORE e sfondo VERDE per la risposta esatta.


Adesso in "A2" ci sarà la frase in italiano
In "B2" scrivi la frase in inglese e ....

Aggiornaci sul risultato ottenuto

[mariom]

Salve a tutti

Sarà anche l'ora o la giornata di ma non sono riuscito a fare il foglio, di seguito trovate la sequenza che ho usato :
1 - "foglio 1" colonna A frasi in italiano.
2 - "foglio 2" colonna A frasi in inglese / colonna B frasi in italiano
3 - "foglio 2 " ho selezionato da A1 a B3 / tasto dx "NOME ELELNCO : elenco 1"
4 - dove inserisco la formula ?? in B1 del foglio 1 ( dove andrò a digitare la frase in inglese ).

P.S. ma è diventato così complicato inserire un'allegato ??

[ricky53]

Ciao,
per il punto 4. devi utilizzare la formattazione condizionale (lo avevo già scritto) le operazioni dipendono dalla versione che utilizzi.

Per il 2010 (non ho il 2007 ma penso sia simile al 2010):
Home, Formattazione condizionale, Nuova regola, Utilizza una formula per determinare le celle da formattare ...
alla fine potrai scrivere, in una casella, la formula che ti ho inviato ed imposterai i colori come ti ho suggerito o come credi tu.

B2, B3, B... sono le celle in cui devi scrivere la traduzione in inglese relativa alla corrispondenti righe della colonna "A" delle frasi in italiano.

Per allegare un file utilizza QUESTO LINK

[Anthony47]

Guarda il messaggiio di Ricky, sopra.

Per pura curiosita' segnalo quest' altra discussione dove si parlava di Traduzioni: viewtopic.php?f=26&t=89009
Era anche stata presentata una macro che consentiva di tradurre frasi tramite Google Translator (viewtopic.php?f=26&t=89009#p506697)
Tuttavia il tracciato della pagina di Google Translator e' cambiata, quindi quella macro non funzionera'. Una versione dimostrativa puo' essere questa:

Codice: Seleziona tutto

Dim IE As Object           'Deve stare in testa al "Modulo"
Sub GoogTrans2()
Dim I As Long, LastA As Long
'
If IE Is Nothing Then Set IE = CreateObject("InternetExplorer.Application")
LastA = Cells(Rows.Count, 1).End(xlUp).Row
For I = 2 To LastA
    If Cells(I, 1) <> "" Then
        With IE
            .Visible = True
            .Navigate "https://translate.google.it/#it/en/" & Cells(I, 1).Value
            Application.Wait (Now + TimeValue("0:00:01"))
            Do While .Busy: DoEvents: Loop    'Attesa not busy
            Do While .readyState <> 4: DoEvents: Loop 'Attesa documento
            Cells(I, 2).Value = .Document.all("result_box").innertext
        End With
    End If
Next I
Stop             'solo uso debug, poi rimuovere
IE.Quit
Set IE = Nothing
End Sub


Questa traduce tutte le frasi che sono in colonna A, mettendo il risultato in colonna B.

Ciao