|

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 cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

This site uses Akismet to reduce spam. Learn how your comment data is processed.