Excel Vba Forum - Excelce.Net

Excel, VBA, VB Örnek Programlar => Faydalı Diğer Excel Dosyaları => Konuyu başlatan: Orion1 - 11 Aralık 2010, 13:30:16

Başlık: Sayısal loto-6/49
Gönderen: Orion1 - 11 Aralık 2010, 13:30:16
Merhaba.
6/49 sayısal loto.
Bol şanslar.
Dosya ektedir.:cool:

Kod: [Seç]
Sub sayisal_loto_59()
'coder evrengizlen@hotmail.com
Dim col As Collection, s As Integer, i As Integer
Randomize Timer
Set col = New Collection
For i = 1 To 49
    col.Add i
Next
For i = 1 To 6
    s = Int(Rnd() * col.Count) + 1
    Cells(i, "A").Value = col(s)
    col.Remove (s)
Next
Range("A1:A6").Sort Range("A1")
End Sub

(http://img143.imageshack.us/img143/3323/sayisal.png)

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]
Başlık: Ynt: Sayısal loto-6/49
Gönderen: Bülent Öztürk - 11 Aralık 2010, 13:43:03
Elinize sağlık Evren Bey.  :begendim :alkis
Başlık: Ynt: Sayısal loto-6/49
Gönderen: Orion1 - 11 Aralık 2010, 15:27:08
Teşekkür ederim.Bülent bey.  :saygilar
Başlık: Ynt: Sayısal loto-6/49
Gönderen: Puletin - 15 Aralık 2010, 19:50:20
Evrenbey Tutturma garantisi veriyormusunuz.  :Heheh

Paylaşım için teşekkürler
Başlık: Ynt: Sayısal loto-6/49
Gönderen: Orion1 - 16 Aralık 2010, 08:02:02
Evrenbey Tutturma garantisi veriyormusunuz.  :Heheh

Paylaşım için teşekkürler
Maalesef böyle bir garantiveremiyorum.
Tamamen şansa kalmış. :kiki