Comment insérer un compte à rebours dans Excel?

Si vous souhaitez gérer certaines données dans un temps limité, vous pouvez insérer un compte à rebours dans votre feuille de calcul de données, et une fois le compte à rebours terminé, une boîte de dialogue apparaîtra pour vous le rappeler. Ici, je vais vous dire un code VBA pour insérer un compte à rebours dans Excel.

Insérer un compte à rebours dans Excel

Insérer un compte à rebours dans Excel

Dans Excel, le compte à rebours ne peut pas être effectué, mais vous pouvez copier le code VBA suivant pour vous aider à compter le temps.

1. Sélectionnez une cellule et formatez-la en formatage de l'heure en cliquant avec le bouton droit de la souris sur la cellule et en sélectionnant Format de cellule, puis dans la boîte de dialogue, en cliquant Temps et la sélection 13:30:55 dans le Type liste, au dernier clic OK pour quitter cette boîte de dialogue. Voir la capture d'écran:

2. Tapez la durée du compte à rebours dans la cellule de mise en forme. Voir la capture d'écran:

3. presse Alt + F11 clés pour ouvrir Microsoft Visual Basic pour applications fenêtre.

4. Cliquez insérer > Module puis copiez le VBA suivant dans la nouvelle fenêtre.

VBA: compte à rebours.

Dim gCount As Date
'Updateby20140925
Sub Timer()
    gCount = Now + TimeValue("00:00:01")
    Application.OnTime gCount, "ResetTime"
End Sub
Sub ResetTime()
Dim xRng As Range
Set xRng = Application.ActiveSheet.Range("E1")
xRng.Value = xRng.Value - TimeSerial(0, 0, 1)
If xRng.Value <= 0 Then
    MsgBox "Countdown complete."
    Exit Sub
End If
Call Timer
End Sub

Conseil : E1 dans le code ci-dessus indique la cellule de temps que vous saisissez à l'étape 2.

5. Cliquez Courir bouton ou appuyez sur F5 pour exécuter le compte à rebours. Maintenant, le temps est compté.

6. Et lorsque le compte à rebours est terminé, une boîte de dialogue qui apparaît vous le rappellera.

Conseil : Vous ne pouvez pas arrêter le compte à rebours lorsqu'il est en cours d'exécution sauf en fermant le classeur.