rastgele sayı üretme

[forum34uyelik]

Merhaba arkadaşlar, rastgele sayı üretirken istenilen kriterleri, örnek dosyanın içine yazdım, ilgilenirseniz çok sevinirim.

 

[Murat OSMA]

Şu kodları deneyebilirsiniz;

Sub Rasgele_Karıştır()
    Dim i As Integer, a As Integer
    Dim Hücre As Range
    Dim Dizi, Sıra
    Set Hücre = Range("A1:A25")
    Dizi = Hücre.Value
    Randomize
    For i = 1 To UBound(Dizi, 1)
        a = Int(Rnd() * UBound(Dizi) + 1)
        Sıra = Dizi(i, 1)
        Dizi(i, 1) = Dizi(a, 1)
        Dizi(a, 1) = Sıra
    Next i
    Hücre.Value = Dizi
    Sıra = Empty: i = Empty: a = Empty
    Set Hücre = Nothing: Erase Dizi
End Sub

 

[forum34uyelik]

Şu kodları deneyebilirsiniz;

Sub Rasgele_Karıştır()
    Dim i As Integer, a As Integer
    Dim Hücre As Range
    Dim Dizi, Sıra
    Set Hücre = Range("A1:A25")
    Dizi = Hücre.Value
    Randomize
    For i = 1 To UBound(Dizi, 1)
        a = Int(Rnd() * UBound(Dizi) + 1)
        Sıra = Dizi(i, 1)
        Dizi(i, 1) = Dizi(a, 1)
        Dizi(a, 1) = Sıra
    Next i
    Hücre.Value = Dizi
    Sıra = Empty: i = Empty: a = Empty
    Set Hücre = Nothing: Erase Dizi
End Sub

İlginiz için tşk ederim fakat ben yapamadım sanırım,

rica etsem örnek dosya içinde bu değişikliği yapıp gönderebilir misiniz,

şimdiden tşk.

 

[Murat OSMA]

Buyurun dosyanızı ekliyorum.

 

[forum34uyelik]

Buyurun dosyanızı ekliyorum.

Yardımlarınız için çok teşekkür ederim.

saygılar...

 

[Murat OSMA]

Rica ederim, iyi günler.