| Descricao: |
 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
|