Excel Gerar números aleatórios sem repetição Mega Sena Lotofacil lotomania loteria quina



Aprenda a gerar números aleatórios no Excel sem repetição na mesma linha. Serve para jogos de loterias como Mega Sena, Quina, Lotofácil, DuplaSena, TimeMania , Lotomania e outras necessidades.

Segue abaixo o código VB:

Sub GerarNúmerosAleatóriosSemRepetir()

‘Suponha que os nomes estão no intervalo B1:G10

Const nMínimo As Long = 1
Const nMáximo As Long = 12
Const strDestino As String = “B1:M1”

Dim n As Long
Dim r As Long
Dim col As Collection

Randomize Timer

Set col = New Collection
On Error Resume Next
Do
n = Int(Rnd * nMáximo) + nMínimo
col.Add n, CStr(n)
Loop Until col.Count = nMáximo
For n = 1 To nMáximo
Range(strDestino).Cells(n) = col(n)
Next n
On Error GoTo 0

Const nMínimo1 As Long = 1
Const nMáximo1 As Long = 12
Const strDestino1 As String = “B2:M2”

Dim n1 As Long
Dim r1 As Long
Dim col1 As Collection

Randomize Timer

Set col1 = New Collection
On Error Resume Next
Do
n1 = Int(Rnd * nMáximo1) + nMínimo1
col1.Add n1, CStr(n1)
Loop Until col1.Count = nMáximo1
For n1 = 1 To nMáximo1
Range(strDestino1).Cells(n1) = col1(n1)
Next n1
On Error GoTo 0

Const nMínimo3 As Long = 1
Const nMáximo3 As Long = 12
Const strDestino3 As String = “B3:M3”

Dim n3 As Long
Dim r3 As Long
Dim col3 As Collection

Randomize Timer

Set col3 = New Collection
On Error Resume Next
Do
n3 = Int(Rnd * nMáximo3) + nMínimo3
col3.Add n3, CStr(n3)
Loop Until col3.Count = nMáximo3
For n3 = 1 To nMáximo3
Range(strDestino3).Cells(n3) = col3(n3)
Next n3
On Error GoTo 0

End Sub

Você pode gostar...

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Facebook Auto Publish Powered By : XYZScripts.com
%d blogueiros gostam disto: