Simulare orologio digitale

[alby60]

Ciao, è possibile inserire in un cella un orario (ora, minuti, secondi, centesimi) e fare in modo che l’orario cambi come se fosse un orologio e che ad un’ora prefissata mi faccia comparire un messaggio, inoltre, vorrei poter fermare e far ripartire l’orologio.

Grazie anticipato,
Alby

[Anthony47]

Vedi questa discussione: viewtopic.php?t=85468
Per il messaggio, basta controllare quando l' orario "supera" un valore predeterminato e attivare un msgbox, o una form.

Ciao

[alby60]

Ciao Anthony47, leggo, provo e ti aggiorno. Grazie ovviamente.
Alby

[alby60]

Ciao, grazie per il suggerimento. Ho letto, ho fatto deleprove ed ho messo in piedi una macro che allego.

Codice: Seleziona tutto

Sub Orologio()
    Foglio1.[A1] = Format(Now, "hh:mm:ss")
    If Time = Foglio1.[B1] Then
        Risposta = MsgBox("EFFETTUARE L'OPERAZIONE IN SCADENZA alle ore:  " & Format(Foglio1.[B1], "hh:mm:ss") & Chr(10) & Chr(10) & "Fermare il timer ?", vbYesNo)
        If Risposta = 6 Then
            Exit Sub
        End If
    End If
    Application.OnTime Now + TimeSerial(0, 0, 1), "Orologio"
End Sub

Ho inserito in B1 un orario che viene scritto, prima di attivare l’orologio, da una macro quando apro il file. In questo modo posso gestire alcune azioni che faccio con il mio file.
Grazie ancora.
Alby