none
Macro RRS feed

  • Pergunta

  • Boa tarde. Tenho um conjunto de 15 números no excel: Ex: células A1 a A15. Quero escolher aleatoriamente 9 números. Como desenvolvo esta macro?

    Obrigado

    ramaro

    sexta-feira, 6 de fevereiro de 2015 18:53

Todas as Respostas

  • Ramaro, 

    Segue exemplo para lhe ajudar com as devidas explicações. Veja que CellS(I,2), recebe um número que está entre a linha 1 e 15 da Coluna A (Index = Fórmula Índice / RandBetween = Fórmula AleatórioEntre)

    Após este processo verifica através do CountIf se este número inserido na coluna B, está duplicado. Caso não esteja ele será inserido na coluna B!!

    Sub BuscarAleatorio()

    ''Declaração das Variáveis
    Dim Aleat As Range
    Dim I As Integer

    ''Rotina de Repetição
    For I = 1 To 9
    NovoNumero:
    Cells(I, 2) = Application.WorksheetFunction.Index(Range("A1:A15"), Application.WorksheetFunction.RandBetween(1, 15), 1)
    Set Aleat = Range("B1:B9")
    If Application.WorksheetFunction.CountIf(Aleat, Cells(I, 2)) > 1 Then GoTo NovoNumero:
    Next I
    End Sub


    terça-feira, 3 de março de 2015 12:35
  • Ola, boa tarde ramaro.

    Na verdade não é necessário nenhuma macro. Você pode simplesmente utilizar a função ALEATÓRIOENTRE

    Considerando os números no intervalo A1:A15

    No intervalo C1:C9 insira =ALEATÓRIOENTRE($A$1;$A$15)


    quarta-feira, 18 de abril de 2018 17:14