Condividi:        

Excel - Data e ora in tempo reale

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Excel - Data e ora in tempo reale

Postdi Venerdi » 22/01/18 16:00

Buongiorno a tutti.
La domanda è la seguente...
Esiste la possibilita di avere in una cella "data e ora" (o solo l'orario), in aggiornamento continuo?
Diciamo, in altre parole, l'equivalente di inserire la funzione
=ADESSO()
in aggiornamento continuo; in sostanza, visualizzare lo scorrere dei secondi, minuti, ore etc. (ovviamente sincronizzato con l'orologio del pc)

Grazie
v.
Avatar utente
Venerdi
Utente Junior
 
Post: 63
Iscritto il: 18/03/02 20:05
Località: Roma

Sponsor
 

Re: Excel - Data e ora in tempo reale

Postdi wallace&gromit » 22/01/18 17:37

Ciao,
questa macro, se nella cella A1 c'è il valore 1 inserisce in B1 un orologio che segna l'avanzamento dei secondi.
Ora è molto grezza: si interrompe in modo brusco quando inserisci 0 in A1, ma il concetto è quello e si può affinare.

Codice: Seleziona tutto
 Private Sub Orario()
While Range("A1").Value = 1
            Range("B1") = Now
        DoEvents
Wend
End Sub
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21

Re: Excel - Data e ora in tempo reale

Postdi Venerdi » 22/01/18 18:31

...grazie, ho potuto verificare che effettivamente fa quello che dici, ma ...è parecchio da perfezionare :-)
Da parte mia, speravo si potesse fare inserendo qualche formula (che a me non veniva in mente), e non con una macro, in quanto dovrei inserirla in un foglio dove già c'è una macro che gira...

v.
Avatar utente
Venerdi
Utente Junior
 
Post: 63
Iscritto il: 18/03/02 20:05
Località: Roma

Re: Excel - Data e ora in tempo reale

Postdi alfrimpa » 22/01/18 18:48

Le formule non possono fare quello che chiedi.

Occorre obbligatoriamente una macro.
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 1201
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: Excel - Data e ora in tempo reale

Postdi Anthony47 » 22/01/18 23:06

Il problema principale della macro suggerita da W&G e' che per aggiornare l'orologio tiene Excel occupato in modo stabile, quindi sostanzialmente inutilizzabile.

Devi invece creare una macro che si attiva ogni secondo e aggiorna il contenuto della cella orologio.
Ad esempio, metti questa nel modulo QuestaCartellaDiLavoro:
Codice: Seleziona tutto
Private Sub Workbook_Open()
Dim aWb As Worksheet
'
Set aWb = ThisWorkbook.Sheets("Foglio2")    '<<< Il foglio dove c'e' l'orologio
Set wCell = aWb.Range("Z1")                 '<<< Una cella libera sul foglio Orologio
    wCell.Value = "Clock On"
    Call OnnTime
End Sub

Mentre in un Modulo standard, es Modulo1, metterai:
Codice: Seleziona tutto
Sub OnnTime()
Dim aWb As Worksheet
'
Set aWb = ThisWorkbook.Sheets("Foglio2")    '<<< Il foglio dove c'e' l'orologio
Set oWatch = aWb.Range("O1")                '<<< La cella con l' Orologio
Set wCell = aWb.Range("Z1")                 '<<< Una cella libera sul foglio Orologio
'
If wCell.Value <> "" Then
    oWatch.Value = Now
    Application.OnTime Now + TimeValue("00:00:01"), "OnnTime"
End If
End Sub


Salva il file e riaprilo, la "cella orologio" dovrebbe aggiornarsi ogni secondo.

Le righe marcate <<< devono essere compilate in modo consistente in ambedue le posizioni; il particolare la cella wCell (Z1 di Foglio2, nel mio esempio) viene anche usata per stoppare l'orologio, cosa che va fatta prima di chiudere il file. Per questo dovrai cancellarne il contenuto e la macro che aggiorna l'orologio si fermera'
Se non fermi l'orologio prima di chiudere il file allora lo fermerai dopo, quando il file si riaprira' da solo...

Quali sono i problemi di avere una macro che si attiva periodicamente lo scoprirai con l'uso.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Excel - Data e ora in tempo reale

Postdi wallace&gromit » 23/01/18 10:15

stroncato brutalmente sigh sigh.
Eppure un piccolo affinamento della mia macro potrebbe consistere nell'abbinarla ad un evento worksheet:
Codice: Seleziona tutto
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
CheckArea = "A2:E100"  '<< da estendere a volontà
If Not Application.Intersect(Target, Range(CheckArea)) Is Nothing Then
Call Orario
End If
End Sub

In questo modo permette in ogni momento di lavorare sul foglio, come modificare le celle o eseguire qualsiasi macro. Durante queste operazioni il timer si ferma ma poi riparte da sola fintanto che in A1 c'è il valore 1 e che selezioni una cella nel range.
Puoi chiudere tranquillamente il file senza che succeda nulla di anomalo :D
E si possono avere non solo i secondi ma anche decimi e centesimi, fighissimo!!!
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21

Re: Excel - Data e ora in tempo reale

Postdi Anthony47 » 23/01/18 13:11

Avevo clamorosamente sottovalutato l'utilita' della soluzione proposta da W&G, quindi invito Venerdi a provarla oggi stesso.
E' vero che tiene la cpu impegnata un bel po', ma potrebbe essere il male minore

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Excel - Data e ora in tempo reale

Postdi Venerdi » 05/02/18 19:43

Mi scuso per la mancanza di riscontro, ma sono stato "fuori uso" per diversi giorni.
Ringrazio tutti, e domani proverò ad applicare i suggerimenti ricevuti.

:)
V.
Avatar utente
Venerdi
Utente Junior
 
Post: 63
Iscritto il: 18/03/02 20:05
Località: Roma


Torna a Applicazioni Office Windows


Topic correlati a "Excel - Data e ora in tempo reale":


Chi c’è in linea

Visitano il forum: Nessuno e 36 ospiti