none
Gerar números aleatórios RRS feed

  • Pergunta

  • Olá, 

    Estou precisando gerar uma sequência de números

        

    atualmente uso esse código para gerar no Excel, mas gostaria de usar o access como minha base de dodos. Se tiver como, eu agradeço. Obrigado 

    Private Sub CommandButton1_Click()

    Const strDestino As String = "A1:a20"
    Dim n As Long
    Dim r As Long
    Dim Col As Collection
    Randomize Timer

    n = Me.txt_inicial.Text
    r = Me.txt_final
      Set Col = New Collection

      On Error Resume Next
        Do
        n = Int(Rnd * Me.txt_final) + Me.txt_inicial
        Col.Add n, CStr(n)
        Loop Until Col.Count = Me.txt_final
         For n = 1 To Me.txt_final
            Range(strDestino).Cells(n) = Col(n)
            Next n
            On Error GoTo 0
    End Sub


    • Movido welington jr sábado, 15 de dezembro de 2018 18:38 forum mais especifico
    sábado, 15 de dezembro de 2018 12:16

Respostas

  • de uma olhada neste link

      Gerar numeros aleatórios


    sábado, 15 de dezembro de 2018 13:00
  • oi não sei se entendi bem mais tenta isso

    Link

    sexta-feira, 28 de dezembro de 2018 19:09
  • Boa tarde,

    Por falta de retorno essa thread está encerrada.

    Se necessário favor abrir uma nova thread.

    Atenciosamente,

    Filipe B de Castro

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    sexta-feira, 18 de janeiro de 2019 18:45
    Moderador

Todas as Respostas

  • de uma olhada neste link

      Gerar numeros aleatórios


    sábado, 15 de dezembro de 2018 13:00
  • oi não sei se entendi bem mais tenta isso

    Link

    sexta-feira, 28 de dezembro de 2018 19:09
  • Boa tarde,

    Por falta de retorno essa thread está encerrada.

    Se necessário favor abrir uma nova thread.

    Atenciosamente,

    Filipe B de Castro

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    sexta-feira, 18 de janeiro de 2019 18:45
    Moderador