Silas Silvério
Mensagens : 1 Data de inscrição : 13/10/2015
| Assunto: Criação De Contagem regressiva simples em label Ter Out 13, 2015 6:08 pm | |
| GOSTARIA DE SABER COMO EU CRIO UMA CONTAGEM REGRESSIVA DENTRO DE UMA LABEL E O TEMPO SENDO DEFINIDO PELO USUÁRIO ,POR EXEMPLO DIGITO "00:01:00" E ELE VAI MOSTRANDO 59,58 ETC... por favor respondam rápido | |
|
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: Re: Criação De Contagem regressiva simples em label Ter Out 13, 2015 7:29 pm | |
| Boa tarde!! Considerando um exemplo em que na célula (A1) da guia ativa, então digite um valor grande de 1000 na célula. Depois rode a macro. - Código:
-
Sub AleVBA_1081() Static timeInterval As Double Static cellLocation As Range timeInterval = (TimeSerial(0, 0, 1)) / 3 Set cellLocation = Range("A1") If Val(cellLocation.Value) <= 0 Then Exit Sub Else cellLocation.Value = Val(cellLocation.Value) - 1 Application.OnTime Now() + timeInterval, "countDown" End If End Sub
Att | |
|