none
rodar aleatório automaticamente RRS feed

  • Pergunta

  • Alguém manja como fazer uma macro que fique rodando o aleatório e ela parar automaticamente quando um determinado objetivo for atingido?

    É uma pesquisa que estou fazendo.

    A ideia é o seguinte: A macro fica ativando a formula de =aleatórioentre, portanto, digamos que uma ativação infinita até ser desligada automaticamente ou de forma brusca.

    Quando a soma/produtor e etc da série atingir um determinado valor, a macro se encerra automaticamente.

    Obrigado :D

    domingo, 22 de julho de 2018 14:57

Todas as Respostas

  • Olá Gabriel,

    É bastante simples fazer este tipo de rotina e existem muitas formas diferentes de fazer, bastando escolher algum tipo de laço de repetição que vai fazer a atualização da planilha até alcançar o objetivo.

    Por exemplo, imagine que você tem nas células A1 e B1 a fórmula =ALEATÓRIOENTRE(1;10) e na célula C1 a soma de A1 e B1 e quer que o laço rode até a celula resultar em 15. Um modelo de código poderia ser:

    Sub Main()
    
    Do Until Range("C1") = 15
    
    Application.Calculate
    
    Loop
    
    End Sub
    

    Adapte a sua necessidade.

    Abraços!


    Rafael Kamimura - http://excelmaniacos.com

    segunda-feira, 23 de julho de 2018 14:18