Excel, VBA, VB Örnek Programlar > Faydalı Diğer Excel Dosyaları

Sayısal loto-6/49

(1/1)

Orion1:
Merhaba.
6/49 sayısal loto.
Bol şanslar.
Dosya ektedir.:cool:


--- Kod: ---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
--- Kod sonu ---



[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

Bülent Öztürk:
Elinize sağlık Evren Bey.  :begendim :alkis

Orion1:
Teşekkür ederim.Bülent bey.  :saygilar

Puletin:
Evrenbey Tutturma garantisi veriyormusunuz.  :Heheh

Paylaşım için teşekkürler

Orion1:

--- Alıntı yapılan: Puletin - 15 Aralık 2010, 19:50:20 ---Evrenbey Tutturma garantisi veriyormusunuz.  :Heheh

Paylaşım için teşekkürler

--- Alıntı sonu ---
Maalesef böyle bir garantiveremiyorum.
Tamamen şansa kalmış. :kiki

Navigasyon

[0] Mesajlar