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
-
Merhaba.
6/49 sayısal loto.
Bol şanslar.
Dosya ektedir.:cool:
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.]
-
Elinize sağlık Evren Bey. :begendim :alkis
-
Teşekkür ederim.Bülent bey. :saygilar
-
Evrenbey Tutturma garantisi veriyormusunuz. :Heheh
Paylaşım için teşekkürler
-
Evrenbey Tutturma garantisi veriyormusunuz. :Heheh
Paylaşım için teşekkürler
Maalesef böyle bir garantiveremiyorum.
Tamamen şansa kalmış. :kiki