Home Excel - Dicas Microsoft Excel VBA Excel VBA - Contadores Excel planiha vba contador insere contador com pausa tempo execução loop

Excel planiha vba contador insere contador com pausa tempo execução loop

E-mail Imprimir PDF


Saberexcel - site das macros

Esta macro do Aplicativo Microsoft Excel VBA (Visual Basic Application) , irá inserir uma iautonumeração na folha de planilha e auxiliado no código por contador ( Variável ) com pausa de tempo no loop (Laço) e rolando a tela, isso deverá acontecer na coluna(A) até a linha 100, depois,  vai passar para a Coluna(B) e inserir até o número 200 e encerrar a operação. simples.

Duvida,
Prezado Senhor Marcondes,
Preciso urgentemente de uma macro que role a tela pela coluna(A) inserindo uma autonumeração, até o número cem, porém ao concluir, deverá  R - Silvia,  você poderá inserir o tempo desejado, isto é regular a velocidade no próprio código,  mais lento, mais rápido, do jeito que você desejar.
     Espero que seja isso que esteja precisando... Fique com Deus, Boa Sorte.


Essa macro vai pausar o tempo do loop
Sub Tempo(SbTempo)
Dim VelhoTempo As Variant
If SbTempo < 0.01 Or SbTempo > 300 Then SbTempo = 1
   VelhoTempo = Timer
Do
   DoEvents
Loop Until Timer - VelhoTempo >= SbTempo
End Sub

'Esta é a macro do excel vba que vai rolar a tela e inserir a autonumeração na velocidade que quiser.
Sub rola_tela()
Dim contador, contador2 As Integer
contador = 1
contador2 = 101
limpar
[A1].Select

'primeiro loop na coluna(A)
For Each rolatela In Range("A1:A100")
    rolatela.Value = contador
    ActiveCell.Offset(1, 0).Select
    contador = contador + 1
    Tempo 0.5
Next rolatela
[B1].Select

'segundo loop na coluna(B)
For Each rolatela In Range("B1:B100")
    rolatela.Value = contador2
    ActiveCell.Offset(1, 0).Select
    contador2 = contador2 + 1
    Tempo 0.5
Next rolatela

End Sub

Sub limpar()
[A1:B200].ClearContents
End Sub


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



  Baixe o exemplo de planilha com os procedimentos acima
Excel planilha vba contador rola tela inserindo autonum

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

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_counterHoje61
mod_vvisit_counterOntem5104
mod_vvisit_counterEsta Semana29825
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês43554
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10466383
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