Fazendo um cronômetro no Excel

Já imaginou criar um cronômetro numa planilha do Excel? Utilizando comandos VBA é possível desenvolver  mais esta tarefa e tornar o uso do Excel mais divertido e customizado, ajudando você a se familiarizar com esta ferramenta facilitadora. Este software, mais uma vez, se mostra como um grande possuidor de infinitas capacidades de configuração e execução.

Realizar a criação de um simples cronômetro dentro do Excel não seria possível com o uso somente de funções, necessita-se, portanto, recorrer aos comandos VBA para esta ação. Além disso, com o auxílio de outras ferramentas como a colocação de imagens no arquivo, podem tornar o seu trabalho mais customizado e criativo. Vamos ensinar neste tutorial a efetuar esta criação, realizada através de botões que darão ordens de execução aos comandos dentro do documento.

1. Abra um documento Excel e disponhas as informações como segue na imagem abaixo.

Obs.: É necessário que coloque as informações nas células certas, pois, caso contrário, poderá afetar a execução do comando.

2. Agora criaremos o primeiro botão, responsável por dar partida e interrupção da contagem. Para isso, vá à aba Desenvolvedor e, na opção Inserir, selecione o ícone de botão de comando.

3. Crie o botão do tamanho que preferires e, na janela de atribuição da macro que surgirá, opte por Novo:

4. Na janela de comando, digite o seguinte:

Sub Botão1_Clique()

If Plan1.Buttons(1).Text = "Stop" Then

    If Range("j4").Value = "" Then

       Range("j4").Value = Time

       Range("l3").Select

       Selection.Copy

       Range("k4").Select

       ActiveSheet.Paste

       Range("k4").Formula = "=j4-i4"

    Else

       Range("j3").End(xlDown).Offset(1, 0).Value = Time

       Range("k3").End(xlDown).Select

       Selection.Copy

       Selection.Offset(1, 0).Select

       ActiveSheet.Paste

    End If

    Plan1.Buttons(1).Text = "Start"

Else

    If Range("i4").Value = "" Then

       Range("i4").Value = Time

    Else

       Range("i3").End(xlDown).Offset(1, 0).Value = Time

    End If

    Plan1.Buttons(1).Text = "Stop"

End If

End Sub

5. Fecha a edição e volte ao ícone criado, clicando com o botão direito do mouse sobre ele e atribuindo a macro.

6. Este botão já está pronto, porém, necessitamos de outro que será utilizado para resetar as contagens anteriores, limpando a planilha. Então, faça outro botão e crie uma macro com o seguinte comando, atribuindo-a ao mesmo.

Sub Botão2_Clique()

' resetar o relógio

   Range("i4", Range("i4").End(xlDown).End(xlToRight)).Select

   Selection.Clear

  End Sub

7. Dê um nome ao botão, como Reset, por exemplo. Agora que sua planilha está pronta, pode testá-la. Ao clicar no botão Start a contagem se iniciará e, para cessá-la, deve-se clicar no mesmo botão, agora com a nomenclatura Stop. Já, para limpar todos os resultados, clique Reset e a tabela ficará novamente em branco.

8. Caso o tempo final apareça trocado, basta personalizá-lo com o formato Hora, contido no quadro Númeroda aba Início.

9. Agora, estando pronto seu cronômetro, você pode adicionar colorações às células, colocar imagens, enfim, usar a criatividade a fim de fazer sua tabela mais bonita. Veja o resultado: