Estou trabalhando em uma planilha em que o usuário tem que digitar um dado texto em uma célula em um certo tempo. Quero colocar um contador regressivo lado, para ele ir verificando quanto tempo ainda falta. Porém, quando eu começo a digitar na célula, a função do cronômetro para de funcionar (para de contar), e volta somente após eu dar Enter. Sou novo em VBA, talvez seja alguma configuração, ou onde estou rodando as subrotinas, e eu não saiba ainda.
As rotinas do contador regressivo são estas:
Private Sub Iniciar_crono()
starttimer
End Sub
Sub starttimer()
Application.OnTime Now + TimeValue("00:00:01"), "nexttick"
End Sub
Sub nexttick()
If Plan3.Range("E3") = 0 Then
Exit Sub
End If
Plan3.Range("E3").Value = Plan3.Range("E3").Value - TimeValue("00:00:01")
If Plan3.Range("E3").Value <= TimeValue("00:00:10") Then
Plan2.Shapes("TextBox 1").Fill.ForeColor.RGB = RGB(255, 0, 0)
Else
Plan2.Shapes("TextBox 1").Fill.ForeColor.RGB = RGB(255, 255, 255)
End If
starttimer
End Sub
Private Sub Parar_crono()
stoptimer
End Sub
Sub stoptimer()
On Error Resume Next
Application.OnTime Now + TimeValue("00:00:01"), "nexttick", , False
End Sub
Para orientação: - Um botão para iniciar o contador chama a Iniciar_crono() - Um botão para pará-lo chama a Parar_crono() - É tudo hoje rodado no Módulo 1