Compte à rebours Excel VBA - Code s'est écrasé excel
Quelqu'un pourrait-il offrir un aperçu de pourquoi cette plante mon excel, je ne peux pas semblent s'en sortir.
Im essayant d'apprendre VBA et besoin de quelques conseils.
sub timer()
dim second
second = 1.15740740740741e-05
'this is the amount excel counts as a second
line1:
application.wait "00:00:01"
Range("a1").value = Range("a1").value - second
if not range("D2").value = 0 then
Goto line1
else
Msgbox("Countdown ended")
End if
end sub
- Qu'est-ce que A1's valeur initiale?? Comment sont A1 et D2 sont-ils liés??
- OMG im tel un twit....
- A1 = 00:00:30 , D2 A1 ..... j'ai aussi changé l'attente de l'Application.Attendre Now + TimeValue("0:00:01")
Vous devez vous connecter pour publier un commentaire.
Je suis sûr que vous n'êtes pas le timing de la navette spatiale lance ou quoi que ce soit critique. Mais si vous voulez vous assurer que votre compte à rebours de ne pas prendre plus de 30 secondes, vous pouvez utiliser la fonction de Minuterie. Voici un exemple.
Si il seulement de compter chaque seconde, je pense qu'il y a une autre option pour ajouter un compteur de fonctionnalités d'Excel.
Essayez de rechercher pour Application.OnTime fonction dans Excel, qui nous permet d'avoir de la Minuterie dans Excel. Un Article qui explique comment ajouter de la minuterie dans Excel et de faire une macro exécuter pendant que l'intervalle programmé.
C'est le meilleur moyen pour ce faire.
Essayez d'utiliser ce code ci-dessous: