Dizi ve küçükten büyüğe,büyükten küçüğe sıralama?

[erayyynn]

Bir dizideki rastgele 100 rakamı(1-1000)arasında küçükten büyüğe ve büyükten küçüğe sıralamak istiyorum.Dizi olayını sanırım yapabilirim ama dizilerde büyükten küçüğe ve küçükten büyüğe nasıl sıralayacağım bilmiyorum.

Yardım ederseniz sevinirim

 

[Vedat Özer]

Merhaba,
Veri/ a/z Sıralayabilirsiniz. Dilediğiniz Gibi

 

[erayyynn]

Tam olarak ne yapacağımı anlamadım :S
Yeni öğreniyorum.
Biraz daha açar mısınız ?

 

[Orion1]

Bir dizideki rastgele 100 rakamı(1-1000)arasında küçükten büyüğe ve büyükten küçüğe sıralamak istiyorum.Dizi olayını sanırım yapabilirim ama dizilerde büyükten küçüğe ve küçükten büyüğe nasıl sıralayacağım bilmiyorum.

Yardım ederseniz sevinirim

Option Base 1
Sub sirala()
Dim col As Collection, i As Integer, myarr(100), deg As Integer
Randomize Timer
Set col = New Collection
For i = 1 To 1000
    col.Add i
Next
For i = 1 To 100
    deg = Int(Rnd() * 1000) + 1
    myarr(i) = deg
Next
For i = 1 To 99
    For j = i + 1 To 100
        If myarr(i) > myarr(j) Then
            x = myarr(i)
            myarr(i) = myarr(j)
            myarr(j) = x
        End If
    Next j
Next i
Range("A1").Resize(100, 1) = Application.Transpose(myarr)
End Sub

 

[erayyynn]

Çok teşekkürler
Sadece biraz yardım istemiştim ama tamamen yazmışsınız; çok makbule geçti

 

[Orion1]

Çok teşekkürler
Sadece biraz yardım istemiştim ama tamamen yazmışsınız; çok makbule geçti

Rica ederim.
İyi çalışmalar.
küçük sıramak için > sorgu operatörü yerine < kullanınız.