vba olasılık hesaplama

[kaprero]

merhaba
aşağıdaki kod, 18 sayı içerisinden herhangi bir 9 rakam seçtiğimde bana
9 rakamını vermekte. benim istediğim ise, herhangi bir 9 rakam seçtiğimde 7 rakam versin.
kodu bu şekilde düzenleyebilir misiniz.

teşekkürler.

Sub Hesapla()
Adet = 18
Kolon = 1
Sıra = 1
Satır = 1
For s1 = 1 To Adet - 8
For s2 = s1 + 1 To Adet - 7
For s3 = s2 + 1 To Adet - 6
For s4 = s3 + 1 To Adet - 5
For s5 = s4 + 1 To Adet - 4
For s6 = s5 + 1 To Adet - 3
For s7 = s6 + 1 To Adet - 2
For s8 = s7 + 1 To Adet - 1
For s9 = s8 + 1 To Adet - 0



Cells(Satır, Kolon).Value = Sıra & "--) " & _
s1 & "-" & s2 & "-" & s3 & "-" & _
s4 & "-" & s5 & "-" & s6 & "-" & s7 & "-" & s8 & "-" & s9
Sıra = Sıra + 1
Satır = Satır + 1
If Satır > 60000 Then
Satır = 1
Kolon = Kolon + 1
End If
Next s9
Next s8
Next s7
Next s6
Next s5
Next s4
Next s3
Next s2
Next s1

End Sub

 

[PLİNT]

Merhaba
Şöyle olabilir;

Sub Hesapla()
Adet = 18
Kolon = 1
Sıra = 1
Satır = 1
For s1 = 1 To Adet - 6
For s2 = s1 + 1 To Adet - 5
For s3 = s2 + 1 To Adet - 4
For s4 = s3 + 1 To Adet - 3
For s5 = s4 + 1 To Adet - 2
For s6 = s5 + 1 To Adet - 1
For s7 = s6 + 1 To Adet - 0
Cells(Satır, Kolon).Value = Sıra & "--) " & _
s1 & "-" & s2 & "-" & s3 & "-" & _
s4 & "-" & s5 & "-" & s6 & "-" & s7
Sıra = Sıra + 1
Satır = Satır + 1
If Satır > 60000 Then
Satır = 1
Kolon = Kolon + 1
End If
Next s7
Next s6
Next s5
Next s4
Next s3
Next s2
Next s1
end sub

 

[kaprero]

ilginiz için teşekkür ederim. sanırım ben yanlış ifade ettim.
söyle ifade edeyim. sayısal loto da 6 da 5 garanti versiyonları vardır. satırlar da yine 9 sayı olmalı.