Menu inserir módulo e dentro do módulo Primeiro passo é definir uma variável do tipo Public Public eu vou chamar esta variável de.
Iniciar as buan variáveis do tipo boleano podem receber true ou false prosseguindo precisamos fazer a nossa macro sub eu vou chamar esta macro.
De cronômetro abre e fecha parênteses e pressiona enter na sequência dentro da macro precisamos colocar um sistema de.
Tratamento de erro on error go to err caso tudo ocorreu bem Exit sub Caso contrário vai para erro dois pontos e exibe uma msg.
Título da mensagem vai ser cronômetro e fecha as aspas duplas por enquanto deixem desativado o sistema de tratamento de erro próximo passo é definir as.
Variáveis da nossa macro din T1 asate vírgula T2 também as date na sequência precisamos verificar.
Se a variável iniciar é igual a true podem copiar a variável iniciar if se a variável iniciar for igual a true then e.
If Se entrou neste if nós vamos acionar a contagem no entanto primeiro nós precisamos capturar o tempo que consta na célula da planilha Excel no meu caso eu vou colocar o.
Cronômetro na célula F7 da Guia dados no entanto eu preciso referenciar o nome interno do VBA da Guia que é este planilha um fora dos.
Veja Também:
- Planilha de Simulação de Nota Fiscal Eletrônica (DANFE) em Excel 6.0
- Transformando slide em vídeo no Power Point
- Gerar Relatório de Membros e Configurar Cabeçalho na Planilha Excel Cadastro de Membro Completa
Parênteses e para capturar o tempo da
Célula nós vamos utilizar a variável T1 podem copiar a variável T1 T1 vai ser igual no meu caso a planilha 1 ponto Range abre e fecha parênteses e dentro.Dos parênteses abre e fecha aspas duplas e dentro das aspas duplas célula F7 fora dos parênteses ponto Val na sequência precisamos pegar este.
Tempo e somar mais um para continuar a contagem do cronômetro então agora nós vamos trabalhar com a variável t e a variável T2 vai ser igual a variável.
T1 mais VBA P time value abre e fecha parênteses e dentro dos parênteses abre e fecha aspas duplas e dentro das aspas duplas 0 dois pontos 0 Z dois pontos 01 ou seja.
Eu quero fazer a contagem de segundo em segundo somando mais um segundo já tenho o tempo agora eu preciso colocar o tempo de volta na célula da.
Planilha podem Copiar esta parte no meu caso planilha 1 célula f P Val vai ser igual a VBA Format e abre e fecha parênteses deixa eu colar um espaço e.
Subir um Pou para facilitar a visualização e dentro dos parênteses do Format vai a variável T2 podem copiar e colar vírgula e abre e fecha aspas duplas e.
Dentro das aspas duplas vai o formato de exibição eu quero no formato hora 2h para as Horas dois pontos mm para os minutos dois pontos SS para os.
Segundos próximo passo é colocar uma linha de código para voltar a execução da macro para o início definindo também o tempo de execução então agora nós vamos colocar o.
Comando
Aplication P One Time One Time espaço VBA P no para capturar a hora do momento mais VBA.Value abre e fecha parênteses e dentro dos parênteses nós vamos colocar um segundo podem Copiar esta parte fora dos parênteses vírgula e abre e fecha aspas duplas e dentro das aspas.
Duplas vai o nome da nossa macro podem copiar e colar com esta linha de código nós vamos Executar a nossa macro cronômetro de segundo em segundo feito a macro pessoal próximo.
Passo é acionar a macro na planilha Excel então acessem o Excel guia desenvolvedor inserir controles Active x botão de.
Comando redimensiona o botão de comando e clica com o botão direito do mouse sobre o objeto e vai em propriedades capton este vai ser o botão iniciar iniciar backcolor.
Seta paleta pode ser em azul a cor de preenchimento fecha as propriedades duplo clique no botão de comando e agora nós precisamos definir a variável iniciar como.
True então variável iniciar igual a true Lembrando que a variável iniciar é do tipo Public então eu posso utilizar em qualquer parte do meu projeto VBA na sequência precisamos acionar a.
Nossa macro que nós fizemos no módulo 1 então módulo 1 ponto E já apareceu o nome da macro cronômetro de volta na planilha agora nós vamos colocar um botão de comando.
Para parar o cronômetro pode em copiar este botão de comando coloca Onde você deseja e clica com o botão direito do mouse sobre o objeto.
Propriedades caption e este vai ser o botão parar backcolor seta paleta cor de preenchimento em vermelho fecha as propriedades e duplo.
Clique sobre o botão de comando e no botão parar nós vamos alterar a variável iniciar para false desta forma não vai entrar no IF deixa eu dar uma.
Ajustada para ficar mais organizado de volta no Excel guia desenvolvedor retira do modo design está um pouco desalinhado deixa eu ajustar isto aqui guia desenvolvedor.
Modo design ativa novamente a edição dos botão de comando fiz o ajuste guia desenvolvedor retira do modo design clicando no botão iniciar show de bola pessoal já está funcionando o nosso.
Cronômetro clicando no botão para a contagem no entanto agora tem um detalhe eu quero colocar uma condição dentro do cronômetro para parar quando o tempo.
Chegar em 12 segundos pode ser qualquer tempo eu vou colocar uma condição para parar em 12 segundos então guia desenvolvedor Visual Basic módulo 1 .
Nós vamos colocar um if antes da linha de códico application onetime para facilitar já podem copiar a referência a.
Célula da planilha if no meu caso planilha 1 Range F7 e agora eu vou alterar de ponto value para ponto Tex se for maior.
Igual e abre e fecha aspas duplas e dentro das aspas duplas eu colocar 0 para Horas dois pontos zer para os minutos dois pontos 12 segundos que é o tempo que eu quero parar o cronômetro.
Fora das aspas duplas then e para fechar o if end if Se entrou neste if eu vou alertar o usuário utilizando uma msg Box msg Box abre e fecha aspas duplas e dentro das.
Aspas duplas eu vou colocar seu tempo acabou ponto de exclamação fora das aspas duplas vírgula VB information vírgula e abre e fecha aspas.
Duplas título da mensagem eu vou colocar tempo se o tempo acabou eu vou sair da macro colocando Exit sub salva as alterações e vamos testar.
Vou zerar está zerado iniciar vamos ver quando chegar em 12 segundos precisa parar o cronômetro e exibir a msgbox show de bola pessoal Seu Tempo.
