rastgele 10 kayıt almak

[aguney]

Ekte verdiğim liste yaklaşık 100000 veri içermekte. Bu listeden 10 adet kaydı rasgele almam gerekiyor, ama her bir kullanıcı için. Kısaca kullanıcı başına 10 adet kodu başka bir yere yazabilmem gerekiyor. faklı foksiyonla denedim ama olmadı ya tek tek yapmam gerekecek yada başka bir yöntem bilen varmı acaba.

 

[apocalyt]

aşağıdaki kodu bir modüle yapıştırın..d ve e sütünlerına 10 tane rasgele kodu ve istasyonu getirecektir..

Sub deneme()
Dim x As Byte, z As Double
For x = 1 To 10
z = Int(Rnd * 90000)
Cells(x, 4) = Range("a" & z)
Cells(x, 5) = Range("b" & z)
Next x
End Sub

 

[aguney]

Aslında 10 adet rasgele kayıt değil her bir istasyon için 10 adet kayıt olmaslı örneğin 10 nolu istasyon için 10 adet kayıt. 30 tane istasyon varsa 300 kayıt olmalı.

 

[aguney]

Aslında 10 adet rasgele kayıt değil her bir istasyon için 10 adet kayıt olmaslı örneğin 10 nolu istasyon için 10 adet kayıt. 30 tane istasyon varsa 300 kayıt olmalı.

aşağıdaki kodu bir modüle yapıştırın..d ve e sütünlerına 10 tane rasgele kodu ve istasyonu getirecektir..

Sub deneme()
Dim x As Byte, z As Double
For x = 1 To 10
z = Int(Rnd * 90000)
Cells(x, 4) = Range("a" & z)
Cells(x, 5) = Range("b" & z)
Next x
End Sub