Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Criação De Contagem regressiva simples em label

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
Silas Silvério



Mensagens : 1
Data de inscrição : 13/10/2015

MensagemAssunto: 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
Sad
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Criação De Contagem regressiva simples em label
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Como faço pra colocar um calendário com contagem regressiva
» Contagem regressiva - Copa do Mundo
» Tempo - Contagem Regressiva e passar para proxima fase
» [contagem regressiva] GM HTML5
» [AJUDA] Como fazer um cronômetro de contagem regressiva?

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: