Usuário com melhor resposta
Gerar números aleatórios

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
Respostas
-
- Editado Titodj7 sábado, 15 de dezembro de 2018 13:00
- Marcado como Resposta Filipe B CastroModerator sexta-feira, 18 de janeiro de 2019 18:45
-
oi não sei se entendi bem mais tenta isso
- Marcado como Resposta Filipe B CastroModerator sexta-feira, 18 de janeiro de 2019 18:45
-
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.
- Marcado como Resposta Filipe B CastroModerator sexta-feira, 18 de janeiro de 2019 18:45
Todas as Respostas
-
- Editado Titodj7 sábado, 15 de dezembro de 2018 13:00
- Marcado como Resposta Filipe B CastroModerator sexta-feira, 18 de janeiro de 2019 18:45
-
oi não sei se entendi bem mais tenta isso
- Marcado como Resposta Filipe B CastroModerator sexta-feira, 18 de janeiro de 2019 18:45
-
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.
- Marcado como Resposta Filipe B CastroModerator sexta-feira, 18 de janeiro de 2019 18:45