Newsgroup: it.comp.os.win.software
Titolo: Excel es EURO

Devo convertire una tabella contenente tante celle con importi in lire in
EURO (Office 2000- Win 98)
 come si fa?
euroconvert come funziona?
metto in una casella l'esempio della guida Excel:
EUROCONVERT(1.20,"DEM","EUR")
ma non succede niente?
Premetto che tra i componenti aggiuntivi è presente strumenti di conversione
euro.

 ha scritto nel messaggio
news:a1d4lt$810$1...@atlantis.cu.mi.it...

Se scrivi la formula esattamente così come la proponi, gli errori sono la
mancanza del segno = prima della formula e nelle virgole anziché punto e
virgola. Per il resto va bene; =EUROCONVERT("Cella da convertire";"valuta di
partenza";"valuta di arrivo").
Ciao Massimiliano

Se mi mandi il tuo indirizzo E-MAIL ti allego un componente aggiuntivo che
avevo scaricato tempo fà dalla rete.
L'unico problema è, che se tu per esempio volessi arrotondare per eccesso o
per difetto i valori, questo purtroppo non lo fà, vengono arrotondati
automaticamente.
Comunque non è complicatissimo da fare, alla peggio fammi sapere che te ne
creo uno io con questa funzione di arrotondamento per ECCESSO o DIFETTO.
Bye-Bye
___________Giancarlo____________
Moderatore Forum Excel & VisualBasic
su 
www.netboom.it

Eppure a me non funziona, neppure con l'autocomposizione formula...mi da
sempre #valore, e poi, perché hai messo -cella da convertire- tra
virgolette? TIA Flavio
"AER" <in...@Xaerweb.it> ha scritto nel messaggio
news:a1e4d2$f99$1...@news.flashnet.it...




Premetto che questa soluzione nn è mia ma letta in una mailing list:
ciao
dovrebbe essere questa , modifica il range in base alle tue esigenze
Public Sub euro()
For Each c In Range("a1:z100")
If c.Value <> "" Then
c.NumberFormat = "€#,##0.00_);[Red] - €#,##0.00"
End If
Next
For Each d In Range("a1:z100")
If d.Formula = True Then
d.Value = d.Value / 1936.27
End If
Next
End Sub
--------------------------
MAO
web...@libero.it
ICQ: 50543286 webmind
-------------------------

 dovrebbe essere questa , modifica il range in base alle tue esigenze
Beh se si vuole usare VBA allora si può usare la seguente:
selezionale le celle che si vuole e poi avviare la macro:
Public Sub ConvertiInEuro()
Dim ValoreStr As String
Dim FormulaStr As Variant
Dim c As Variant
' coefficiente di conversione Lira/Euro
  ValoreConversioneLiraEuro = 1936.27
' chiede se si vuole procedere con la conversione
If vbNo = MsgBox("le celle selezionate verranno convertite al
corrispondente valore in Euro " & Chr$(13) & "(1 Euro = " &
ValoreConversioneLiraEuro & " Lire)" & Chr$(13) & "Confermi?",
vbYesNo, "Conversione Lira/Euro") Then ValoreConversioneLiraEuro = 0
End If
If ValoreConversioneLiraEuro <> 0 Then
' esegue il loop per ciascuna cella della selezione
 For Each c In Selection
FormulaStr = c.Formula
' controlla che la cella non sia vuota e che il valore sia numerico
   If IsNumeric(c.Value) And Not IsEmpty(c.Value) And Left(FormulaStr,
1) <> "=" Then
' applica il coefficiente di conversione
    c.Value = Int(c.Value / ValoreConversioneLiraEuro * 100 + 0.5) /
100
    Selection.NumberFormat = "#,##0.00_ ;-#,##0.00 "
   End If
 Next c
End If
End Sub
Se uno poi vuole fare colorare il numero, allora agisce su
*Selection.NumberFormat*
Ciao, Lo