1 den Atanan Bir Değişkene Kadar Benzersiz Rastgele Sayı Üretmek

[tiryaki1974]

merhabalar.

Yapmış olduğum bir programda rnd ile sayı ürettiriyorum. fakat üretilen sayılar çoğu zaman aynı oluyor. bu yüzden 1 den atanan bir değişkene kadar her seferinde farklı ve tekrarlanmayan rassal sayı nasıl ürettirebilirim. teşekkürler

 

[Orion1]

Modülün en başına Randomize Timer cümlesini koyun.

 

[tiryaki1974]

öncelikle yardımınız için teşekkürler. gönderdiğiniz kodu yazdım ama istediğim performansı vermedi. yine bazı sayıları daha fazla üretiyor. formunuzdan bağımsızdeğişkenüret fonksiyonu buldum ama çalıştıramadım. başka yolu varsa yardımcı olursanız sevinirim

 

[Ali]

Aşağıdaki linki inceleyebilirsiniz.

formül ile sayı üretme

.

 

[tiryaki1974]

oradaki sayfayı ve örnek dosyayı inceledim. orada makro kodlarıyla yazılmış birşey yok. formül girmişler. sorunumu çözmedi. yinede teşekkürler.

 

[Orion1]

siz hangi aralıktaki sayıları rastgele sayı istiyorsunzu.Ve tekrarsızmı olacak?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. 0-100 arasında rastgele sayı üretir.

Option Explicit
 
Sub RASTGELE_SAYI_ÜRET()
    Randomize
    MsgBox Int(Rnd * 101)
End Sub

 

[tiryaki1974]

alışmamı ekte gönderiyorum. örneğin b2 hücresinde değişkenim var. oradaki sayıya kadar rastgele sayı üretecek. e5 hücresine sayı ürettiriyorum zaten buna görede f5 ve f6 hücrelerinde kelimeler görüntüleniyor. ben hangi sayının kaç kere çıktığı ile ilgili sayaç koydum (D ve E sütunundaki sayaçlar)
rastgele flasladığım zaman bazı kelimeler 4-5 kez görüntülenirken bazıları hiç görüntülenmiyor. isteğim b2 hücresindeki sayıya kadar rastgele sayı üretsin. b2 deki sayı kadar sayı üretirken her sayı en az bir kere üretilsin. umarım ifade edebilmişimdir. teşekkürler.

 

[tiryaki1974]

Kusura bakmayın dosya boyutu büyük olduğu için yükleme yapmamış. yeni farkettim zipleyim gönderiyorum. teşekkürler

 

[Orion1]

Hangi sayfadaki hangi sütundaki değerler rastgele sıralanacak?

 

[tiryaki1974]

Kelime_Sor sayfasında b2 deki değer son değer olacak şekilde yine aynı sayfada E5 hücresine benzersiz sayı üretecek. yani 1 den 105 e kadar (şuanda B2 deki değer 105) e5 hücresine rastgele sayı üretecek ama 105 e kadar bütün sayılar çıkmadan aynı sayıyı tekrar üretmeyecek. isteğim bu. saygılarımlar

 

[Orion1]

Dosyanız ektedir.

Sub rastgele()
Randomize Timer
Dim col As Collection, sat As Long, i As Long
sat = 10
Set col = New Collection
Sheets("Kelime_Sor").Select
Range("A10:C65536,E10:E65536").ClearContents
For i = 1 To Range("B2").Value
    col.Add i
Next
basla:
For i = 1 To col.Count
    say = say + 1
    deg = Int((Rnd() * col.Count)) + 1
    Cells(sat, "E").Value = col.Item(deg)
    sat = sat + 1
    col.Remove (deg)
    Exit For
Next i
If say > Range("B2").Value - 1 Then GoTo son

GoTo basla
son:
MsgBox "İşlem tamadır." & vbLf & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[tiryaki1974]

hocam ben üretilen sayıları 1 seferde e sütununa yazdırmayı değil, sırayla e5 hücresinde görüntülenmesini istiyorum. yani makro sürekli e5 hücresine rastgele sayı üretecek ama tekrarlamayacak. problemim bu şekilde.

 

[Orion1]

hocam ben üretilen sayıları 1 seferde e sütununa yazdırmayı değil, sırayla e5 hücresinde görüntülenmesini istiyorum. yani makro sürekli e5 hücresine rastgele sayı üretecek ama tekrarlamayacak. problemim bu şekilde.

Dosyanız ektedir.

Sub rastgele()
Randomize Timer
Dim col As Collection, i As Long
Set col = New Collection
Sheets("Kelime_Sor").Select
Range("A10:C65536,E10:E65536").ClearContents
For i = 1 To Range("B2").Value
    col.Add i
Next
basla:
For i = 1 To col.Count
    say = say + 1
    deg = Int((Rnd() * col.Count)) + 1
    Range("E5").Value = col.Item(deg)
    col.Remove (deg)
    MsgBox "Rastegele sayı üretildi."
    Exit For
Next i
If say > Range("B2").Value - 1 Then GoTo son

GoTo basla
son:
MsgBox "İşlem tamadır." & vbLf & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[tiryaki1974]

zaman ayırdığınız için teşekkürler.

 

[Orion1]

zaman ayırdığınız için teşekkürler.

Rica ederim.
Oldumu?

 

[tiryaki1974]

oldu hocam çok teşekkürler. iyi çalışmalar

 

[parametre]

yalnız bu dosya durmak nedir bilmiyor her tıklamadan sonra bitmesi lazım değilmiydi

 

[Orion1]

yalnız bu dosya durmak nedir bilmiyor her tıklamadan sonra bitmesi lazım değilmiydi

B2 hücresindeki sayı kadar çalışıyor.

 

[tiryaki1974]

acaba bu sayıları bir butona atayıp butona bastıkça birer birer görüntüleyebilirmiyiz. şu anki kodu çalıştırınca B2 hücre değerindeki sayı kadar durmadan sayı üretiliyor. teşekkürler