Home Excel - Dicas Microsoft Excel VBA Excel VBA - Contadores Excel planilha vba contador insere contador com pausa

Excel planilha vba contador insere contador com pausa

E-mail Imprimir PDF

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)

Última atualização em Qua, 10 de Agosto de 2011 08:23  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje372
mod_vvisit_counterOntem5154
mod_vvisit_counterEsta Semana25032
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês38761
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10461590
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

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


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA