Conto alla rovescia
FIDELIO
Excel e una determinata ora futura e visualizzare una sorta di conto alla
rovescia?
In pratica inserendo in una cella ad esempio ore 12.00 del 31 gennaio 2004
vorrei che all'apertura del file comparisse un countdown (se possibile nel
formato gg/hh/mm/ss) del tempo mancante tra adesso e le 12.00 del 31 gennaio
2004.
Utilizzo Excel 2003.
Grazie,
FIDELIO
--
Mao
<rispondimi.sol...@grazie.invalid> wrote:
>In pratica inserendo in una cella ad esempio ore 12.00 del 31 gennaio 2004
>vorrei che all'apertura del file comparisse un countdown (se possibile nel
>formato gg/hh/mm/ss) del tempo mancante tra adesso e le 12.00 del 31 gennaio
>2004.
Se in A1 hai la data scrivi =A1-adesso() e formatta come g/hh/mm/ss.
Aspetta i guru del NG per sapere come fare a veder più di 30 giorni.
Ho provato a mettere [g] come fa excel per le ore quando superano 24
ma non funziona
--
MAO web...@occupato.it (liberami x scrivermi)
guarda le mie foto
http://www.photorate.org/search.php?search_user=Webmind
"i troni sono stati creati per innalzare gli idioti" (KINA)
--
Mao
wrote:
>Se in A1 hai la data scrivi =A1-adesso() e formatta come g/hh/mm/ss.
il valore si aggiorna modificando qualunque cella oppure premendo F9
Mao
wrote:
>Se in A1 hai la data scrivi =A1-adesso() e formatta come g/hh/mm/ss.
soluzione molto rozza. Metti la formula in 2 celle. In una usi il
formato numero e vedi i giorni, nell'altra metti hh.mm.ss e vedi il
resto
Barbara
"FIDELIO" <rispondimi.sol...@grazie.invalid> ha scritto nel
messaggio news:OZD5bvp1...@tk2msftngp13.phx.gbl...
dei 30 giorni, prova così:
=INT(C1-A1)&"/"&TESTO(C1-A1-INT(C1-A1);"hh/mm/ss")
Ti restituisce un *testo* che *sembra* essere un orario nel formato da te
richiesto ("g/h/mm/ss") ma in realtà non è riconosciuto da excel come
numero.
Ciao
Barbara
FIDELIO
>
> il valore si aggiorna modificando qualunque cella oppure premendo F9
> --
Ma è possibile creare in VBA un programmino che visualizzi lo scorrere del
tempo aggiornato in real time?
fernando cinquegrani
| Excel e una determinata ora futura e visualizzare una sorta di conto alla
| rovescia?
se ho ben capito:
nell'oggetto thisworkbook:
Private Sub Workbook_Open()
active = True
start
End Sub
in modulo1:
Public active As Boolean
Sub start()
Application.OnTime Now() + TimeValue("00:00:01"), "Mycounter"
End Sub
Sub Mycounter()
On Error GoTo fine:
Worksheets("Foglio1").Range("A2") = Format(Worksheets("Foglio1").Range("A1") - Now(), "dd hh:mm:ss")
start
Exit Sub
fine:
MsgBox "Fine"
active = False
End Sub
nel foglio1 cella A1
una data e un'ora future
chiudere salvando e riaprire
ho un esempio:
http://www.prodomosua.it/zips/ontime.xls
attenzione: tra qualche giorno il file,
per ovvie ragioni legate alla procedura,
non funzionerà più
.f
fernando cinquegrani
Microsoft MVP
http://www.prodomosua.it
FIDELIO
"fernando cinquegrani" <f.cinq...@xroxxmxxxa.it> ha scritto nel
messaggio news:O#b1HRt1D...@TK2MSFTNGP11.phx.gbl...
> "FIDELIO" <rispondimi.sol...@grazie.invalid> ha scritto nel
messaggio news:OZD5bvp1...@tk2msftngp13.phx.gbl...
> | Come posso calcolare il tempo restante tra il momento in cui apro un
file
> | Excel e una determinata ora futura e visualizzare una sorta di conto
alla
> | rovescia?
>
> ho un esempio:
> http://www.prodomosua.it/zips/ontime.xls
> attenzione: tra qualche giorno il file,
> per ovvie ragioni legate alla procedura,
> non funzionerà più
> .f
Non funziona correttamente se il countdown supera i 31 giorni 23h 59m 59s..
FIDELIO
fernando cinquegrani
| Non funziona correttamente se il countdown supera i 31 giorni 23h 59m 59s..
Worksheets("Foglio1").Range("A2") = CLng(DateValue(Worksheets("Foglio1").Range("A1")) - Date) & " " &
Format(Worksheets("Foglio1").Range("A1") - Now(), "hh:mm:ss")
corretto anche in:
http://www.prodomosua.it/zips/ontime.xls
.f
fernando cinquegrani
http://digilander.libero.it/ProDomoSua/tracce