Precedente :: Successivo |
Autore |
Messaggio |
lonexz Mortale adepto

Registrato: 13/11/05 15:14 Messaggi: 31
|
Inviato: 30 Ott 2007 17:00 Oggetto: Excel: conversione al volo del valore di una cella |
|
|
Salve!
Qualcuno mi sa dire come fare per ottenere un risultato simile a questo in un foglio di Excel (magari con una macro)?
Mi spiego meglio:
al passaggio del mouse sulla cella contenente il dato espresso in Euro dovrebbe comparire la finestrina in sovraimpressione contenente il dato convertito in Lire o Dollari.
Help please! |
|
Top |
|
 |
enrico43 Mortale pio

Registrato: 01/12/07 00:00 Messaggi: 26 Residenza: Roma
|
Inviato: 01 Dic 2007 18:40 Oggetto: |
|
|
In excel non è possibile avere l'effetto tooltips ne ottenerlo con una macro, poichè le macro debbono essere attivate o avviandole o con un evento. Potresti solo avere, quando ti posizioni su una cella contenente un valore in euro, una msgbox che ti si apre con il valore degli euro espresso in lire. Se ti accontenti eccotela valida per valori della colonna C (tu metti il range che ti serve)
Codice: | Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("C1:C100")) Is Nothing Then
Exit Sub
Else
MsgBox "LIRE: " & Format(CLng(Target * 1936.27), "#,###")
End If
End Sub |
Spero di esserti stato utile
Ciao |
|
Top |
|
 |
enrico43 Mortale pio

Registrato: 01/12/07 00:00 Messaggi: 26 Residenza: Roma
|
Inviato: 02 Dic 2007 00:49 Oggetto: |
|
|
O se vuoi l'identico effetto su tutte le celle del foglio ma con doppio click
Codice: | Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
MsgBox "LIRE: " & Format(CCur(Target * 1936.27), "#,###.00")
'se li vuoi arrotondati sostituisci CLng a CCur
ActiveCell.Offset(1, 0).Select
End Sub |
La dichiarazione su un unica riga
Ciao |
|
Top |
|
 |
lonexz Mortale adepto

Registrato: 13/11/05 15:14 Messaggi: 31
|
Inviato: 11 Dic 2007 13:14 Oggetto: |
|
|
Ti ringrazio veramente. I tuoi suggerimenti mi sono stati molto utili.
Scusa il ritardo ma da diversi giorni non avevo consultato il forum.
Buon Natale. |
|
Top |
|
 |
|