Planilha Excel VBA Shapes 16 cronometro exemplo
Este Macro do Aplicativo Microsoft Excel VBA(Visual Basic Application),
Saberexcel – cronometro inserido em um shapes e botão para parar
‘ =======’
Esse exemplo de planilha contendo macros que acionam um cronometro em um shapes (autoforma), com a opção de botão para parar o cronometro observe que inserimos no evento Deactivate da segunda planilha o macro que para o cronometro.
//===========’
Dim vTempoCronometro
Dim vCronometro As Double
Sub sbx_CRONOMETRO()
‘Saber1.Shapes(“sbxIMAGEM”).TextFrame.Characters.Text = vCronometro & ” sbx”
vTemp = vCronometro / 3600
Saber1.[E19].Value = “”
Saber1.Shapes(“sbxIMAGEM”).TextFrame.Characters.Text = Format(vTemp / 24, “hh:mm:ss”)
Saber1.[f16].Value = Format(vTemp / 24, “hh:mm:ss”)
vCronometro = vCronometro + 1
vTempoCronometro = Now + TimeValue(“00:00:1”)
Application.OnTime vTempoCronometro, “sbx_CRONOMETRO”
End Sub
//===========’
Sub sbx_DISPARAR()
vCronometro = 0
sbx_CRONOMETRO
‘n = 500
‘For i = 1 To n
‘ DoEvents
‘ For j = 1 To 100000
‘ ‘//==== seu código
‘ Next j
‘ Saber1.[B1] = i
‘Next i
‘On Error Resume Next
‘Application.OnTime vTempoCronometro, Procedure:=”sbx_CRONOMETRO”, Schedule:=False
End Sub
//===========
Sub sbx_PARAR_CRONOMETRO()
On Error Resume Next
Application.OnTime vTempoCronometro, Procedure:=”sbx_CRONOMETRO”, Schedule:=False
With Saber1
.[E19].Value = “O Aluno ” & _
.[f12] & “, da cidade de ” & _
.[f14] & “, demorou { ” & _
Format(.[f16], “hh:mm:ss”) & _
” } para realizar o exercício ”
End With
End Sub
‘//===========
‘Escola Saberexcel VBA Estudos® Treinamentos com Macros, Fórmulase Funções
Site….: http://www.saberexcel.com.br
MEMBROS: membros.saberexcel.com.br
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola SaberExcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções.
| Compre pelo PagSeguro | Compre pelo PayPal | |
 |
 |
|
| Material Didático: Curso Excel VBA Expert |
 |
 Baixe o exemplo de planilha contendo os macros acima: |
| Download: Planilha Excel VBA Shapes 16 cronometro exemplo |
| <<Download Link : Verifique também sua caixa de itens excluídos >> |
