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

Sex, 21 de Janeiro de 2011 07:00 Expedito Marcondes
Imprimir


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

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