- Katılım
- 6 Ekim 2010
- Mesajlar
- 49
- Excel Vers. ve Dili
- 2003 tr
- Altın Üyelik Bitiş Tarihi
- 07.12.2023
herkese iyi forumlar dilerim!
eğer yanlış yere konu açtıysam kusura bakmayın ilk konu açışım.Geçtiğimiz günlerde aşağıdaki kodu buldum yanılmıyosam zeki beyindi makro ile sayısal loto 1-49'un 13 milyon olasılığını yazdırıyor,sizlerden ricam 1-80 arası 10 lu olarak olasılıkları yazdırabilirmiyiz?buda on numara için olucak şimdiden yardımlarınız için çok teşekkür ederim..
eğer yanlış yere konu açtıysam kusura bakmayın ilk konu açışım.Geçtiğimiz günlerde aşağıdaki kodu buldum yanılmıyosam zeki beyindi makro ile sayısal loto 1-49'un 13 milyon olasılığını yazdırıyor,sizlerden ricam 1-80 arası 10 lu olarak olasılıkları yazdırabilirmiyiz?buda on numara için olucak şimdiden yardımlarınız için çok teşekkür ederim..
Sub Hesapla()
Adet = 49
Kolon = 1
Sıra = 1
Satır = 1
For s1 = 1 To Adet - 5
For s2 = s1 + 1 To Adet - 4
For s3 = s2 + 1 To Adet - 3
For s4 = s3 + 1 To Adet - 2
For s5 = s4 + 1 To Adet - 1
For s6 = s5 + 1 To Adet - 0
Cells(Satır, Kolon).Value = Sıra & "--) " & _
s1 & "-" & s2 & "-" & s3 & "-" & _
s4 & "-" & s5 & "-" & s6
Sıra = Sıra + 1
Satır = Satır + 1
If Satır > 60000 Then
Satır = 1
Kolon = Kolon + 1
End If
Next s6
Next s5
Next s4
Next s3
Next s2
Next s1
Mesaj = "HESAPLAMA İŞLEMİ TAMAMDIR "
End Sub