Ir ao conteúdo
  • Cadastre-se
Ricardo Silva_724044

Macro VBA Excel

Recommended Posts

Gostaria de implementar na rotina abaixo, que tem inicio quando abre uma planilha, 2 instruções: uma para incluir um tempo determinado de espera para o próximo i e também queria que a subrotina fosse interrompida com um click do mouse.

 

Sub teste()
 
Range("a233").Select
 
For i = 1 To 30
 
  lin = Int((232 - 229 + 1) * Rnd + 229)
  col = Int((13 - 10 + 1) * Rnd + 10)
  Plan1.Cells(lin, col) = Int((3 - 1 + 1) * Rnd + 1)
 
' inserir comando para esperar aproximadamente 1 segundo para para o próximo i
 
Next i
End Sub
 
Alguém pode me ajudar?

Compartilhar este post


Link para o post
Compartilhar em outros sites

Ricardo,

 

Acredito que a rotina abaixo atenda sua 1º necessidade:

 

"' inserir comando para esperar aproximadamente 1 segundo para para o próximo i"

 

Este código para a macro por aproximadamente 1 segundos.

newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 1 ' defina aqui os segundos
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime

 

 

Sua 2º necessidade ficarei devendo ...

 

 

"também queria que a subrotina fosse interrompida com um click do mouse."

 

 

Sem mais.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Ricardo,

 

Acredito que a rotina abaixo atenda sua 1º necessidade:

 

"' inserir comando para esperar aproximadamente 1 segundo para para o próximo i"

 

Este código para a macro por aproximadamente 1 segundos.

newHour = Hour(Now())

newMinute = Minute(Now())

newSecond = Second(Now()) + 1 ' defina aqui os segundos

waitTime = TimeSerial(newHour, newMinute, newSecond)

Application.Wait waitTime

 

 

Sua 2º necessidade ficarei devendo ...

 

 

"também queria que a subrotina fosse interrompida com um click do mouse."

 

 

Sem mais.

Agradeço por sua colaboração; já me resolveu a metade do problema.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×