Se vuoi usare Excel, inserisci una immagine di "sfondo" sul foglio (vedi help on line di Excel, alla voce Aggiungere uno sfondo a un foglio) la cui dimensione sia idonea a riempire tutto il foglio.
Poi in Opzioni, elimina le visualizzazioni che possono dare fastidio; es barre di scorrimento, titoli dei Fogli, intestazioni, griglia e altro a piacere.
Poi in un modulo standard inserisci questa macro:
- Codice: Seleziona tutto
Sub CountDown()
Dim CEnd As Range, CDown As Range
'
Set CEnd = ThisWorkbook.Sheets("Foglio3").Range("Z1") '<<1 La cella con data/ora finale
Set CDown = ThisWorkbook.Sheets("Foglio3").Range("B10") '<<2 La cella in cui deve essere scritto il Countdown
'
CDown.NumberFormat = "[h]:mm:ss"
If CEnd.Value <> "" And CEnd.Value > Now Then
CDown.Value = CEnd.Value - Now
Application.OnTime Now + TimeValue("00:00:1"), "CountDown"
Else
CDown.Value = 0
End If
End Sub
Le righe marcate << vanno personalizzate; in particolare in <<1 va indicata quale cella contiene la data/ora a cui il conteggio si dovra' arrestare, e in <<2 la cella in cui sara' visualizzato il countdown. Formatta la cella <<2 a piacimento.
Poi, dopo aver compilato la cella indicata in <<1, lancerai la Sub CountDown, che si ripetera' automaticamente ogni secondo fino allo scadere del termine. Per forzare lo stop puoi azzerare la cella di termine.
Ciao