Ir ao conteúdo
  • Cadastre-se

Posts recomendados

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?
Link para o comentário
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.

Link para o comentário
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.

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades 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

×
×
  • Criar novo...