kodu komut düğmesinin tıklanma olayına yazdım ve üretilen 28 farklı sayıyı oluşan dizi ile irtibatlandırdığımda her satırı ders Excel dosyasına rastgele sıralamış oldu.

alt = 1
ust = 5
adet = 5

Dim ustP1 As Long, i As Long, j As Long

 

Dim aa() As Variant, temp As Variant

 

If alt > ust Then temp = alt: alt = ust - 1: ust = temp Else alt = alt - 1

 

ReDim temp(1 To ust - alt)

 

For i = ust - alt To 1 Step -1

 

 temp(i) = i

 

Next

 

ustP1 = UBound(temp) + 1

 

If adet > UBound(temp) Then adet = UBound(temp)

 

ReDim aa(1 To adet, 1 To 1)

 

For i = 1 To adet

 

 j = i + Int(Rnd * (ustP1 - i))

 

 aa(i, 1) = temp(j) + alt: temp(j) = temp(i)

 Cells(i, 1) = aa(i, 1)

Next i

şimdiki yeni problemim ise rastgele yerleştir eklentisinde form üzerine yerleştirdiğim liste kutusunda ders Excel dosyasında aynı sütüna yerleşen sınıfların listesini çıkardım.istiyorum ki liste kutusu boş olsun yani aynı sütünda bir sınıf bir defa yazsın.umarım sorumu açıklayabilmişimdir.teşekkür ederim.

Ek Dosyalar

rastgele yerleştir.rar(88.11 KB)