Calcolo ora in Excel

Hai un problema con Excel?

L'ora in excel di Luca2002for

Ciao a tutti dunque il mio problema è questo. vorrei inserire l'ora corrente in un foglio di excel ma con la funzione =adesso() ottengo un orario che si aggiorna solo quando modifico il foglio e non continuativamente (come vorrei). e' possibile uscire da questo dilemma? un grazie anticipato!

di Apoben64

Ciao luca, ti allungo questa macro ( modulo) che devi inserire nel vba :
private sub workbook_open()
clock
end sub

spero ti sia utile !

Sub CLOCK()
If ThisWorkbook.Worksheets("Nome tuo foglio").Range("A1").Value = "X" Then Exit Sub
ThisWorkbook.Worksheets("Nome tuo foglio").Range("A1").Value = Format(Now, "hh:mm:ss AM/PM")
Application.OnTime Now + TimeSerial(0,0,1), "clock"
End Sub

di Luca2002for

Omer simpson direbbe: "mitico!". grazie mille, funziona perfettamente. io capisco pochissimo di vba, mi sono limitato a incollare e per magia l'orologio gira anche se il foglio è "fermo";-d l'effetto collaterale indesiderato è che, se ci lavoro l'orologio si blocca. in effetti mettere l'ora su excel ha per me lo scopo di far eseguire al foglio una macro a certi orari prefissati (si tratta do un foglio con cui seguo gli andamenti di borsa. siccome sono spesso fuori casa l'idea era quella di creare un sistema che con una macro "incolla valori" mi desse modo, alla fine della giornata, di sapere cosa aveva fatto il mercato). e siccome il foglio lavora (di brutto) durante la contrattazione, accade che nella cella dell'orario un'ora "non appaia" perchè l'orologio salta, cioè non "batte" tutti i secondi. probabilmente allora ho impostato male il problema e mi conveniva riferirmi all'orologio di sistema, senza "importarlo" in una cella di excel....shame on me. in ogni caso grazie, intanto per un trucco in più che non conoscevo e poi per la stupefacente velocità nella risposta (questo forum è evidentemente frequentato da gente ;-d) a dopo

di K@rlo

Prova a inserire un useform appena apri il programma, la funzione renderà l'orologio sempre attivo, anche se ci lavori.
bisogna inserire in thisworkbook una macro:

Private Sub Workbook_Open()
nomefoglio.Select
Call Clock
End Sub

Vuoi approfondire questo argomento?