Indice del forum Olimpo Informatico
I Forum di Zeus News
Leggi la newsletter gratuita - Attiva il Menu compatto
 
 FAQFAQ   CercaCerca   Lista utentiLista utenti   GruppiGruppi   RegistratiRegistrati 
 ProfiloProfilo   Messaggi privatiMessaggi privati   Log inLog in 

    Newsletter RSS Facebook Twitter Contatti Ricerca
Excel: conversione al volo del valore di una cella
Nuovo argomento   Rispondi    Indice del forum -> Software - generale
Precedente :: Successivo  
Autore Messaggio
lonexz
Mortale adepto
Mortale adepto


Registrato: 13/11/05 15:14
Messaggi: 31

MessaggioInviato: 30 Ott 2007 17:00    Oggetto: Excel: conversione al volo del valore di una cella Rispondi citando

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
Profilo Invia messaggio privato
enrico43
Mortale pio
Mortale pio


Registrato: 01/12/07 00:00
Messaggi: 26
Residenza: Roma

MessaggioInviato: 01 Dic 2007 18:40    Oggetto: Rispondi citando

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
Profilo Invia messaggio privato
enrico43
Mortale pio
Mortale pio


Registrato: 01/12/07 00:00
Messaggi: 26
Residenza: Roma

MessaggioInviato: 02 Dic 2007 00:49    Oggetto: Rispondi citando

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
Profilo Invia messaggio privato
lonexz
Mortale adepto
Mortale adepto


Registrato: 13/11/05 15:14
Messaggi: 31

MessaggioInviato: 11 Dic 2007 13:14    Oggetto: Rispondi

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
Profilo Invia messaggio privato
Mostra prima i messaggi di:   
Nuovo argomento   Rispondi    Indice del forum -> Software - generale Tutti i fusi orari sono GMT + 2 ore
Pagina 1 di 1

 
Vai a:  
Non puoi inserire nuovi argomenti
Non puoi rispondere a nessun argomento
Non puoi modificare i tuoi messaggi
Non puoi cancellare i tuoi messaggi
Non puoi votare nei sondaggi