Excel Rastgele veri Çekme

[dmyksl]

Arkadaşlar bir sınav için excelde rastgele veri çekmek istiyorum. Şöyleki
17 sınıftan 500 öğrencilik bir toplu listem var bunları rastgele 40 arlı gruplar şeklinde 17 salona ayıracam fikir verebilirmisiniz tşk...

 

[Baggwell]

Sadece fikir olarak sunuyorum,

işinizi görür mü

 

[Kadir Er]

Baggwell'ın güzel bir çözümüne bir kaç ilave bilgi vermek isterim. Yaptığı çalışma 1. Sınıf için sadece 1 ile 40. öğrenci (dahil) bir dağıtım yapmaktadır. Sanırım istenen 500 öğrenci içinden bir dağılım yapılması olacaktır. Sadece bir tahmin benimkisi.
Aynı yaptığını direkt 1-500 kadar yapıp rastgele formülünü yazsak daha iyi olmaz mı? Örnek ektedir. Bütün işlemler bittikten sonra sayfanın tamamını kopyalayıp başka bir sayfaya mouse sağ tuş Özel Yapıştır-Değerler olarak yapıştırırsanız oluşturduğunuz şablon bir daha değişmeyecektir. Aksi takdirde her hücreye veri girdiğinizde tüm veriler yeniden listelenecek ve eski haline ulaşmanız imkansız olacaktır.

 

[dmyksl]

Baggwell'ın güzel bir çözümüne bir kaç ilave bilgi vermek isterim. Yaptığı çalışma 1. Sınıf için sadece 1 ile 40. öğrenci (dahil) bir dağıtım yapmaktadır. Sanırım istenen 500 öğrenci içinden bir dağılım yapılması olacaktır. Sadece bir tahmin benimkisi.
Aynı yaptığını direkt 1-500 kadar yapıp rastgele formülünü yazsak daha iyi olmaz mı? Örnek ektedir. Bütün işlemler bittikten sonra sayfanın tamamını kopyalayıp başka bir sayfaya mouse sağ tuş Özel Yapıştır-Değerler olarak yapıştırırsanız oluşturduğunuz şablon bir daha değişmeyecektir. Aksi takdirde her hücreye veri girdiğinizde tüm veriler yeniden listelenecek ve eski haline ulaşmanız imkansız olacaktır.

hocam teşekkürler... yalnız rastgele değer atarken aynı değeri birden fazla atmış bunu nasıl engelleriz acaba?

 

[ÖmerBey]

Aşağıdaki makro kodunu deneyiniz.

Sub KOD()
Range("D2:AZ65500").ClearContents
grup = Application.InputBox("Gruplar kaçar kişilik olsun?", Type:=1)
If grup = False Then Exit Sub
sat = 2
süt = 4
sınır = grup + sat
son = Cells(Rows.Count, 1).End(3).Row
dz = Range("A2:B" & son)
Randomize

For x = UBound(dz, 1) To 1 Step -1

sayi = Int((x * Rnd) + 1)

hcr = dz(sayi, 1)
hcr1 = dz(sayi, 2)
dz(sayi, 1) = dz(x, 1)
dz(sayi, 2) = dz(x, 2)
dz(x, 1) = hcr
dz(x, 2) = hcr1
Next
For a = LBound(dz) To UBound(dz)
    Cells(sat, süt) = sat - 1
    Cells(sat, süt + 1) = dz(a, 1)
    Cells(sat, süt + 2) = dz(a, 2)
    sat = sat + 1
    If sat = sınır Then sat = 2: süt = süt + 4
Next
End Sub