Rastgele isim seçme...

[pisagor26]

Değerli arkadaşlar 24 kişiden oluşan bir öğrenci listesinden rastgele seçim yapabilen bir uygulamayı nasıl yapabiliriz...

 

[Mustafa MUTLU]

Bu kod rastgele 1-24 arası bir rakam seçer.
Örnek dosyanız olsa idi üzerinde çalışabilirdik.

Sub rastgele_21_Sayıuret()
Randomize Timer
Dim col As Collection, i As Long, sat As Long, deg
Set col = New Collection
For i = 1 To 24
col.Add i
Next
sat = Int(Rnd() * col.Count) + 1
MsgBox col(sat) & vbLf & "Numaralı Öğrenci", vbOKOnly + vbInformation
End Sub