Calcolo ora in 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