|

VBA ile Rasgele Sayı Üretmek(Loto Programı)

Birçok kişi kendi loto programını yapmak ister. Forumlarda bu konuyla ilgili olarak oldukça fazla örnek yer almaktadır. Bir örnekte ben eklemek ve sizlere anlatmak istedim.

Aşağıda yer alan kod, 1 ile 49 arasında rasgele bir sayı üretir ve ürettiği sayıları, kontrol değişkeni içine atar. Kontrol değişkeni daha önce tekrarlanıp tekrarlanmadığını kontrol eder ve bu sayede 6 farklı rasgele sayı üretilmiş olur. Üretilen sayılar, aşağıdaki kod aracılığı ile A1 ile A6 aralığına yazılır.

Faydalı olması dileğiyle…

    Dim dizi As Variant
    Dim i As Long, rasgele As Long, kontrol As Long
     dizi = Evaluate("ROW(1:49)")
    With Range("A1:A6")
        For i = 1 To .Cells.Count
            rasgele = Int(Rnd() * UBound(dizi, 1)) + 1
            kontrol = dizi(i, 1)
            dizi(i, 1) = dizi(rasgele, 1)
            dizi(rasgele, 1) = kontrol
        Next i
        .Value = dizi
    End With

 loto programı

Similar Posts

One Comment

  1. Aradığım cevabı burada buldum Mustafa Bey 🙂 Teşekkürler

Bir yanıt yazın

E-posta adresiniz yayınlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

Bu site, istenmeyenleri azaltmak için Akismet kullanıyor. Yorum verilerinizin nasıl işlendiği hakkında daha fazla bilgi edinin.