Rastgele sayıları sıralama

[crafter]

Arkadaşlar merhaba,

Benim excelden bir ödevim var ve ödevde 20 rastgele sayı atayıp onları büyükten küçüğe sıralamam gerekiyor; ama rastgele sayılar her işlemde tekrar tekrar değiştiği için sıralama yapamıyorum, sıralama yapmak istediğimde sıralıyor fakat sonra tekrar değiştiği için sayılar pek bir anlamı olmuyor çünkü yine karışıyor. Bu sorunu nasıl çözebiliriz, yardımcı olursanız sevinirim, teşekkürler. Kolay gelsin herkese.

 

[Mahir64]

Arkadaşlar merhaba,

Benim excelden bir ödevim var ve ödevde 20 rastgele sayı atayıp onları büyükten küçüğe sıralamam gerekiyor; ama rastgele sayılar her işlemde tekrar tekrar değiştiği için sıralama yapamıyorum, sıralama yapmak istediğimde sıralıyor fakat sonra tekrar değiştiği için sayılar pek bir anlamı olmuyor çünkü yine karışıyor. Bu sorunu nasıl çözebiliriz, yardımcı olursanız sevinirim, teşekkürler. Kolay gelsin herkese.

Merhaba
Ödev olarak verilmiş bir konu araştırıp kendinizin yapması daha iyi olacaktır.

Fikir vermesi açısında site içinde excel dershanesi bölümüne bakabilirsiniz.
Sırala ile ilgili çalışmalar mevcut.

 

[Orion1]

Aşağıdaki kodlar işinizi görecektir.
A2 den itibaren 1 ile 1000 arasında sayıyı rastgele bulur ve küçükten büyüğe sıralar.Öncesine a sütununu olduğu gibi siler.
Başarılar.

Sub rastgele_sayi_59()
'coder : evrengizlen@hotmail.com
'date : 29.04.2011
Dim col As Collection, inds As Integer, i As Integer, sat As Integer
Randomize Timer
Sheets("Sayfa1").Select
Set col = New Collection
For i = 1 To 1000
    col.Add i
Next
Range("A2:A65536").ClearContents
Application.ScreenUpdating = False
sat = 2
Do While sat <= 21
    say = Int(Rnd() * col.Count) + 1
    Cells(sat, "A").Value = col(say)
    col.Remove say
    sat = sat + 1
Loop
Set col = Nothing
Range("A2:A" & sat - 1).Sort Range("A2")
Application.ScreenUpdating = True
End Sub

 

[Merhum İdris SERDAR]

Arkadaşlar merhaba,

Benim excelden bir ödevim var ve ödevde 20 rastgele sayı atayıp onları büyükten küçüğe sıralamam gerekiyor; ama rastgele sayılar her işlemde tekrar tekrar değiştiği için sıralama yapamıyorum, sıralama yapmak istediğimde sıralıyor fakat sonra tekrar değiştiği için sayılar pek bir anlamı olmuyor çünkü yine karışıyor. Bu sorunu nasıl çözebiliriz, yardımcı olursanız sevinirim, teşekkürler. Kolay gelsin herkese.

.

Örnek dosya ekte.

.

 

[crafter]

çok teşekkür ederim herkese yardımları için, sağ olun