Saberexcel - site das macros

Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), contém contadores que faz um contagem pausada por milesimos de segundos, por uma Declaração Sleep(DLL) do Excel. Neste exemplo inserí dois contadores uma com a instrução Do..Until Loop e For...Next., com intuíto didático. Espero que o exemplo possa ajudá-lo. Fique com Deus, E_Marcondes

'Option Explicit
'API declaração suspende a operação por milésimo de segundos (Milliseconds)
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub contador_com_time_tarefa()
'contador com time para determinada tarefa
 Dim i, x
 [tarefas].ClearContents
 Do Until i = 10
    i = i + 1
    Range("A1") = i
    Sleep 1000
    If Range("A1").Value = "20" Then
        MsgBox "Hora de Fechar"
        Exit Sub
    End If
   
 Loop
 
 'poderia fazer isso somente em um contador Do Until,
 'mas dividi em dois contadores outro com a instrução For Next com intuito didático.
 'Fiquem com Deus. E_Marcondes
' SEGUNDO CONTADOR COM FOR NEXT....
 [A3].Select
 
  For x = 1 To 20
      x = x + 1 'tarefas pares
      [A3].Value = x
      ActiveCell.Offset(1, 0).Value = "Tarefa [ " & x & "ª.]"
      ActiveCell.Offset(1, 0).Select
      Sleep 1000
  Next x
  ActiveCell.Offset(2, 0).Value = " FINAL TAREFAS "
  MsgBox ("Tarefas concluídas com sucesso!!"), vbInformation, "Saberexcel - site das macros"
  [C1].Select
End Sub





Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com
os produtos didáticos SaberExcel




   Baixe o exemplo de planilha contendo o macro acima
Excel vba contador com pausa para tarefas (23.32 KB)