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