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