Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Ore, min, secondi, DINAMICI che scorrono.

571 views
Skip to first unread message

Ettore

unread,
Apr 4, 2016, 3:17:05 PM4/4/16
to
Buongiorno a tutto il Gruppo MPIOE .
Ho un grosso problema che non riesco a risolvere, sti girando 2 giorni in
rete coi varie chiavi di ricerca-
Tipo "Data e ora dinamica in excel "
oppure " Data e ora dinamica che scorrono in excel " ed altre variazioni.

Ho bisogno di inserire in una cella una data come hh, mm, Ss.sss (Ora /
minuti / secondi , che siano dinamici che scorrono senza che io prema F9 o
ricalcolo ecc.
Ma se possibile con poco codice vba.
O se esiste un modo che non conosco.

Sto impazzendo
Chiedo a qualcuno di voi che abbia risolto il problema e che possa riuscire
a vedete il tempo scorrere nella cella
Nel caso se sia possibile anche il tempo. GG / MM / AAAA su una casella o
celle separate. Anche per i minuti e secondi in celle separate.

Forse chiedo troppo
Mi rimetto nelle vostre mani di esperti.
Cordiali a tutti.

PS., Mi serve per un foglio di calcolo dove debbo visualizzare molti
elementi come UTC, Ora locale, Ora siderale dinamici .che prendnao da una
cella i dati per lo scorrimento del tempo.

casanmaner

unread,
Apr 4, 2016, 3:23:41 PM4/4/16
to
Non so se io sono in grado di risolvere il tuo problema ma non specifichi un elemento che credo sia rilevante.
Ogni quanto tempo si deve aggiornare quel valore?

casanmaner

unread,
Apr 4, 2016, 4:19:23 PM4/4/16
to
Comunque prova ad incollare in un modulo standard questo codice
'--------------
Option Explicit
Public TimerDelay As Date

Sub StartTimerDinamico()
Range("A1").Value = Now
TimerDelay = Now + TimeValue("0:0:1")
Application.OnTime TimerDelay, "StartTimerDinamico"
End Sub

Sub EndTimerDinamico()
On Error Resume Next
Application.OnTime TimerDelay, "StartTimerDinamico", , False
End Sub
'----------------

La prima procedura "StartTimerDinamico" inserisce nella cella "A1" la data e ora corrente e poi memorizza la data e ora corrente + un tempo di "ritardo" (in questo esempio 1" e attraverso Application.OnTime rilancia dopo quel "ritardo" la stessa procedura che aggiorna il valore della cella "A1".

La seconda procedura "EndTimerDinamico" interrompe la procedura in modo che la cella non venga aggiornata.

Ettore

unread,
Apr 4, 2016, 4:56:11 PM4/4/16
to
"casanmaner" ha scritto nel messaggio
news:60ed3d57-cdfc-46c1...@googlegroups.com...
==========================================================
Ciao Casanmaner
Mi sono dimenticato di dire che uso al momento Office excel 2010 . 64b
Allora si', deve aggiornare la cella in base al tempo di sistema. Il tempo
e quello reale, ed inoltre ho settato la cella in Formato : " ORA" 13:30:55
nell'esempio in essere del settaggio

--------------------------------------------
Errore=> Impossibile eseguire la macro
"C:\1\z_SistemaSolare\2016_new.xlsm'!StartTimerDinamico' .E' possibile che
tale macro non sia disponibile nella cartella di lavoro o che
tutte le macro siano disattivate.
----------------------- Allora le macro sono tutte attivate !
L'errore lo darebbe la subroutine " StartTimerDinamico() "

Io ho avviato la macro con il Run di VBA . si e' aggiornata e ha dato questo
errore mostrato sopra.
Non so' ..
Spero di essere chiaro come al solito molti non comprendono.
Grazie per la tua mano. Riprendo domani pomeriggio
Notte.

casanmaner

unread,
Apr 4, 2016, 5:16:48 PM4/4/16
to
Ti metto un link ad un file excel dove ho appena provato e funziona senza errori.
Prova a vedere se da te dà errore.
https://www.dropbox.com/s/kkzc88lsneeqd8u/Test%20Timer%20Dinamico.xlsm?dl=0

Il file ha le sole due macro che ho incollato e due pulsanti (non activex) nel foglio1 per far partire il timer e interromperlo.
La cella A1 è in formato hh.mm.ss

Ettore

unread,
Apr 5, 2016, 12:32:53 PM4/5/16
to

"casanmaner" ha scritto nel messaggio
news:0726eae2-a2e6-4746...@googlegroups.com...
===========================================================
Ciao casanmaner
E' perfetto ho visto anche il modo "Progettazione e come cambiare nome e
proprietà. Importanti.
Devo solo adattarla a un lavoro piu complesso. lo trovi qui .=>
http://scambiolink.superweb.ws /downl/2016_new.xlsm (Scaricatelo e lo vedi)
A cui ci sto lavorando, è un foglio di calcolo per le effemeridi, con
precisione di arco Sole / Luna posizionale di ~9.000 anni .
Poi posizione pianeti come Mercurio, Venere, Terra, Marte per circa 4.000
anni -------
Trovi modificando il giorno, mese, anno, ora min.sec. e selezionando la
citta'. Tutti dico tutti i maggiori dati astronomici !!!!!!!
--------------------------------------------
Comunque ritornando -
E' possibile avere il contatore diviso in 3 celle distinte ? Cioe'. Il campo
A1 e' in formato hh:mm:ss , se si riesce ad avere esempio
A1 . hh
A2. mm
A3. SS,ss
-------------------------------------- Mi servirebbe per una selezione piu
complessa come calcoli Siderale Time, ecc..
Ti ringrazio e ti Saluto Cordialmente.
Ettore.

casanmaner

unread,
Apr 5, 2016, 2:53:36 PM4/5/16
to
Ho visto il file.
Premesso che non ci capisco niente :-)
Il codice non lo avevi inserito in un modulo standard ma all'interno del modulo del foglio di lavoro Effemeridi2016.
Ho inserito un modulo standard e ho modificato i comandi in modo che puntino alla cella D3 del foglio Effemeridi2016.
Però per quella cella non ci sono altre celle dipedenti.
Per quanto riguarda la tua domanda ma tu vorresti che in A1 ci siano solo le ore, in A2 solo i minuti e in A3 solo i secondi?
E se sì in base all'ora corrente?

casanmaner

unread,
Apr 5, 2016, 2:54:07 PM4/5/16
to

Ettore

unread,
Apr 5, 2016, 3:09:08 PM4/5/16
to

>"casanmaner" ha scritto nel messaggio
>news:ab421a7c-8217-4e01...@googlegroups.com...
>
>Ho visto il file.
>Premesso che non ci capisco niente :-)
>Il codice non lo avevi inserito in un modulo standard ma all'interno del
>modulo del foglio di lavoro Effemeridi2016.
>Ho inserito un modulo standard e ho modificato i comandi in modo che
>puntino alla cella D3 del foglio Effemeridi2016.
>Perň per quella cella non ci sono altre celle dipedenti.
>Per quanto riguarda la tua domanda ma tu vorresti che in A1 ci siano solo
>le ore, in A2 solo i minuti e in A3 solo i secondi?
>E se sě in base all'ora corrente?

