locked
Cronômetro RRS feed

  • Pergunta

  •    Alguém pode me ajudar, estou precisando de um projeto ou uma planilha para instituir um estuto de tempo.

       Se alguém tiver uma planilha com a função de cronômetro e puder compartilhar.

     

    Agradeço desde ja.

    Obrigado

     

    Rovilson Paulino

    quinta-feira, 10 de abril de 2008 15:28

Respostas

  • Rovilson,

    Vc pode usar os seguintes códigos:

     

    Code Snippet

    'Ativa a macro Cronometro ao abrir o arquivo

    Private Sub Workbook_Open()
    Cronometro
    End Sub

     

    'Atualiza a célula A1 da planilha ativa a cada segundo,

    'com base no relógio interno do computador

    Public dTime As Date
    Sub Cronometro()
    dTime = Now + TimeValue("00:00:01")
    Application.OnTime dTime, "Cronometro"
    Cells(1, 1).Value = Now
    End Sub

     

     

    [ ]s

     

    quinta-feira, 10 de abril de 2008 16:17

Todas as Respostas

  • Rovilson,

    Vc pode usar os seguintes códigos:

     

    Code Snippet

    'Ativa a macro Cronometro ao abrir o arquivo

    Private Sub Workbook_Open()
    Cronometro
    End Sub

     

    'Atualiza a célula A1 da planilha ativa a cada segundo,

    'com base no relógio interno do computador

    Public dTime As Date
    Sub Cronometro()
    dTime = Now + TimeValue("00:00:01")
    Application.OnTime dTime, "Cronometro"
    Cells(1, 1).Value = Now
    End Sub

     

     

    [ ]s

     

    quinta-feira, 10 de abril de 2008 16:17
  •    Muito Obrigado.

       Agradeço a ajuda.

     

    terça-feira, 15 de abril de 2008 00:39
  • Não há de quê.

    Por favor, não esqueça de marcar a resposta como definitiva para que o status do post seja concluído.

    [ ]s

    terça-feira, 15 de abril de 2008 11:10
  • Eu estou utilizando esta macro para um cronômetro, mas sempre que eu mudo de planilha a mesma também mostra o cronômetro.... Tem como fixar este cronômetro em uma planilha?

    quarta-feira, 29 de abril de 2009 14:20
  • Tem sim.
    Modifique a linha Cells(1, 1).Value = Now
    Para, por exemplo, Thisworkbook.Sheets(1).
    Cells(1, 1).Value = Now
    [ ]s

    Adilson Soledade - MOS
    sexta-feira, 1 de maio de 2009 01:25
  • Rapaz vc é bem desenrolado mas só faltou uma coisinha, como fazer ele pausar, zerar e marcar parciais?

    Se vc poder me ajude tá pois estou com essa macro mas nao tô conseguindo desenrolar:

    Public dTime As Date
      Public cTime As Date
      Sub Cronometro()
      dTime = Now + TimeValue("00:00:01")
      cTime = cTime + TimeValue("00:00:01")
      Application.OnTime dTime, "Cronometro"
      Cells(12, 4).Value = cTime
      On Error Resume Next
      Application.OnTime T, Procedure:="Update", Schedule:=False
      T = Now + TimeValue("00:00:01")
      Application.OnTime T, "Update"
      UserForm1.Caption = Format(Now, "hh:mm:ss")
      Call StartTimer
      End Sub
               

    Sub StopTimer()
                On Error Resume Next
                Application.OnTime T, Procedure:="Update", Schedule:=False
                End Sub
               

    Sub StartTimer()
                T = Now + TimeValue("00:00:01")
                Application.OnTime T, "Update"
                End Sub
               

    Sub Update()
                UserForm1.Caption = Format(cTime, "hh:mm:ss")
                Call StartTimer
                End Sub
    Vê se tu desenrola ela tem Commandbutton, userform e um label.

    sábado, 8 de janeiro de 2011 16:06
  • Tente essa planilha aqui

    http://www.bokomoko.com.br/index.php?option=com_remository&Itemid=8&func=fileinfo&id=54

     


    João Eurico Consultor Manguetown - Brazil
    sábado, 8 de janeiro de 2011 21:45