Boa noite!!
Exemplo...
Fonte: http://www.vbaexpress.com/kb/getarticle.php?kb_id=478
faça o downLoado do arquivo pelo link
Planilha 1

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 
Public Status As Boolean 
 
Private Sub cmdStart_Click() 
    Status = True 
    Dim WarningTime As Integer 
    Dim Period As Double 
    Dim MyTime As Double 
     
    With Sheets("Main") 
        If (.Cells(5, 1) = "") Then 
            WarningTime = .Cells(5, 4) 
        Else 
            WarningTime = .Cells(5, 1) 
        End If 
         
        If (.Cells(8, 1) = "") Then 
            Period = .Cells(8, 4) 
        Else 
            Period = .Cells(8, 1) 
        End If 
    End With 
     
    If (Period < 0.01) Then Period = 0.01 
     
    With Sheets("Counter").Cells(2, 1) 
        .FormatConditions.Delete 
        .FormatConditions.Add xlCellValue, xlLessEqual, WarningTime 
        With .FormatConditions(1).Font 
            .Bold = True 
            .ColorIndex = 3 
        End With 
        .NumberFormat = Choose(Log(Period) / Log(10) + 3, "0.00", "0.0", "0") 
         
        .Value = Sheets("Main").Cells(2, 1).Value + Period 
        Sheets("Counter").Activate 
        While (.Value > Period And Status) 
            .Value = .Value - Period 
            MyTime = .Value 
            For i = 1 To 100 * Period 
                Sleep 10 
                MyTime = MyTime - 0.01 
                If (MyTime <= 0) Then Exit For 
                DoEvents 
            Next i 
        Wend 
        If (.Value <= Period) Then .Value = "Time Up!" 
    End With 
End Sub 
 
Private Sub Worksheet_Change(ByVal Target As Range) 
    If (Target.Row = 2 And Target.Column = 1) Then 
        Cells(5, 1).Value = Cells(5, 4).Value 
    End If 
End Sub 

Planilha 2

Private Sub cmdStop_Click() 
    Sheets("Counter").Cells(2, 1).FormatConditions.Delete 
    Sheets("Main").Status = False 
    Sheets("Main").Activate 
End Sub 

Veja também
http://www.mrexcel.com/archive/VBA/2357.html
http://www.ozgrid.com/forum/showthread.php?t=80413
Att

Bom dia Alexandre,
Obrigado pelos links.
Este cronômetro que você me enviou é regressivo e eu preciso de um progressivo.
Ao acionar o botão Ínicio ele começa do zero e segue em progressão. Ele tem que marcar o tempo total da corrida de todos os participantes.

Obrigado
Marcos

Bom dia!!

Veja isso..

http://www.mrexcel.com/forum/showthread ... into-excel

http://www.cpearson.com/excel/download.htm
http://www.j-walk.com/ss/excel/files/general.htm

Att

Boa tarde Alexandre, ainda não é isto.

Obrigado
Marcos

Boa noite!!

Como vai sua postagem em:
http://www.excelforum.com/excel-program ... hrono.html

Oi Alexandre, boa tarde.
Está difícil achar este cronômetro. Estou precisando para o final do mês para um evento que farei. Já vasculhei a net inteira, mas não encontro nada.
Estou no aguardo.
Obrigado e um abraço

Boa noite marcorrer

Veja se este exemplo pode te ajudar:

Um abraço.

Bom dia Patropi, obrigado.
Ainda não é o que estou precisando.
Eu sou técnico de atletismo e faço muitos testes com atletas. Eu sempre uso um cronometro (normal, relógio cronometro) e depois passo os tempos para a planilha e eu queria usar o excel para fazer isto porque fica mais fácil para analisar, na hora, o que o atleta fez, ou está fazendo.
Eu preciso de um cronometro que comece em 00:00:00,0 e ao clicar em chegadas ele me dê as parciais de cada atleta.
Obrigado, fico no aguardo que alguém possa me ajudar.
Marcos

Veja no anexo se lhe auxilia. O cronometro "avança" a cada segundo; baseado no "relogio" do sistema . A marcação do tempo individual está tb a cd segundo; nas colunas y e z tem uma possibilidade de utilizar o milesimo para tempo revisado.

Boa tarde Reinaldo, você chegou muito perto, é isto mesmo, mas preciso dos centésimos de segundo também, pois estes podem definir uma vitória.
Vc colocou que nas colunas y e z tem esta possibilidade, mas não entendi, aqui não alterou nada.
Tem como fazer com os centésimos diretamente naquele arquivo que enviei?
Obrigado

Veja no anexo se atende. No arquivo sem sufixo, corrigi o que havia dito no post anterior, e não estava funcionando .
No arquivo com sufixo (m), alterei e na coluna D mostra o tempo com milesimo.
Não alterei o "relógio"(ainda,preciso avaliar a evolução do milesimo, pois num exemplo que fiz ficou muito lento ).

Bom dia Reinaldo,
Perfeito, é isto mesmo que eu preciso. Também achei um pouco lento, pois testei com o meu cronômetro manual e dá uma pequena diferença que, se a corrida demorar muito poderá ser uma diferença significante.
Se não for pedir muito para você avaliar esta evolução dos milésimos eu agradeço, pois não sei nada de VBA então não posso nem dizer que esta parte eu faço!
Caso contrário me avise que coloco como resolvido.
Muito obrigado

Bem, do jeito que está a marcação em milesimo acompanha a evolução do relogio interno do computador.Um pequeno delay no inicio é compreensivel, pois inicia "pegando" a hora do sistema e faz a diferença para evoluir os segundos; porem não deveria ser cumulativa. Não tenho cronometro manual, então se puder me envie alguns exemplos das medidas, e o procedimento utilizado(como é o clique no manual e no excel).

Boa tarde Reinaldo, testei novamente por mais tempo e posso concluir que a diferença não será sigiificativa, então só tenho a agradecer e dizer que esta planilha com o cronômetro me será muito útil.
Muito obrigado mesmo e a todos que de uma certa forma também colaboraram.
Vou clicar como resolvido.
Um abraço