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
Aradığım cevabı burada buldum Mustafa Bey 🙂 Teşekkürler