Rastgele sayı üretiminde monotonluk

[Myazar78Anestezi]

İyi akşamlar kolay gelsin.
Amacım 1 ile 7 arasında her zaman ve tamamen rastgele bir sayı tutmak. Ve sonra bu sayıların art arda aynı sayı gelmesini engellemek. Yani 5 ten sonra tekrar 5 gelmeyecek. Butona her bastığımda bir öncekinden farklı bir rakam gelecek.
Fakat ;
n = Round( ( Rnd ( ) ) * 6 + 1, 0 )
Range("a1").value = n
Kodunu kullandigim zaman her zaman dosyayi actigimda sırasıyla 5, 4, 4, 3, 6, 1, 6 .... diye gidiyor. Eminim ki bu durum denerseniz sizde de aynı olacaktır.

Diğer bir yöntem olan;
n = "= RANDBETWEEN(1,7)" yöntemi ise n ' e anlık bir değer vermediği için işime yaramıyor.

Çok teşekkür ederim saygılarımla.

 

[Muhammet Okumuş]

Sub Random()
10
a = WorksheetFunction.RandBetween(1, 7)
If Range("A1") = a Then GoTo 10
Range("A1") = a

End Sub

Kodu deneyiniz.

 

[leumruk]

Selamlar,
Kodların başına Randomize yazmayı unutmayın.

 

[Myazar78Anestezi]

Kodu deneyiniz.

Oldu. Çook teşekkür ederim hocam çok sağolun..

 

[YUSUF44]

Selamlar,
Kodların başına Randomize yazmayı unutmayın.

Bu işlemin amacı nedir sayın leumruk? Randomize yazıp yazmamak kodda nasıl bir değişikliğe yol açıyor?

 

[Muhammet Okumuş]

Randomize her dosya açilisinda farkli sayı üretmesini sağlar. Ilk kodda mutlaka gerekli ama benim yazdığım kodda emin değilim.

 

[Myazar78Anestezi]

Selamlar,
Kodların başına Randomize yazmayı unutmayın.

Nerelere yazicam . Muhammet hocamin kodu sıkıntısız calisti ama randomize nin amaci nedir hocam

 

[Muhammet Okumuş]

Benim kodlarda farklı sayılar üretiyor.

Sub Random()
10
Randomize
a = WorksheetFunction.RandBetween(1, 7)
If Range("A1") = a Then GoTo 10
Range("A1") = a

End Sub

 

[Myazar78Anestezi]

Benim kodlarda farklı sayılar üretiyor.

Tamam hacam. Bi de bu tekrar basa dönmesi icin koydugumuz 10 rakami var ya. Bu sub icerisinde gördügü herhangi bir 10 a vaya baska sub lardaki 10 lara dönme ihtimali var midir

 

[Muhammet Okumuş]

Aynı değer varsa kod hata verir. Başka 10 varsa ya onu ya da bunu değiştirmelisiniz.

 

[Myazar78Anestezi]

Aynı değer varsa kod hata verir. Başka 10 varsa ya onu ya da bunu değiştirmelisiniz.

Anladım hocam teşekkür ederim çok sağolun.