-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Rastgele isim seçme...
- Konbuyu başlatan pisagor26
- Başlangıç tarihi
- Katılım
- 24 Temmuz 2008
- Mesajlar
- 1,587
- Excel Vers. ve Dili
- Ofis 2013 TR 32 Bit
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
Ö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