Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
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  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 Criação De Contagem regressiva simples em label

Ir para baixo 
2 participantes
AutorMensagem
Silas Silvério




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

Criação De Contagem regressiva simples em label Empty
MensagemAssunto: Criação De Contagem regressiva simples em label   Criação De Contagem regressiva simples em label EmptyTer 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
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


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

Criação De Contagem regressiva simples em label Empty
MensagemAssunto: Re: Criação De Contagem regressiva simples em label   Criação De Contagem regressiva simples em label EmptyTer 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
Ir para o topo Ir para baixo
 
Criação De Contagem regressiva simples em label
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» como modificar o CAPTION DE UMA LABEL a cada clique de um botão
» Contagem de arquivos
» Criação de uma coluna padrão.
» LIMPAR ASPA SIMPLES QUE FICA AO INSERIR DATA
» Excel Avançado - Parar a contagem da data quando a tarefa foi cumprida

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: