Salve avrei bisogno di creare una macro per un conto alla rovescia di 60 secondi, e che una volta arrivato a zero, ricomnci nuovamente senza interruzione. Chiaramente la macro deve visualizzare i secondi mancanti.
Ringrazio anticipatamente
Moderatori: Anthony47, Flash30005
Sub Conteggio()
For sec = 60 To 0 Step -1
Range("A1").Value = sec
Application.Wait (Now + TimeValue("0:00:01"))
Next sec
Call Conteggio
End Sub
Sub Conteggio2()
Dim NormA1 As Single
[A1] = 0
Do
If [A1] <= 0 Then NormA1 = Timer + 61
[A1] = Int(NormA1 - Timer)
DoEvents
If [C1] = "AVVIA" Then GoTo esci
Loop
esci:
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$C$1" Then Exit Sub
Application.EnableEvents = False
If Selection.Value = "STOP" Then
Selection.Value = "AVVIA"
Else
Selection.Value = "STOP"
End If
ActiveCell.Offset(0, 1).Select
Application.EnableEvents = True
If [C1] = "STOP" Then Call Conteggio2
End Sub
Torna a Applicazioni Office Windows
Il PC fisso non riesce a connettersi alla fibra Autore: v3ga79 |
Forum: Reti, ADSL e wireless Risposte: 17 |
Tor browser: non riesco più a connettermi alla rete Autore: franco11 |
Forum: Sicurezza e Privacy Risposte: 5 |
Collegamento alla prima cella libera di colonna Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 2 |
sommare riga precedente alla riga successiva Autore: giorgioa |
Forum: Applicazioni Office Windows Risposte: 6 |
Visitano il forum: Nessuno e 82 ospiti