Como criar cronômetro em planilha do Excel?
Se houver um cronômetro em sua planilha, você saberá a hora de terminar um trabalho. Como você pode criar um cronômetro em uma planilha com um botão Iniciar, Parar e Redefinir conforme mostrado a seguir? Se você clicar no botão Iniciar, ele iniciará a hora; se você clicar no botão Parar, irá parar a hora e o botão Reiniciar pode ajudá-lo a reiniciar a hora. Neste artigo, vou falar sobre como criar um cronômetro simples e prático no Excel.
Crie um cronômetro com três botões usando o código VBA
Crie um cronômetro com três botões usando o código VBA
Para criar um cronômetro com três botões, Iniciar, Parar e Reiniciar, siga as etapas a seguir, uma a uma.
Em primeiro lugar, insira três botões de comando.
1. Clique Developer > inserção > Botão de comando, veja a captura de tela:
2. Em seguida, arraste o mouse para desenhar um botão, após inserir o botão, você pode alterar a legenda do botão, por favor clique Developer > Propriedades, Na Propriedades caixa de diálogo, insira a nova legenda “Início”Para este botão na caixa de texto ao lado do Subtítulo, veja as capturas de tela:
3. Repita as duas etapas acima para inserir outros dois botões e legendá-los como “Dê um basta"E"Limpar”, Veja a imagem:
4. Após inserir os botões, você deve sair do modo de design clicando em Developer > Modo de design.
Em segundo lugar, crie um código VBA.
5. E então, clique com o botão direito na guia da planilha atual e escolha Ver código, no estalou para fora Microsoft Visual Basic para Aplicações janela, copie e cole o seguinte código no Código da Folha:
Código VBA: Criar cronômetro:
Public StopIt As Boolean
Public ResetIt As Boolean
Public LastTime
Private Sub CommandButton1_Click()
Dim StartTime, FinishTime, TotalTime, PauseTime
StopIt = False
ResetIt = False
If Range("C2") = 0 Then
StartTime = Timer
PauseTime = 0
LastTime = 0
Else
StartTime = 0
PauseTime = Timer
End If
StartIt:
DoEvents
If StopIt = True Then
LastTime = TotalTime
Exit Sub
Else
FinishTime = Timer
TotalTime = FinishTime - StartTime + LastTime - PauseTime
TTime = TotalTime * 100
HM = TTime Mod 100
TTime = TTime \ 100
hh = TTime \ 3600
TTime = TTime Mod 3600
MM = TTime \ 60
SS = TTime Mod 60
Range("C2").Value = Format(hh, "00") & ":" & Format(MM, "00") & ":" & Format(SS, "00") & "." & Format(HM, "00")
If ResetIt = True Then
Range("C2") = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
LastTime = 0
PauseTime = 0
End
End If
GoTo StartIt
End If
End Sub
Private Sub CommandButton2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
StopIt = True
End Sub
Private Sub CommandButton3_Click()
Range("C2").Value = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
LastTime = 0
ResetIt = True
End Sub
Note: No código acima, C2 é a célula onde o tempo do cronômetro será inserido, e o BotãoComando1, BotãoComando2, BotãoComando3 são os nomes dos botões, você pode ver o nome exato do botão no nome Box, veja a captura de tela:
Em terceiro lugar, formate a célula de tempo do cronômetro.
6. Então você deve formatar a célula de tempo como Texto formato, e você pode alterar o tamanho da célula, fonte, cor da fonte, plano de fundo, etc. conforme necessário, consulte a captura de tela:
7. Depois de terminar as etapas acima, a partir de agora, quando você clicar Início botão, o tempo começará agora, e clique Dê um basta botão, vai parar o tempo, o Limpar botão irá zerar o tempo, veja a captura de tela:
Demonstração: Crie um cronômetro com três botões usando o código VBA
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!