Ciao casanmaner .RISOLTO .http://scambiolink.superweb.ws
/downl/2016_new.xlsm

Mi spiace e inerente astronomia e in effetti e' ostico e complesso .
Allora ho risolto in questo modo.
Ti rimetto il file inerente risolto ..................... :)
http://scambiolink.superweb.ws/downl/2015_new.xlm
Se vedi in cima Start e Stop i pulsanti nella zona AZZURRA

Allora per risolvere ho girato ora l'help.
Per separare le casella come stavo cercando metto in 3 caselle differenti .
E6 e la zona che contiene =(ADESSO()+0,00032184) , ora universale corretta .
=ORA (E6)
=MINUTO(E6)
=SECONDO(E6)
Campo personalizzato "00 "

E sembra andare................
Almeno e l'esempio anche per chi ne ha bisogno. E avere Tempo dinamico che
varia le ore nei riferimenti di calcolo.

Ti Ringrazio per avermi aiutato buona serata.

PS Nel foglio rimesso nel link vedi la zona Azzurra e i pulsanti adattati
per il test. sopra la zona celeste per il test


casanmaner

unread,
Apr 5, 2016, 4:21:27 PM4/5/16
to
Se scarichi di nuovo il file dal precedente link in effetti puoi vedere come avevo inserito delle formule dove indichi di inserire il giorno, mese, anno, ora, minuti e secondi, che fanno riferimento alla cella D3 che viene aggiornato automaticamente.
Poi, vabbè, ci avevo "giocato" inerendo una TAB personalizzata con un paio di bottoni per far partire e fermare il timer.

Nel tuo file aggiornato ho visto che hai un po' di codice sparso (es. auto_open nel modulo specifico del foglio effemeridi2016).
Vedi di fare un po' di "pulizia" :-)

Ettore

unread,
Apr 6, 2016, 4:35:53 PM4/6/16
to
"casanmaner" ha scritto nel messaggio
news:f3367fd0-5259-48dc...@googlegroups.com...

>Se scarichi di nuovo il file dal precedente link in effetti puoi vedere
>come avevo inserito delle formule dove indichi di inserire il giorno, mese,
>anno, ora, minuti e secondi, che fanno riferimento alla cella D3 che viene
>aggiornato automaticamente.
>Poi, vabbè, ci avevo "giocato" inerendo una TAB personalizzata con un paio
>di bottoni per far partire e fermare il timer.

>Nel tuo file aggiornato ho visto che hai un po' di codice sparso (es.
>auto_open nel modulo specifico del foglio effemeridi2016).
>Vedi di fare un po' di "pulizia" :-)

Ciao Grazie della modifica, si in effetti c'e' da fare pulizia. :)
Alcune cose servono per apertura e altro codice per altre cose .

CORDIALISSIMI ANCORA

Ettore

unread,
Apr 6, 2016, 4:41:59 PM4/6/16
to

>"casanmaner" ha scritto nel messaggio
>news:f3367fd0-5259-48dc...@googlegroups.com...
>Vedi di fare un po' di "pulizia" :-)
............

Bellissimo il Ribbon non l'avevo ancora visto " GRAZIE " e' tutta un'altra
cosa GRAZIE, ma molte volte.

0 new messages