Gönderen Konu: Sayısal loto-6/49  (Okunma sayısı 6244 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı Orion1

  • Excelce Teğmen
  • ****
  • İleti: 351
  • Puan +10/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Evren Gizlen
Sayısal loto-6/49
« : 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



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

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1319
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: Office2013/2016
Ynt: Sayısal loto-6/49
« Yanıtla #1 : 11 Aralık 2010, 13:43:03 »
Elinize sağlık Evren Bey.  :begendim :alkis
=EĞER(EYOKSA("Google Arama");"Belki_Cevap_Burada";"")

Çevrimdışı Orion1

  • Excelce Teğmen
  • ****
  • İleti: 351
  • Puan +10/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Evren Gizlen
Ynt: Sayısal loto-6/49
« Yanıtla #2 : 11 Aralık 2010, 15:27:08 »
Teşekkür ederim.Bülent bey.  :saygilar

Çevrimdışı Puletin

  • Excelce Onbaşı
  • **
  • İleti: 29
  • Puan +1/-0
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Ferruh
  • İl / İlçe: EDİRNE
Ynt: Sayısal loto-6/49
« Yanıtla #3 : 15 Aralık 2010, 19:50:20 »
Evrenbey Tutturma garantisi veriyormusunuz.  :Heheh

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

Çevrimdışı Orion1

  • Excelce Teğmen
  • ****
  • İleti: 351
  • Puan +10/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Evren Gizlen
Ynt: Sayısal loto-6/49
« Yanıtla #4 : 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