RASGELE SEÇİM YAPAN BİR LİSTE NASIL OLUŞTURABİLİRİM

[grikurt]

RASGELE SEÇÝM YAPAN BÝR LÝSTE NASIL OLUÞTURABÝLÝRÝM

Arkadaşlar ben içindeki öğeleri her hesaplamada rasgele seçen bir liste nasıl oluşturabilirim yardımcı olursanız sevinirim

Ã?rn:
ahmet,mehmet,hüseyin öğelerini içeren bir listenin her hesaplamada bu üç öğe arasında rasgele seçim yapmasını istiyorum

teşekkürler

 

[Haluk]

[vb:1:9632802a31]Sub Test()
MyArr = Array("ahmet", "ahmet", "mehmet", "huseyin")
Randomize
x = Int((UBound(MyArr) * Rnd) + 1)
MsgBox MyArr(x)
End Sub
[/vb:1:9632802a31]

Not: 1nci veriyi (ahmet) MyArr dizisinin içine en başta 2 defa yazmalısınız.

 

[Levent Menteşoğlu]

Bende formüllerle yapılmış bir örnek ekliyorum inceleyiniz.

 

[grikurt]

çok teşekkürler arkadaşlar umarım başarırım bu çok işime yarayacak