Ouvrez la feuille de calcul où vous souhaitez ajouter un compte à rebours Excel 2010. droit; cliquez sur la cellule où vous voulez que le minuteur se et choisissez "Format de cellule." Cliquez sur "Custom" sur le côté gauche de la fenêtre qui apparaît, puis sélectionnez "h: mm: ss" de la liste sur la droite. Cliquez sur "OK" pour continuer.
Maintenez "Alt" et appuyez sur "F11" pour ouvrir la console VBA. Sélectionnez votre feuille de calcul actuelle de la liste sur le côté gauche de la console. Cliquez sur la petite flèche à côté du bouton «Insérer Userform" en haut de l'écran, qui est le deuxième bouton sur le côté gauche, et choisissez "module" de la liste des options qui apparaissent. Double-cliquez sur "Module 1" quand il apparaît dans la liste.
Cliquez sur l'espace blanc sur le côté droit de l'écran et entrez le code suivant:
Sous countUp ()
CountDown Dim As DateCountDown = maintenant + TimeValue ("00:00:01")
Application.OnTime compte à rebours, "Realcount"
End Sub
Ce code permettra au reste du code pour traiter une fois par seconde.
Appuyez sur Entrée pour accéder à une nouvelle ligne sur la page. Entrez le code suivant:
Sous Realcount ()
Comme nombre Dim GammeRéglez count = [E1]
count.Value = count.Value - TimeSerial (0, 0, 1)
Si count lt; = 0 alors
MsgBox "Countdown complète."
Exit Sub
Fin si
Appelez countUp
End Sub
Changer "E1" à quelque cellule que vous souhaitez utiliser pour le compte à rebours. Ce code fait le compte à rebours réelle et vérifie pour voir si le compte à rebours est terminé.
Cliquez sur le «X» dans le coin supérieur droit de la console pour le fermer.
Sélectionnez la cellule que vous utilisez pour votre compte à rebours et entrez votre compte à rebours souhaité. Assurez-vous que vous entrez les heures, minutes et secondes, même si les heures et les minutes sont nuls. "2:30" est deux heures et trente minutes-"0: 2: 30" est deux minutes et trente secondes.
Cliquez sur l'onglet "Developer" en haut de l'écran, puis cliquez sur le bouton "Macros" sur le côté gauche du ruban. Sélectionnez "countUp" dans la liste et cliquez sur "Exécuter". Votre compte à rebours va commencer et il va continuer jusqu'à ce qu'il arrive à zéro, lorsque vous verrez une boîte de message expliquant que le compte à rebours est terminé.
Conseils Avertissements
- Si vous voulez faire le compte à rebours numérique plus, vous pouvez sélectionner un certain nombre de cellules, aussi longtemps que votre cellule spécifiée est dans le coin supérieur gauche de la sélection, et choisissez "Fusionner et centrer" de l'onglet "Accueil". Ensuite changer la police (de la maison aussi), jusqu'à ce que les chiffres sont aussi grand que vous voulez qu'ils soient.